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HOW TO USE THIS PUBLICATION 

1 ' " “ " 




In the majority of cases, a PLM is used to 
analyze a specific error that caused a 
compile-time dump or an erroneous result. 
The following is therefore intended to 
assist the programmer in obtaining from 
this dump all information he requires to 
locate the specific section of the PLM in 
which he is interested. Using the descrip¬ 
tive text, the flow charts, and the program 
listing, he can then find out what error 
caused the compiler to produce the dump or 
the erroneous result so that he may take 
the appropriate corrective action. 

C onventions on Registe r Usage 

1. If an interface routine is called, 
registers 0 and 1 serve as parameter 
registers (refer to the description pf 
the individual interface routines in 
the section Compiler Interface ) . 

2. Register 9 serves as input area reg¬ 
ister for IJSYSIN during phases A00, 
AOOD, and A25. 

3. Register 10 serves as output area reg¬ 
ister for IJSYSPH during phases A00, 
AOOD, and G55 (for punching) • 

4. Register 11 serves as output area reg¬ 
ister for IJSYSLS during all listing 
phases. 

5. Register 12 is used for any reference 
to the communication region. 

6. Register 13 is not used by the phases, 
but as save area register for LIOCS. 

7. Register 14 serves as return register 
in case of subroutine calls. 

8. Register 15 is used both as base reg¬ 
ister in the phases and as entry point 
register when calling a subroutine. 

E ntry Points in the Communication Regio n 

Register 12 points to the beginning of the 
communication region. The absolute address 
of entry points in the communication region 
can be found in the Linkage Editor storage 
map. 

The following entry points in the com¬ 
munication region are of interest in case 
of a compile-time dump: 

K SAVE1 : This area contains return addresses 
of the last interface call in the 
following order: 


register 14: points to the routine 
that was last active. 


register 15 
register 0 
register 1 
register 2z 

K5PH : This 8-byte area normally contains 

the name of the phase currently in 
storage. The phase name is stored 
as follows: 

PL/Ixxxb 
D7 D3 61 C9 yy yy yy 40 

The last four bytes contain the 
actual phase name, e.g., E25 or, in 
hexadecimal notation, C5F2F540. 
Phases D00, D05, DIO, and Dll form 
an exception. For these phases, 
the name can be found at X*108' 
(register 12) . 

It should be noted that the actual 
phase currently in storage may be 
either C95 or Dll if K5PH contains 
the name C95, To determine which 
phase is actually in storage, 
locate the start address of the 
phase and compare it with the list¬ 
ing. 

KTETA: If the contents of KTETA are less 

than those of KTETA+4, SYS002 is 
currently used as text input medium 
and SYS003 as output medium. 

IJKMTS : Contains the start address of the 
table space. 

IJKMBL : Contains the buffer length for text 
I/O. 

IJKMBS : Contains the start address of the 
buffer area. 

IJXA04 : Is the address of the table direc¬ 
tory (TABTAB) . 

For detailed information on the format 

of the communication region refer to the 

section Compiler Interface . 


Note: The interface routines are used by 

all phases. Therefore, they are not des¬ 
cribed in each phase, but in the separate 
section Compiler Interface . For a list of 
all interface routines refer to Figures 7 
and 8 of that section. The names of inter¬ 
face routines start either with IJK or Z. 
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ORGANIZATION OF THE PUBLICATION 


Due to its size, this book has been divided 
into three volumes. For the reader's con¬ 
venience, volume 1 contains all of the 
descriptive text, whereas volumes 2 and 3 
contain the flow charts. Thus, the text 
and the corresponding flow chart (s) may be 
used synoptically. The form numbers of the 
three volumes are as follows: 

Volume 1: Y33-9010 

Volume 2: Y33-9011 

Volume 3: Y33-9012 

The individual phases are presented in 
the order of their appearance within the 
compiler. The compiler interface (which, 
most probably, will have to be looked up 
quite frequently in many of the phases) is 
described in a separate section to make it 
stand out. The appendices provide ref¬ 
erence information taken out of the corres¬ 
ponding phase description to improve the 
readability of the text and to make the 
information easily accessible. 

The heading of each phase description 
gives the phase name, the function (in 
parentheses), and — separated by two dash¬ 
es — the identification of the correspond¬ 
ing general flow chart, e.g., 

PHASE PL/IA45 (CHARACTER STRINGS) — EM 

In the description of the individual 
routines of a phase, the flow chart for the 
routine, if any, is indicated by the flow 
chart identification, separated from the 
routine name by two dashes, rom the routine 
name by two dashes, e.g., 

INIT1 — XY 

The use of the individual flow chart 
symbols is explained in detail at the 
beginning of each of the flow chart 
volumes. 

Figures are numbered sequentially, 
starting at 1 in each section. 

Related Publications 

PL/I Subset Language Specifications. Form 
C28-6809 


IBM System/360, Disk and Tape Operating 

Systems, PL/I Programmers Guide, Form 
C24-9005 


IBM System/360, Disk and Tape Operating 

Systems, PL/I Subset-Library Routines, 
Program Logic Manual, Form Y33-9013 


IBM System/360, Disk Operating System, PL/I 
DASD Macros, Form C24-5059 


IBM System/360, Disk Operating System, 
System Control and System Service 
Programs, Form C24-5036 


IBM System/360, Tape Operating System, 
System Control and System Service 
Programs, Form C24-5034 


IBM System/360, Disk Operating System, 

Supervisor and Input/Output Macros, 
Form C24-5037 


IBM System/360, Tape Operating System, 

Supervisor and Input/Output Macros, 
Form C24-5035 


IBM System/360, Disk Operating System, 
System Generation and Maintenance, 
Form C24-5033 


IBM System/360, Tape Operating System, 
System Generation and Maintenance, 
Form C24-5015 

IBM System/360, Disk Operating System, 

Performance Estimates, Form C24-5032 

IBM System/360, Tape Operating System, 

Performance Estimates, Form C24-5020 

IBM System/360, Disk Operating System, 
Operating Guide, Form C24-5022 

IBM System/360, Tape Operating System, 
Operating Guide, Form C24-5021 
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IBM SYSTEM/360 DOS/TQS PL/I PLM 


INTRODUCTION 

The DOS/TOS PL/I compiler is designed to 
compile source programs written in the PL/I 
Subset language• A set of library subrou¬ 
tines that are part of the component is 
used as control routine for the execution 
of PL/I programs in the DOS/TOS environ¬ 
ment. 

The language implemented is the language 
described in the SRL publication PL/I Sub¬ 
s et Language Specifications , Form C28-6809. 
Further restrictions and implementation- 
defined features are listed in the SRL 
publication IBM System/360 Disk and Tape 
O perating Systems, PL/I Programmer's Guide , 
Form C24-9005. This publication also des¬ 
cribes the Disk and Tape Operating Systems 
as the environment of the PL/I compiler. 

The DOS/TOS PL/I compiler is a multi- 
phase, multi-pass compiler. Input to the 
compiler is read from the logical unit 
SYSIPT. The compiler output is produced on 
the logical unit SYSLST. Object programs 
are produced on SYSPCH or SYSLNK. Three 
work files are used by the compiler. All 
three work files may be either on tape (DOS 
and TOS) or on disk (DOS only) . On DOS, a 
second compiler version that allows SYSIPT, 
SYSLST, and SYSPCH to be 2311 DASD extents 
is available. The version used is 
determined at system generation time. The 
compiler version that allows system logical 
units to be DASD extents requires 12K of 
main storage. Switching between tape and 
disk work files on DOS is automatic at open 
time. 

Parts of the first phase (PL/I) remain 
in main storage as a control routine during 
execution of the other phases of the com¬ 
piler. Their function is the execution of 
I/O operations for work files and inter¬ 
phase communication. A special smaller 
control routine is used during execution of 
the extremely long phases D00 to DIO which 
do not use the table file SYS001. 

The PL/I library is a set of relocatable 
routines and transient core-image library 
routines. The library is used at object 
time for: 

1. Monitoring object program execution, 

2. Performing input/output operations, 

3. Performing object time conversions, and 

4. Built-in functions. 


The relocatable library routines are 
cataloged into the relocatable library and 
loaded by the autolink feature. Six 
library routines are cataloged into the 
core-image library. These routines are 
loaded at execution time into a transient 
area of the PL/I library to perform func¬ 
tions that are not frequently used, e.g., 
opening of files, etc. Their phase names 
start with $ to ensure storage in the pri¬ 
vileged region of the core-image library. 
An additional routine ($$BPLOSE) is to be 
executed in the systems logical transient 
area when closing PL/I files. 


For detailed information on the library 
subroutines refer to the library subrou¬ 
tines PLM named on the cover page. 


The storage used by the compiler is 
divided into the following 4 parts (see 
Figure 1) : 

1. Control routine 

2. Compiler phases 

3. Table area 

4. Buffer area 

0 r - 


Control Routine 




Compiler Phases 


6.75K I---- 

i 

| Table Area 6*256 bytes 

I 

8.25K f- 

I 

| Buffer Area 7*256 bytes 

I 

1 OK »--J 

Figure 1. Storage Used by PL/I Compiler 

The last part of the control routine 
area is the table directory. Part of this 
area can be overlaid by the first phases 
that use only a few of the tables. The 
table area is used for processing by com¬ 
piler phases that have no table handling. 
Some phases use less than 7 buffers and can 
therefore use part of the buffer area. 
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Phase 

Name 

r— — i 
PL/I 
Module 
Name 

... ... .... _.... 

r ~ — ~ —- 

Function 

T 1 

|Phase 

i 

|Length 

1 _ 

r - - i 
Phase 

End 

r 

Maint. 

Area 

j Tab. 

|Use 

T 

1 

1 

1 

I 

Buff . 

1 

No. | 

j 


-- — 


1 



_ 

T 


i 

PL/I 

IJXA00 

DOS control routine and initialization 

| 5016 

5016 

1896 

1 N 

1 

0 



IJXA00D 

DOS control routine and initialization 

| 5426 

5426 

3534 

1 N 

1 

0 




with system files on disk 





1 




IJXA00 

TOS control routine and initialization 

| 4224 

4224 

2688 

1 N 

1 

0 


PL/IA10 

IJXA10 

Overlay for tape work files (DOS only) 

| 898 

898 

NA 

1 N 

1 

0 


PL/IA2 5] 

IJXA25 

Elimination of blanks and comments, 

i 




1 





replacement of keywords 

| 6004 

91 18 

1280 

1 N 

1 

4* 


PL/IA30 

IJXA30 

Replacement of identifiers 

|3124 

6238 

674 

1 T 

1 

7 


PL/IA35 

IJXA35 

Pictures 

| 5700 

8256 

704 

1 N 

1 

5 


PL/IA45 

IJXA45 

Character-string replacement 

|3234 

5950 

962 

1 T 

1 

7 


PL/IA50 

IJXA50 

Scan block structure 

| 3012 

5728 

1184 

1 N 

1 

7 


PL/IA60 

IJXA60 

Syntax 1 

|5120 

7676 

772 

1 N 

1 

7 


PL/IA65 

IJXA65 

Syntax 2 

| 4748 

7304 

1144 

1 N 

1 

7 


PL/IB10 

IJXB10 

Declaration scan 1 

| 2264 

4980 

1932 

1 T 

1 

7 


PL/IB15 

IJXB15 

Declaration scan 2 

I 3528 

6244 

668 

1 T 

1 

7 


PL/IB20 

IJXB20 

Symbol table construction 1 

| 3704 

6420 

492 

1 T 

1 

7 


PL/IB25 

IJXB25 

File declarations 

| 3804 

6484 

428 

1 T 

1 

7 


PL/IB30 

IJXB30 

Symbol table construction 2 (diagnostic) 

| 2592 

5308 

1604 

1 T 

1 

7 


PL/IB40 

IJXB40 

Symbol table construction 3 

i 




1 





(structures, etc.) 

1 2604 

5320 

1592 

1 T 

1 

7 


PL/IB70 

IJXB70 

Symbol table construction 4 (contextual 

i 




1 





declarations) 

13660 

6376 

536 

1 T 

1 

7 


PL/IB75 

IJXB75 

BUILTIN versus contextual declarations 

| 1568 

4284 

2628 

1 T 

1 

7 


PL/IB80 

IJXB80 

Symbol table construction 5 (implicit 





1 





declarations) 

I 3492 

6208 

704 

1 T 

1 

7 


PL/IB90 

IJXB90 

Prestatement generation 1 

| 3072 

5788 

1124 

1 T 

1 

7 


PL/IB92 

IJXB92 

Prestatement generation 2 

|3196 

5912 

1000 

1 T 

1 

7 


PL/IB95 

IJXB95 

Array table construction 

1736 

4416 

2304 

1 T 

1 

7 


PL/IB97 

IJXB97 

External name table construction 

1 2736 

54 52 

1460 

1 T 

1 

7 


PL/ICO 0 

IJXC00 

Symbol table listing 

| 3230 

5946 

966 

1 T 

1 

7 


PL/IC25 

IJXC25 

IF scan 

| 2956 

5672 

1280 

1 T 

1 

7 


PL/IC30 

IJXC30 

Constant processing 1 

| 3020 

5736 

1176 

1 T 

1 

7 


PL/IC35 

IJXC35 

Block sorting 

| 30 84 

5764 

956 

1 T 

1 

7 


PL/IC50 

IJXC50 

I/O scan 1 

| 3558 

6274 

638 

1 T 

1 

7 


PL/XC55 

IJXC55 

I/O scan 2 

| 3684 

6400 

512 

1 T 

1 

7 


PL/IC60 

IJXC60 

I/O scan 3 

| 3804 

6520 

392 

1 T 

1 

7 


PL/IC65 

IJXC65 

I/O scan 4 

| 3748 

6464 

448 

1 T 

1 

7 


PL/IC85 

IJXC85 

DO scan 1 

| 3276 

5956 

956 

1 T 

1 

7 


PL/IC86 

IJXC86 

DO scan 2 

|3676 

6356 

556 

1 T 

1 

7 


PL/IC95 

IJXC95 

Switch to small control routine 

| 1032 

3748 

3164 

1 T 

1 

7 


PL/IDO 0 

IJXDOO 

Statement decomposition 

| 5472 

6976 

2368 1 

1 N 

1 

3. 

5 

PL/IDO 5 

IJXD05 

Conversion, precision, storage types 

| 7400 

8888 

7 12 1 

1 N 

1 

2. 

5 

PL/ID10 

IJXD10 

Macro generation 1 

|6856 j 

8360 

984 1 

1 N 

1 

3. 

5 

PL/ID11 

IJXD11 

Macro generation 2 

|4226 ' 

7026 

2318 

1 N 

1 

3. 

5 

PL/ID15 

IJXD15 

Evaluation of subscripts 

|3784 | 

5500 

2948 

j N 

1 

7 


PL/ID17 

IJXD17 

Generation of linkage to library 

|5082 | 

7798 

1162 

1 N 

1 

5 


PL/ID20 

IJXD20 

Special built-in functions 

|5184 ; 

7900 ; 

1060 

1 N 

1 

5 


PL/ID40 

IJXD40 

ON generation 

|3940 

6656 j 

2304 1 

1 N 

1 

5 


PL/ID70 

IJXD70 

Constant processing 2 (conversion) 

| 4344 

7060 J 

620 

| T/21 

7 


PL/ID75 

IJXD75 | 

I/O macro generation 1 

|3716 

6432 | 

2016 

1 N 

1 

7 


PL/ID80; 

IJXD80 

I/O macro generation 2 

|2632 

5348 , 

3100 

1 N 

1 

7 



.X X X 

X_ 

X 

__ 

_j 


Figure 2. 
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T - -- - -- - T - 

T 

~T ~ 

~T“ 


"T" 


|PL/IE25 

IJXE25 

|Main Diagnostic 

3762 

| 6478 

| 434 

1 

T 

1 

1 

|PL/IE25A 

IJXE26 

j Messages 

1200 

| 6470 

j 

1 

- 

1 

- 

|PL/IE25B 

IJXE27 

j Messages 

1200 

| 6470 

j 

1 

- 

1 

- 

j PL/IE2 5C 

IJXE28 

j Messages 

1200 

| 6470 

j 

1 

- 

1 

- 

1PL/IE25D 

IJXE29 

[Messages 

1200 

| 6470 

j 

1 

- 

1 

- 

|PL/IE25E 

IJXE30 

j Messages 

1200 

| 6470 

j 

1 

- 

1 

- 

j PL/IE2 5F 

IJXE31 

j Messages 

1200 

(6470 

j 

1 

- 

1 

- 

j PL/IE2 5G 

IJXE32 

|Messages 

1200 

| 6470 

j 

1 

- 

1 

- 

j PL/IE2 5H 

IJXE33 

j Messages 

1200 

(6470 

1 

1 

- 

1 

- 

j PL/IE25I 

[.I JXE34 

j Messages 

1200 

| 6470 

j 

1 

- 

1 

- 

j PL/IE2 5J 

IJXE35 

[Messages 

960 

|6230 

| 240 

1 

- 

1 

- 

j PL/IE5 0 

IJXE50 

jCode generation 1 

5308 

|8024 

| 424 

1 

N 

1 

7 

j PL/IE60 

IJXE60 

|Code generation 2 

4688 

| 7404 

|1044 2 

1 

N 

1 

7 

j PL/IE60AJ 

IJXE61 

j Macro library (overlay) 

2933 

|7217 

|1231 2 

1 

- 

1 

- 

j PL/IF2 5 

IJXF25 

)Sorting of variables and constants 

3860 

| 6576 

| 592 

1 

T 3 

1 

6 

j PL/IF35 

IJXF35 

(Optimization of constants 

3032 

|5748 

| 1164 

1 

T 

1 

7 

j PL/IF7 5 

IJXF75 

jStorage allocation 

2708 

| 5424 

| 1488 

1 

T 

1 

7 

j PL/IF9 0 

IJXF90 

(Construction of offset table 

2214 

|4930 

( 1982 

1 

T 

1 

7 

j PL/IF9 5 

IJXF95 

jCode generation for offset > 4K 

2360 

| 5076 

| 1836 

1 

T 

1 

7 

j PL/IGOO 

IJXGOO 

jGOTO optimization 

3914 

|6630 

j 464 

1 

T 

1 

7 

j PL/IGO1 

IJXGO1 

jInsertion of label offsets 

2216 

| 4896 

| 2766 

1 

T 

1 

7 

|PL/IG15 

IJXG15 

(Final offset preparation 

3488 

| 5204 

| 420 

1 

T 

1 

7 

j PL/IG17 

IJXG17 

(File generation 1 

5060 

| 7776 

| 1952 

1 

N 

1 

2 

j PL/IG17B 

IJXG17B 

j Fil^ generation 2 (DTFMT) 

4902 

| 7618 

| 2210 

1 

N 

1 

2 

j PL/IG17D 

IJXG17D 

(File generation 3 (DTFSD) 

4 8 54 

| 7570 

| 2258 

1 

N 

1 

2 

j PL/IG17E 

IJXG17E 

(File generation 4 (DTFSD) 

3262 

| 5978 

| 3750 

1 

N 

1 

2 

j PL/IG17R 

IJXG17R 

[File generation 5 (REGIONAL (1) ) 

4770 

|7486 

| 2234 

1 

N 

1 

2 

j PL/IG17S 

IJXG17S 

|File generation 6 (REGIONAL (3) ) 

5446 

| 8162 

| 1566 

1 

N 

1 

2 

j PL/IG20 

IJXG20 

(Produce file module, rearrange 
| SYSOO 1 

1912 

14628 

1 

| 2284 

1 

1 

1 

T 

1 

1 

7 

|PL/IG25 

IJXG25 

(Generate ESD 

3148 

(5864 

| 1048 

1 

T 

1 

7 

j PL/IG30 

IJXG30 

(Generate TXT, RLD, END 

2624 

|5340 

( 1572 

1 

T 

1 

7 

j PL/IG31 

IJXG31 

j Final diagnostic 

2838 

| 5454 

| 4170 

1 

N 

1 

1 

|PL/IG40 

IJXG40 

(Object code listing 

4420 

(7136 

| 1824 

1 

N 

1 

5 

| PL/IG5 5 11JXG55 

L _ J. 

|Final output 

4402 

L_ 

| 7118 

X 

| 1842 

-X 

1 

_-L- 

N 

1 

-±. 

3 


1 Includes dynamic stack. 

2 Includes 10-byte parameter from PL/IE25. 

3 Shifted up one buffer. 

4 2 buffers are used by program at the beginning of the phase. 


Figure 2. List of Phases (Part 2 of 2) 


Figure 2 lists all phases including 
their function, length, and maintenance 
area. The entry in the column Tab. Use 
specifies whether the table area is used 
for table handling (T) or for other purpos¬ 
es J[N) . The number of 256-byte blocks used 
as buffers is given in the last column. 


64K) and the buffer length (maximum 1536 
bytes per buffer) . This increases the 
compiler performance considerably. 


The I/O flow during compilation is shown 
in Figure 3. 



The starting point of the compiler is 
assumed to be zero in this list. The DOS 
version not supporting system files on disk 
is assumed in this table. The maintenance 
area includes the area required for the 
control routine. 

If more than 10K are available to the 
compiler, the remaining storage is used to 
increase the table area (maximum used is 


PL/I object programs including library 
subroutines, IOCS modules, and static stor¬ 
age form one or more phases. Automatic 
storage is allocated beginning at the end 
of the longest problem program phase up to 
the end of storage available to background 
programs. Start and end addresses of auto¬ 
matic storage are taken from the DOS/TOS 
communication region and are handled by a 
PL/I library subroutine. 
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LOGICAL PARTS OF THE COMPILER 

( 




The compiler is built up of about 70 phas¬ 
es , which may be grouped into five logical 
parts referred to as packages. 


P ackage 1 (Pha s es A25 - CO O) 

In this package, the programmer-written 
source text is transformed into a text 
string, the format of which is oriented to 
the logical structure of a PL/I program. 
This means that language elements such as 
statements, prefixes, identifiers, delimi¬ 
ters, etc. are translated into a represen¬ 
tation that permits the relatively simple 
recognition of that association. 

Redundant information (blanks and 
comments) is deleted from the text string. 
The non-executable DECLARE statements are 
also deleted. The information contained 
therein is transferred to the corresponding 
identifiers in the text string where they 
occur. 

The program string is syntactically 
checked and diagnostie information for 
errors, if any, is inserted. 

The syntax of the PICTURE attribute is 
checked and the information required either 
for further processing or during execution 
at object time is provided. 

A symbol table is constructed. It is 
listed if listing is specified in the 
OPTION job control statement. 

The compiler also constructs tables for 
character constants, names, files, external 
names, and arrays. 

P ackage 2 (Phases C2 5 - C9 5) 

As the result of the processing in package 
1, the source text is now a statement- 
oriented text string. 

This package of phases processes the IF, 
I/O, and DO statements. Processing of this 
group of statements requires special phases 
since these statements all possibly contain 
expressions, the handling of which involves 
a considerable programming effort. The 
above statements are scanned and the 
expressions prepared for further processing 
in package 3. 

The IF statements are expanded into 
simple statements that can be processed in 
package 3. Branch and label-definition 
macros are generated. 


The I/O statements are semantically 
checked, and DO loops are generated for 
repetitive specifications. For all I/O 
statements containing the FILE option, the 
identity of the information given in the 
file declaration (from the FILE table) and 
that in the FILE option is checked. The 
I/O statements are then prepared to be 
sequentially processed in package 3. 


The DO statements are decomposed into 
simple statements. Branch and label- 
definition macros similar to those in the 
IF phase are generated and inserted in the 
program string. 


In addition, blocks are ordered 
sequentially in this package. 


Package 3 _ (Phases POP - D8Q) 

All executable statements are processed in 
this package. The statements that were 
preprocessed in package 2 are now finally 
processed. The result of this processing 
is a text string consisting of elements 
that do not refer to statements but to 
separate operations. The text elements 
that represent these operations are called 
macros. 

Array and structure assignments are 
decomposed. 

Expressions are reordered in reverse 
Polish notation. The necessity for data 
type conversions is determined and the 
conversions are prepared by macros. In 
addition, macros are generated to give each 
variable the storage type required for 
particular operations, e.g., register, 
working storage, etc. Registers are allo¬ 
cated for operands that are to be reg¬ 
isters. The appropriate library call macro 
is generated for built-in functions imple¬ 
mented by library routines. 

Subscripts are evaluated. If the sub¬ 
scripts are constants, they are evaluated 
at compile time. Otherwise, the appropri¬ 
ate macro is generated for use at object 
time. 

ON entries that contain the ON and pre¬ 
fix information are generated to be includ¬ 
ed in static storage. 

Conversion of constants is performed at 
compile time. 
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Pa ckage 4 (Phases E 25- E 61) 

If errors are detected in the program 
string, the corresponding diagnostic messa¬ 
ges are printed, if specified. 

Assembler-type code is generated from 
the macros. The selection of the macros 
depends on the type of the macro, the stor¬ 
age class of the operands of the macro, and 
further information contained in the 
macros. 

A model instruction dictionary is used 
to furnish additional information indepen¬ 
dent of the information contained in the 
macro. 

Indirect addressing is assigned for 
operands that have the attributes external, 
parameter, or controlled. 

Pa ckage 5 (Phases F25-G55) 

This package is referred to as the assem¬ 
bler of the compiler because its functions 
are similar to those of an assembler. 


Storage is allocated for variables and 
constants. 


Constants are optimized. 


Final machine instructions are generated 
by changing the format of the assembler 
instructions and by replacing the operands 
of the assembler instructions by base reg¬ 
ister and displacement. 


Code for branches and addressing beyond 
the scope of 4K-blocks is generated. 


The required tables are generated for 
each file. 


Note: The logical flow of the compiler is 

illustrated in Figure 1. 
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c 


••••A!••••••••• 

• • 

• PL/I • 

• • 
■•••••••••••••A 

X 

• A0C-A10 • 

r rf *®S! 5S ': 

• • 
•*••••••*•••*•••• 

X 

..•*• 

• A25-A30 * 

•—•—•—•—•—•—•—•—• 
•REPL• KEYWORDS • 
•LIST IOETIFIERS* 

• ELIMINATE BL. • 


D1 *. 

.• • 

PICTURES 


••■••El********** 

c AA5-A50 • 
•—•—*—*—•—*—*—*—• 
• CHAR.STRINGS • 
•BLOCK STRUCTURE* 


X 

.FI.••*• 

• A60-B20 * 

•-•-•-*-•-*-•-*—* 

• SYMBOL TABLE(l) • 


•••••HI•••••••••• 

• B3C-B70 * 

•-*—•-•—*-•-•-•—* 

• CONSTRUCTION * 

• OF SYMBOL * 

• TABLE (2-A) • 


.* BUILT- •. YES 
••IN FUNCTIONS .*.... 


•••••K1***••••••* 

• B80-B92 ♦ 

•-•-•-•-•-*-•-•-• 

• SYMBOL TABLE(5 ) • 

• PRESTATEMENT • 

• C1-21 • 


PROCESS 

PICTURES 


PROCESS 

FILE 

DECLARATIONS 


til 

*••J2******»< 

• • 


B75 


♦ 

PROCESS 



BUILT-IN 


• •1 

FUNCTIONS 

»•! 


BA *. 

• • 

ARRAYS 

*. . • 
*• .• 
•NO 


‘•••B5«*«**** 

B95 

-•—•—•-•-•— •- 
CONSTRUCT 
ARRAY TABLE 


B97 

■*-•-*-*-•—*-*- 
CONSTRUCT 
EXTERNAL 
NAME TABLE 


.* SYM *. YES 
*. OPTION .*.... 
*. .* 

*. .* 

*. .» 

• NO 


••••D3***«***« 

COO 

SYMBOL TABLE 
OUTPUT 


•••«E3********** 

C25 * 

PROCESS *X 

IF STATEMENTS * 


•••••FA*•••••••• 

• C30-C35 
*—*—*—•—•—*—*—*— 

• CONSTANTS!1) 

• BLOCK SORTING 


•A2 • 
• 83* 
• • 


Figure 1. Logical Flow of the DOS/TOS PL/I Compiler (Part 1 of 3) 
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PROCESS 
RECORD I/O 
DISPLAY STMTS. 


PROCESS 
DO STATEMENTS 


••••03••*••*•*•* 

C60 • 

•*—*—*—*—*—*—*—• 
PROCESS OPEN/ • 
CLOSE ANO • 
FORMAT STMTS. * 


YES .* *. 

. RECORO I/O . 

*. DISPLAY .* 


YES .* DO 
...... STATEMENTS 


C95 

—*-*—*-*—«— 
LOAD NEW 
INTERFACE 


••••H3*•****••• 

D00-D11 

STATEMENT 
DECOMPOSITION 
LOAD OLD INTERF 


Figure 1. Logical Flov^ of the DOS/TOS PL/I Compiler (Part 2 of 3) 
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c 


••••• 01 •••••••••• 

• 015 • 

•-•—•—•—•-•—•—•-a 
•SUBSCR.EVALUA- »X. 


• ■••• 

• A3 • 

• B2* 
• • 


B2 •. 

YES .•' ARRAYS 
...... QR 

•. FILES 


• NC 



• 075 • 


• I/O MACROS L »X. 


t••*G2•••••*•** 

080 

I/O MACROS 2 


.X*CCDE GENERATION 
•STORAGE ALLOC. 

• GOTO OPTIMIZ. 


F2 •- 

. FA 

• • 

•••F5********** 

. * >. 

. - * •. 

• 

GAO • 


. .• LISTX •. YES 



*• • • 

. *. .* 

• 

CODE • 

». .• 

. •- .* 

• 


•• . * 

. *. .• 

• •< 


• NC 

- *NO 



• 

• • 




1 I x ... 




BA *. 
FILES 


• G17 

•-•-•-•-•-•-• 
x* generate 


• AEARR. S Y $001 • 

• PRODUCE FILE • 

• MODULE•IF ANY • 


••0A»***»« 

G25-G30 

GENERATE 

°?mBs 


PUT OUT NEM 
DIAGNOSTIC 
MESSAGES 


• • • • 
m: 


••••HA*»••••••• 


END OF 
COMPILATION 


c 


Figure 1. Logical Flow of the DOS/TOS PL/I Compiler (Part 3 of 3) 
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THE TEXT STRING DURING COMPILATION 


The general concept for the representation 
of the text string is that the text string 
consists of text elements whose first byte 
(the key) contains the meaning of the ele¬ 
ment. The keys may be either X'En* or 
X*Fn'. X'En' is used for text elements 
with fixed length; X*Fn' is used for text 
elements with variable length. For the 
latter category, the two following bytes 
give the length of the element. 

During compilation, the text passes the 
following five main states: 

1. Source text (phases A2 5 - B9 5) 

2. Statement-oriented text (phases C25 - 
E25) 

3. Macros (phases E50 - E61) 

4. Assembler code (phases F25 - G15) 

5. Final output (phases G17 - G55) 


So urce Text 

This is the initial status of the text 
string. The source program is taken as it 
is written by the programmer. 

After deleting redundant information, 
e.g., blanks and comments, and translating 
the machine-dependent external code into an 
internal code, the individual language 
elements are replaced. First, the iden¬ 
tifiers that look like keywords are 
replaced by 3-byte keys. The remaining 
identifiers are replaced by 3-byte internal 
names. Delimiters are replaced during the 
syntax phases by their 3-byte keys. 

DECLARE statements are deleted from the 
text string. The information contained 
therein is partially transferred to pre¬ 
statements that are constructed to precede 
the statements. 

St atem e nt-oriented Tex t 

At this stage, a statement may consist of 
the following items: 

1. Each statement is introduced by a 
6-byte statement identifier with the 
key X* EO•• 

2. The statement identifier may be 
followed by a table that contains the 
attributes of the declared variables. 
The attribute table has the key X'F4*. 




3. Items 1 and 2 (where item 2 is 
optional) may be followed by a table of 
the constants declared in the corres¬ 
ponding statement. The constant table 
has the key X'F3'. 

4. The statement body consists of a 
sequence of 3-byte elements, each of 
which represents either an identifier 
or a keyword. 

5. Each statement is terminated by a 

6-byte "end of statement" (EOS) has the 
key X *EA*. 

6. The statement (consisting of the 
elements listed under items 1 through 
5) may be followed by 2-byte error 
indicators giving the errors that were 
detected in the preceding statement. 

The error indicator has the key X'EB'. 

This form of the text string is changed 
by deleting the statement attribute tables 
and replacing each statement body by a 
sequence of macros. The replacement of the 
statement bodies is performed in several 
steps. This means that specific phases 
process only specific statements, whereas 
the remaining statements are passed 
unchanged to the next phase. At this 
stage, the status of the text string is 
therefore not uniform. 

For some operations, generated variables 
are used as additional required storage, 
e.g., for the result of an operation. 
Definitions of such generated variables 
(with the key X'FO') are inserted into the 
text string. 

For a limited time, additional informa¬ 
tion may be inserted into the text string, 
e.g., to mark an element as interesting or 
not interesting for some other phase (s) . 

Macro s 

The statement body is replaced by one or 
more macros. Each macro represents a par¬ 
ticular operation. Macros have the key 
X 1 F2'. The format of the individual macros 
is fixed (see General Description of Phases 
E50 - E61 ) . The macros contain the infor¬ 
mation required for generating the assem¬ 
bler code. 

The definition of the individual macros 
is such that each macro is either associat¬ 
ed with a fixed set of code, or the selec¬ 
tion of the required code is possible only 
by means of the operands of the macro. 
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The error indicators are deleted from 
the text string at the same time the macros 
are replaced by assembler code. 


Assembler Code 

After the assembler code has been generat¬ 
ed, the text string consists of the follow¬ 
ing: 

1. Statement identifiers as just des¬ 
cribed. 

2. Assembler code. 

3. Generated variables as just described. 

4. Constant tables as just described. 

5. End of statement as just described. 

Assembler code elements have the key 
X'F6'. Two types of instructions are used: 
machine instructions and pseudo instruc¬ 
tions for communication with the assembler 
(phases F25 - G55) . The machine instruc¬ 
tions refer to the IBM System/360 machine 
instructions, to which they are equal 
except for the format of the operands. The 
format of the assembler code is described 
under G eneral Desc ripti on o f the Phases E50 
- E61. 


The constant tables and generated varia¬ 
bles are deleted from the text string after 
storage allocation. The first three bytes 
of all assembler code elements (X'FGxxxx') 
are also deleted. 


After storage has been allocated, it is 
possible to replace the operands of the 
assembler code by base register and dis¬ 
placement. Thus, the assembler instruc¬ 
tions are expanded by insertion of the 
address of a symbolic given operand (base 
and displacement) after the corresponding 
operand. Most of the pseudo instructions 
furnish information for this change and are 
deleted after the expansion. Only the 
instructions defining or reserving storage 
(DC X, DS) remain in the text string. 

The static storage for the program is 
given a format similar to the pseudo 
instructions and is joined to the program 
string that consists of the assembler 
instructions. 

This format of the text string is the 
last step on the way to the final output. 


Final Output 

The final output of the compiler consists 
of two modules, each of which consists of 
ESD, TXT, and RLD cards, and an END card. 
The first module is produced for all of the 
file declarations; the second module is 
produced for the program with the static 
storage. The TXT cards are generated from 
the assembler instructions and the static 
storage. 

The system file accommodating the final 
output of the compiler depends on the 
options specified in the OPTION job control 
statement. 
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COMPILER INTERFACE 


The logical IOCS provided by the DOS/TOS is 
used for input and output of data during a 
compilation. For this purpose as well for 
loading a new phase, the compiler control 
routines (interface) are provided to com¬ 
municate between the compiler phases and 
the operating system. The interface mainly 
consists of subroutines to be called by the 
individual phases. Each subroutine causes 
DOS/TOS to perform a specific function 
requested by a phase. 

These subroutines form the main body of 
the compiler control program, which con¬ 
tains a communication region used by the 
phases. Some of the subroutines, together 
with the communication region, are part of 
phase A00/A00D and reside in storage 
throughout the compilation. (For excep¬ 
tions refer to phase C95.) The main func¬ 
tions of these subroutines are: 

1. To load a new phase from the core-image 
library on SYSRES. 

2. To handle the input text stream on 
SYS002 or SYS003; 

3. To handle the output text stream on 
SYS002 or SYS003; 

4. To write information on SYS001 for 
intermediate storage; 

5. To read information intermediately 
stored on SYS001. 

Alternating from phase to phase, the 
logical units SYS002 and SYS003 serve as 
input or output medium. The three logical 
units SYS001, SYS002, and SYS003 must 
always be assigned to physical units of the 
same device type (disk or tape). The 
device type may be changed from job to job. 

The internal communication area 
(interphase communication region) provided 
in the control program is used for communi¬ 
cation between different phases. 

Macro instructions may be used in a 
compiler phase to branch through a branch¬ 
ing vector in the interphase communication 
region to one of the interface routines in 
the compiler control program. 

Some compiler phases require data input 
or output in addition to that mentioned 
above. These functions pertain to the 
input of the source program, output of 
listings, writing the object module either 
on SYSPCH or on SYSLNK for compile-and-go. 


A special routine is provided for each of 
these functions. It is assembled together 
with the phase requesting the function. 

The functions of these routines and the 
names of the logical I/O units used are 
listed below: 

1. Input of PL/I source program from 
SYSIPT; 

2. Output listing of source program on 
SYSLST; 

3. Output listing of the offset table on 
SYSLST; 

4. Output listing of error messages on 
SySLST; 

5. Output listing of source program sym¬ 
bols and external references on SYSLST; 

6. Output listing of generated object 
program on SYSLST; 

7. Output of generated object module on 
SYSLNK; 

8. Output of generated object module on 
SYSPCH. 

The logical unit SYSLNK must always be 
assigned to a physical unit of the same 
device type as SYSRES (disk or tape) . The 
device type is fixed at system generation 
time. SYSIPT, SYSLST, and SYSPCH may be 
assigned to different device types. The 
assignment of these three units may be 
changed from job to job. The file specifi¬ 
cations for these units are of the type 
DTFCP, which provides device independence. 
The user can control the bypassing of some 
output for listings or object modules by 
means of appropriate parameters in the 
OPTION card. 

Some special control routines can be 
inserted into a compiler phase by means of 
appropriate macro instructions. These 
routines serve for input and output of 
table information on the device assigned to 
SYS001 and for moving a record of any 
length into the available storage area. 

Storage Layout During Compilation 

Storage allocation during compilation is 
illustrated in Figure 1. It is assumed 
that at least 10K (excluding the storage 
required by the DOS/TOS) is available for 
compilation of PL/I programs. The area 
occupied by the DOS/TOS is followed by an 
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area of 2.6K for the compiler control pro¬ 
gram and logical IOCS routines used by it. 
The table directory (184 bytes) which con¬ 
tains information on tables used during 
compilation is contained in this area. The 
area provided for the compiler phases is 4K 
bytes long. It is followed by the Table 
Area and the Buffer Area. If more than 10K 
bytes are available for the PL/I compiler. 


the entire additional storage area is allo¬ 
cated to the Table and Buffer Areas. 


r i 


16K DOS/TOS 

0 

1.5K 

■ 

LIOCS 

L _ 

Table Directory (184 bytes) 

2.7K 

Control Program 

Compiler Phases 

6.7K 

Table Area 


Buffer Area 

1 OK 

i 

L _ J 


Figure 1. Storage Layout During Compila¬ 
tion (for 16K) 


As shown in Figure 1, the begin address 
of the Table Area is always 6.7K bytes 
higher than the start address of the stor¬ 
age available during compilation. The 
length of the Table Area and the start 
address of the Buffer Area are calculated 
in the Initialization routine of this phase 
as follows: The Buffer Area (see Figure 2) 
is partitioned into seven buffers of equal 
length. The first five buffers serve as 
work areas for the compiler phases. The 
remaining two buffers are used as input and 
output areas for overlapped processing of 
text information. The length of the Buffer 
Area is the sum of the individual buffers 
plus 8 bytes. (These 8 bytes serve a spe¬ 
cial use during compilation.) The length 
of a single buffer depends on the total 
storage available during compilation. The 
minimum length is 256 bytes, which results 
in a minimum Buffer Area length of 256 x 7 
+ 8 bytes = 1800 bytes. 


The minimum buffer length is always 
taken for an available storage size from 
10K to 14K. The minimum storage for both 
the Table and the Buffer Area is: 10K - 
2.5K - 4K - 184 bytes = 3.4K. Thus, the 
minimum length of the Table Area is 3.4K - 
1800 bytes = 1600 bytes. 


For the tape version, the length of a 
single buffer is extended by 256 bytes for 
each additional 4K available storage until 
the length reaches 1536 bytes (for 30K 
storage). This is shown in Figure 3. If 
more than 30K is available, the buffer 
length remains at 1536 bytes and the entire 
additional storage is allocated to the 
Table Area to reduce the time required for 
compilation. 


For the disk version, the buffer length 
increases similarly |[see Figure 3) . To 
avoid unused track space as far as possi¬ 
ble, the maximum buffer length for the disk 
version is 1536 bytes. 



* 

i 

i- 


L_ 

Figure 2 


Overall Storage Requirements about 3.3K 

- T - 

Table Area | Buffer Area 

-1- T - T - T - T - T - 

|Work I Work|Work|Work|Work| 
j Area j Area j Area j Area j Area j 8 Bytes 
| 1 | 2 | 3 | 4 | 5 | 

_X_X_J._X_X_X_ 


--I 

I 

T-T--I 

|I/O I I/O I 

|Area|Area| 

M I 2 | 

x_x_J 


Table and Buffer Areas 
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C ommun i cation w ith the Control Routine s 

The routines of the compiler interface that 
remain in storage together with the inter¬ 
phase communication region are called by 
use of special macro instructions. The 
expansion of each of these macro instruc¬ 
tions contains a branch to the correspond¬ 
ing routine through a branching vector in 
the interphase communication region. 

The main purpose of the communication 
region is to accommodate information to be 
exchanged between phases. It is part of 
the control section IJXA01 in phase A00 or 
AOOD and assembled by the macro instruction 
IJKCO INTERF. If the parameter INTERF is 
omitted, a dummy section for this region is 
assembled. This is done in every compiler 
phase to cause each symbol specified in the 


communication region to be assembled in the 
compiler phase without storage being 
assigned to it. During the Initialization 
routine, the start address of the communi¬ 
cation region is loaded into register 12. 

If a USING instruction is given at the 
beginning of each phase, this register can 
be used as base register for addressing the 
communication region. 


The interphase communication region 
shown in Figure 4 can be logically divided 
into four parts. The first part is the 
branching vector that contains branch 
instructions to the individual interface 
routines always contained in storage. Most 
of the macro instructions provided for use 
in the compiler phases generate a branch to 
this branching vector. 
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1 

1 


TRANSFER VECTOR 

r 

B 

. . 

IJKAGI READ RECORD FROM TEXT INPUT IN OVERLP 


B 

IJKAGO READ RECORD FROM TEXT OUTPT IN OVERLP 


B 

IJ KANT GET RECORD IDENTIFICATION (1,0,1) 


B 

IJKAPH ROUTINE FOR END OF PHASE 


B 

IJKAPI WRITE RECORD ON TXT INPUT IN OVERLP 


B 

IJKAPO WRITE RECORD ON TEXT OUTPUT IN OVERLP 


B 

IJKAPT ROUTINE FOR POINTW 


B 

IJKARN RESET END IDENTIFICATION FOR SYS001 


B 

IJKAWT WAIT FOR COMPLETION (I,0,T) 


B 

IJKATIN READ RECORD FROM SYS001 IN NONOVERLP 


B 

IJKATOUT WRITE RECORD ON SYS001 IN NONOVERLP 


B 

IJKAMN MOVE RECORD NORMALLY 


B 

IJKAGINO READ RECORD FROM TEXT INPUT IN NOOV 


B 

IJKAGONO READ RECORD FROM TEXT OUTPUT IN NOOV 


B 

IJKAPINO WRITE RECORD FROM TEXT INPUT IN NOOV 


B 

IJKAPONO WRITE TEXT RECORD ON TXT OUTPUT IN NOOV 

1 

B 

IJKAPTR ROUTINE FOR POINTR 

1 


. _ . . . _ , . - _ . - . . ___ 

' . . 1 

COMMUNICATION BYTES 

|IJKMLB 

DC 

8F'0' LIBRARY USAGE BYTES 

|IJKMBS 

DS 

F BUFFER AREA START ADDRESS 

[IJKMPR 

DS 

F BUFFER FOR PRINT REGISTER 

|IJKMPC 

DS 

F BUFFER FOR PUNCH REGISTER 

jIJKMTT 

DC 

A (IJXAOJ) ADDRESS OF TABTAB 

jIJKMTS 

1 

DC 

A (IJXAOM) ADDRESS OF TABLE SPACE 

r 

|IJKMJT 

DC 

. . , _ ... . . _ 

1 

F'O'JOB INFORMATION BITS 

1 


BIT 0 SYSIN HAS BEEN CALLED 



BIT 1 ERRORS IN CURRENT COMPILATION 

! 


BIT 2 ARRRAYS IN CURRENT COMPILATION 



BIT 3 STRUCTURES IN CURRENT COMPILATION 



BIT 4 ARRAY EXPRESSIONS IN CURRENT COMPILATION 

i i 


BIT 5 I/O IN CURRENT COMPILATION 

i i 


BIT 6 FILE ATTRIBUTE IN CURRENT COMPILATION 

i i 


BIT 7 INITIAL ATTRIBUTE IN CURRENT COMPILATION 



BIT 8 DEFINED ATTRIBUTE IN CURRENT COMPILATION 

1 i 


BIT 9 SYSPRINT HAS BEEN CALLED 



BIT 10 PICTURE ATTRUBUTE IN CURRENT COMPILATION 



BIT 11 INDICATES MAIN PROCEDURE 



BIT 12 CALLS FOR LIBRARY ROUTINES IN COMPILATION 



BIT 13 DO LOOPS IN CURRENT COMPILATION 



BIT 14 TABLE DICTIONARY ON SYS001 



BIT 15 OUTPUT LISTING STARTED 



BIT 16 TYPE OF WORK FILE MEDIA DURING COMPILATION 0 FOR TAPE 



BIT 17 IF ON, SYS002 IS THE CURRENT TEXT INPUT MEDIUM 



BIT 18 INDICATES ONSYSLOG 



BIT 19 FORMAT LABELS IN CURRENT COMPILATION 



BIT 20 BUILT-IN FUNCTIONS IN CURRENT COMPILATION 



BIT 21 NEED FOR INDIRECTLY CALLED LIBRARY ROUTINES 



BITS 22 - 26: RESERVED 



BIT 27 SKIP BIT FOR PHASE C25 



BIT 28 SKIP BIT FOR PHASES C50-C55 


t 

BIT 29 SKIP BIT FOR PHASE C85 



BIT 30 SKIP BIT FOR PHASES C60-C65 



BIT 31 SKIP BIT FOR PHASE C65 

r 1 

|IJKTAB 

DC 

| A (0) RECORD IDENTIFIER FOR TABTAB ON SYS001 

jIJKMVC 

t DC 

H'256' VARIABLE COUNTER 

|IJKMNN 

DC 

H'0' INTERNAL NAME OF THE ADDRESS CONSTANT FOR THE ORIGIN OF COMPILATION 

|IJKMWC 

[DC 

H'0' COUNTER FOR GENERATED VARIABLES WITH UNKNOWN ATTRIBUTES 

j IJKCSL 

DC 

H'0' LENGTH OF CHARACTER STIRNGS 

jlJKPAG 

DC 

K'l' PAGE NUMBER FOR LISTING 

j IJKDCW 

DC 

Y (0) DECLARED VARIABLE COUNTER INCL. CONST. 

L J 

_i 

_ _ J 


Figure 4, Assembly Listing of the Interface Communication Region (Part 1 of 2) 
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h 


IJKMIP 

IJKMBL 

IJKMBC 

IJKMCH 


DS 

DC 

DC 

DC 


5H INTERPHASE COMMUNICATION BYTES 
Y (256) BUFFER LENGTH 
X*00' BLOCK COUNTER 
CL6 1 CL2-0 1 


TABLE KTETA FOR INTERFACE HOUSEKEEPING 


KTETA 

KSYS001 

KSYS002 

KSYS003 


DC 

DC 

DC 

DC 

DC 

DC 

DC 

DS 

DC 

DC 

DC 

DS 

DC 

DC 


A (KSYS002) POINTER FOR TEXT INPUT 
A (KSYSO03) POINTER FOR TEXT OUTPUT 
A (IJSYS01) ADDRESS OF FILE TABLE FOR SYS001 
F* 0 * RESERVED FOR LINE NUMBER. MAINTENANCE 
F * 0' END KEY FOR INFORMATION ON SYS001 
X f 18000000' INDICES 

A (IJSYS02) ADDRESS OF FILE TABLE FOR SYS002 
F ADDRESS OF I/O AREA FOR SYS002 
F* 0' END KEY FOR INFORMATION ON SYS002 
X'18000000 1 INDICES 

A (IJSYS03) ADDRESS OF FILE TABLE FOR SYS003 
F ADDRESS OF I/O AREA FOR SYS003 
F'0 * END KEY FOR INFORMATION ON SYS003 
X' 18000000 ' INDICES 


-f 


SAVE AREAS 



|DS 

0D 




KSAVE1 

|DS 

F 

SAVE 

AREA 

FOR 

REGISTER 

KSAVE2 

| DS 

F 

SAVE 

AREA 

FOR 

REGISTER 

KSAVE3 

|DS 

F 

SAVE 

AREA 

FOR 

REGISTER 

KSAVE4 

|DS 

F 

SAVE 

AREA 

FOR 

REGISTER 

KSAVE5 

|DS 

F 

SAVE 

AREA 

FOR 

REGISTER 

KSAVE6 

|DS 

F 

SAVE 

AREA 

FOR 

REGISTER 

KSAVE7 

|DS 

F 

SAVE 

AREA 

FOR 

REGISTER 

KSAVE8 

|DS 

F 

SAVE 

AREA 



KSAVE9 

DS 

F 

SAVE 

AREA 




SYMBOLIC NOTATION FOR REGISTERS 


ZREG0 

ZREG1 

ZREG2 

ZREG3 

ZREG10 

ZREG1 1 

ZREG12 

ZREG14 

ZREG15 




- + 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


0 

1 

2 

3 

10 

31 

12 

14 

15 


TABTAB DESCRIPTION 


i 

1 


NAME 

TABLE DESCRIPTION | 

PHASE 

TO PHASE 

| . . _ 

|ZTAB00 

"f 

1 EQU 

000 

CARTAB 

_ . . _ _ - j 

CHARACTER CONSTANT TABLE 

A4 5 

G1 5 

|ZTAB01 

1 EQU 

008 

NAMTAB 

NAME TABLE 

A2 5 

COO 

j ZTAB02 

EQU 

168 

SYMTAB 

SYMBOL TABLE 

B10 

F90 

j ZTAB03 

1 EQU 

024 

FILTAB 

FILE TABLE 

B25 

G1 7 

|ZTAB04 

1 EQU 

032 

EXTTAB 

EXTERNAL NAME TABLE 

B97 

G25 

j ZTAB05 

1 EQU 

040 

ARYTAB 

ARRAY INFORMATION TABLE 

B95 

D1 5 

j ZTAB07 

1 EQU 

056 

DSTAB 

DS TABLE 

F25 

F90 

j ZTAB08 

1 EQU 

064 

CONTAB 

CONSTANT TABLE 

F35 

G 1 5 

| ZTAB11 

1 EQU 

088 

OFFTAB 

FINAL OFFSET TABLE 

F90 

G15 

| ZTAB16 

| EQU1128 

CARDS 

CARDS FOR FINAL OUTPUT 

G20 

G55 

j ZTAB18 

1 EQU 

144 

FORMTAB 

FORMAT LABEL TABLE 

C60 

D1 5 

j ZTAB21 

|EQU|016 

LI TAB 

LIOCS TABLES 

A0 0 

G55 

j ZTAB19 

j EQU j152 

CONEQU 

EQUATE TABLE 

F35 

F90 

j ZTAB19 

jEQU|152 

LABTAB 

LABEL OFFSET TABLE | 

GOO 

G25 


Figure 4. Assembly Listing of the Interface Communication Region (Part 2 of 2) 
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The second part consists of communi¬ 
cation bytes. These are various DC entries 
where information is exchanged from phase 
to phase. This part further includes 
entries for the work buffer length, the 
start address of the Table and Buffer 
Areas, and the TABTAB address. The entry 
IJKMJT contains job information bits which 
indicate special features of the source 
program to be compiled, e.g., structures, 
etc. 

The third part is a register save area 
used by the individual interface routines. 


functions of the control routines is the 
setting, resetting, and testing of flag 
bits in KTETA. 

r -»- T - n 

| Bit 0 | Index for writing | 

| Bit 1 | Index for end of file | 

I Bit 3 I Index for first read call | 

j Bit 3 i Index for rewinding j 

j Bit 4 j Index for checking j 

| Bit 5 j Index for POINTW | 

j Bit 6 | Index for NOTE j 

| Bit 7 j Index for POINTR | 

L-X-J 


The fourth part is a string of EQU 
statements specifying register names and 
offsets of TABTAB entries. 

N ote: The base register (register 15) is 

saved by the subroutines. Therefore, no 
reloading of the base address is required 
in the compiler phase after a macro 
instruction has been issued. 

H ousekeeping o n Wo rk F i les 

The functions of SYS002 and SYS003 (text 
input and output, respectively) are normal¬ 
ly switched at the end of a compiler phase. 
This switching is done by means of the 
table KTETA, which is part of the communi¬ 
cation region and contains file specifi¬ 
cation information for SYS001, SYS002, and 
SYS003• The format of this table is shown 
in Figure 4. The table contains one 4-word 
entry for each of the work files. The 
contents of each 4-word entry are described 
below. 

The first word contains the address of 
the file definition table. The second word 
contains the address of the I/O area used 
(for SYS002 and SYS003 only) . For over¬ 
lapped I/O operation, the same I/O area is 
always assigned to one of SYS002 and 
SYS003. The third word contains the record 
identifier for the last record written on 
the file. It is changed whenever the end 
key for the information written must be 
saved. The first byte of the fourth word 
contains housekeeping flag-bytes (see Fig¬ 
ure 5) . Bytes 3 and 4 are used to accommo¬ 
date the available track length. 

The first two words of KTETA contain 
pointer addresses. Each address points to 
one of the 4-word entries for SYS002 and 
SYS003. The first one of these pointers 
represents text input, the second rep¬ 
resents text output. Switching of the I/O 
functions for these units simply consists 
of an exchange of these first two words in 
KTETA. 

The use of this table is discussed in 
more detail in the description of the indi¬ 
vidual control routines. One of the main 


Figure 5. Flag Bits Used in KTETA 

The information to be exchanged between 
phases is stored in the form of tables 
written on SYS001. A communication table, 
referred to as TABTAB and following the 
Interface area, is provided for accessing 
these tables. Each table is pointed to by 
an 8-byte entry in TABTAB. Each entry 
contains the information shown in Figure 6. 


I BYTES 


MEANING 
Bit 0 = 1 
Bit 1 = 1 
Bit 2 = 1 


H 


2 — 4 
5—6 
7—8 


indicates that the table 
is on SYS001 

indicates that that table 
is in storage 
indicates that transfer 
to or from SYS001 has 
been started 
of the first table 
SYS001 

records on SYS001 for the 


Identifier 
record on 
Number of 
table 

Length of a record on SYS001 


_j 


Figure 6. Format of Entries in TABTAB 

Two special routines (ZTIN and ZTOUT) 
are provided for reading and writing tables 
or part thereof on SYS001. If these rou¬ 
tines are to be used, the entry for record 
length must have been specified by the 
compiler phase. The housekeeping on the 
other TABTAB entries is explained in the 
discussion of the individual routines. 

Interface Structure for DOS/TOS Versions 


The structure of the interface differs 
according to the DOS/TOS version used. The 
differences are as follows: 

1. The work files used for the tape ver¬ 
sion are of the form DTFMT, MTMOD. The 
same is used for the disk version if 
the work files are assigned to tapes. 
DTFSD, SDMOD is used if the work files 
are assigned to disks. For the disk 
version, file tables and modules for 
DTFSD, SDMOD are loaded. During the 
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initialization, the type of work files 
is tested and, if necessary, tables and 
modules for tape work files are loaded 
(phase A10) to overlay the previous 
ones. Thus, the user may change his 
assignments for work files on tape or 
disk from job to job if he used the 
disk version. 

2. If the work files are assigned to disk, 
a flag bit is set in the interphase 
communication region during Initializa¬ 
tion, and a conditional branch instruc¬ 
tion in the control routine for text 
input (IJKAGI) is changed to an uncond¬ 
itional branch. 

3. For the disk version, the file paramet¬ 
er DISK=YES is always specified for the 
file IJSYSLN. For the 32K disk ver¬ 
sion, the same parameter DISK=YES is 
specified for the files IJSYSIN, IJSY3- 
IS, and IJSYSPH• 

4. The output listing header lines differ 
for the disk and tape versions. This 
implies differences in the listing 
phases. 

LI OCS Modules Used by t he Interface 

The logical LIOCS modules used by the com¬ 
piler are included during the Linkage Edi¬ 
tor run; they are not assembled together 
with the phases. 

The module name for the files IJSYSIN, 
IJSYSLS, and IJSYSPH is IJJCPO for the tape 
version and the 16K disk version; it is 
IJJCPDO for the 32K disk version. 


Routine 


Calling Macro Instruction 


IJKAtfT 


IJKWT 


IJKANT 


IJKNT 


-H 


IJKAPTR* 
IJKAPT* 


IJKPTR 

IJKPT 


(.-- 

IJKAPH 




IJKPH 


- 

IJKASI* 

IJKA30* 

IJKA31 NO* 
IJKA30N0* 
IJKAPI* 

IJKAPO* 
IJKAPINO* 
IJKAPONO* 


IJKGI 

IJKGO 

IJKRI 

IJKRO 

IJKPI 

IJKPO 

IJKWI 

IJKWO 


h 


IJKAMN 


IJKMN 


IJKATIN 


h 


Contained in ZTIN 
(see Figure 8) 


IJKATOUT 


Contained in ZTOUT 
(see Figure 8) 


(.- 

|*=Routine with more than one entry point 

L_____ 

Figure 7. Interface Routines Called by 
Macro Instructions 


The routines listed in Figure 7 inter¬ 
nally use the following subroutines: KGET- 
NOTE, KREAD, KCHECK, and K2CHECK. (The 
last two names are entry points of the same 
routine.) 


( 



The module name for the file IJSYSLN is 
IJJCPO for the tape version and IJJCPDO for 
both disk versions. 

The module name for work files is 
IJGWZNZZ for disk work files, and IJFWZNZZ 
for tape work files. 

The work file module is always in stor¬ 
age; the other modules are in storage only 
together with the phases needing them, and 
overlaid by other phases. 


INTERFACE ROUTINES USED BY COMPILER PHASES 

There are two classes of routines. The 
first class comprises routines that remain 
in storage during the entire compilation 
(with the exceptions described in phase 
C9 5) . They are called by macro instruc¬ 
tions in the compiler phases. 

The names of the routines and the cor¬ 
responding macro instructions are listed in 
Figure 7. 


Note : KCHECK and K2CHECK are entry points 

of the same routine. 

The second class of routines comprises 
all routines that can be assembled in the 
phase either directly or by means of macro 
instructions. These routines are called 
inside the phases by appropriately branch¬ 
ing to them. The names of these routines 


and the corresponding macro instructions to 


include them 

are listed in Figure 8. 

r 

Routine 

...... . 

r i 

Macro for Assembly | 

^ ^ -1 

■ 

ZTIN 

ZTOUT 

ZMO 

ZRCD 

ZPRNT 

ZLEDI 

ZPCH 

l- J 

1 

IJKTI 1 

IJKTO 1 

IJKMO 

L J 


Figure 8. Interface Routines Assembled 
In-Line either Directly or by 
Macro Instructions 
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The source programs for ZRCD, ZPRNT, 
ZLEDI , and ZPCH are part of the correspond¬ 
ing phase source program. 

The functions of all interface routines 
and the corresponding macro instructions 
are explained in the following sections. 


KCHECK, K2CHECK — AF 

When this subroutine is called/ register 0 
(KCHECK) or register 2 (K2CHECK) contains 
the address of a work file item in KTETA. 

If necessary/ the subroutine issues a CHECK 
macro instruction for this work file. For 
correct housekeeping on the record iden¬ 
tifier in the LIOCS/ this CHECK macro 
instruction must be given only once after 
each read or write operation. The check 
index (a flag bit in KTETA) is used to 
check whether the CHECK macro instruction 
is required. 


L ZREGO/KTETA 
BAL ZREG 14/32 (ZREG12) 

IJKAWT performs the wait function by using 
the subroutine KCHECK. 

IJKANT — AG 

This routine is called to obtain the actual 
record identifier. This may be repeated 
several times after a read or write opera¬ 
tion. On return, register 0 contains the 
available track length (useful after writ¬ 
ing on disk only) / register 1 contains or 
the record identifier. The other registers 
remain unchanged. The macro for calling is 
IJKNT with one of the parameters I, 0, or 
T. 

The parameters I f 0, and T specify text 
input/ text output/ and table medium/ res¬ 
pectively. An example for the macro expan¬ 
sion is: 


KG ETNOTE — AF 

When this subroutine is called/ register 2 
contains the address of a work file item in 
KTETA. The subroutine performs some house¬ 
keeping and issues a NOTE macro instruc¬ 
tion. If a first call is performed after a 
write operation/ the record identifier 
obtained by NOTE is saved in KTETA together 
with the information for available track 
length. If a further call is performed 
after a write operation/ no further NOTE is 
issued/ but the information saved in KTETA 
is returned as for the preceding call. If 
a call is performed just after reposition¬ 
ing of the work file (in IJKAPH) , a zero is 
returned in register 1 for the record iden¬ 
tifier. This zero, if used in calling 
IJKAPT or IJKAPTR/ causes a POINTS macro 
instruction to be issued. 


K READ — AF 

KREAD merely is the expansion of a work 
file read macro instruction. 


I JKAWT — AG 

This routine is called by a compiler phase 
to wait for the completion of a read or 
write operation on a work file. On return/ 
all register contents are unchanged. The 
macro for calling is IJKWT with one of the 
parameters 1, 0 t or T. 


The parameters I, 0/ and T specify text 
input/ text output/ and table medium/ res¬ 
pectively. The macro expansion is a load 
instruction loading the address of a work 
file item in KTETA into register 0/ and a 
branch-and-link instruction that branches 
to the branching vector in the interphase 
communication region. An example for the 
macro expansion is: 


L ZREGO,KTETA+4 
BAL ZREG14/8 (ZREG12) 

IJKANT performs the NOTE function by using 
the subroutines KCHECK and KGETNOTE. 

IJKAP TR/ I JKAPT — AG 

This routine performs a POINTW (IJKAPT) / a 
POINTR (IJKAPTR) or a POINTS operation (see 
description below) on a work file. On 
return, all register contents are 
unchanged. The macro instructions for 
calling are either IJKPT or IJKPTR with one 
of the parameters I, 0, or T. 

The parameters I, O, and T specify text 
input, text output/ and table medium/ res¬ 
pectively. 

If one of these macros is given in a 
compiler phase, register 1 must contain the 
record identifier of the record to be 
pointed to (as obtained after a NOTE) . If 
IJKPT is given, register 0 must contain the 
available track length only if a write 
command follows this pointing. An example 
for the macro expansion of IJKAPTR is: 

L ZREGO/KTETA+4 
BAL ZREG 14/64 (ZREG12) 

The first instruction loads the address of 
a work file item in KTETA into register 0 f 
the second instruction branches to the 
branching vector. An example for the macro 
expansion of IJKAPT is: 

STH ZREGO/KSAVE7 
L ZREGO/KTETA+4 
BAL ZREG 14/24 (ZREG12) 

The first instruction saves the contents of 
register 0 f which may be the available 
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track length* The two other instructions 
are as shown for IJKAPTR. 

The routine first calls the subroutine 
KCHECK. Then a test is made to determine 
whether the record identifier in register 1 
is zero* If it is zero, a POINTS is 
issued, otherwise a POINTR or a POINTW, 
depending on the calling macro instruction. 

Eventually, some flag bits are reset if 
a point was done with the actual end key 
stored in KTETA. 


IJKAPH, KREP — AH 

The routine IJKAPH is normally used at the 
end of a compiler phase. It fetches a new 
compiler phase if requested by the calling 
program and repositions SYS001 and/or 
SYS002, if required. Moreover, the func¬ 
tions of SYS001 and SYS002, as regards text 
input and output, can be switched. 


If rewinding or switching is requested 
by the calling program, register 0 must 
contain a specified number according to the 
following convention: 


<register 0> = 0 

Cregister 0> = 1 

Cregister 0> = 2 

Cregister 0> = 3 

Cregister 0> = 4 
Cregister 0> = 5 

Cregister 0> = 6 

Cregister 0> = 7 


No rewinding, no switch¬ 
ing 

Rewind input medium, no 
switching 

Rewind output medium, no 
switching 

Rewind both media, no 
switching 

No rewinding, switching 
Rewind input medium, 
switching 

Rewind output medium, 
switching 

Rewind both media, 
switching 


If a new compiler phase has to be 
fetched, register 1 must contain the 
address of a 4-byte character string that 
contains the last three character bytes of 
the phase name (right-aligned) . Note that 
all compiler phase names differ in the last 
three characters only. 

The routine first rewinds the text 
media, if necessary, using the subroutine 
KREP. It then switches their functions, if 
required. Finally< some housekeeping is 
done and a FETCH macro instruction is given 
if a new phase is required by the calling 
program. 


IJKPH NEWPH=,REW=ALL|I|O,SWITCH=NO 

If a new phase is required, the keyword 
NEWPH must be specified followed by an 
equal sign and the three ending characters 
of the phase name. If NEWPH is not speci¬ 
fied, no phase is fetched, and the routine 
returns to the calling program. For rew¬ 
inding, the keyword REW may be specified 
followed by an equal sign and one of the 
parameters NO, ALL, I, or 0. The meaning 
of these parameters is: 

NO No medium must be rewound 
ALL Both media must be rewound 
I The actual input medium must be 
rewound 

0 The actual output medium must be 
rewound 

If REW= with a parameter is not speci¬ 
fied in the macro instruction, both media 
are automatically rewound. For switching 
of functions, the keyword SWITCH is speci¬ 
fied followed by an equal sign and one of 
the parameters YES or NO. The meaning of 
these parameters is: 

YES Switching is performed 
NO Switching is not performed 

If SWITCH= with a parameter is not spec¬ 
ified, switching is done automatically. 

IJKAGI,IJKAGO,IJKAGINO,IJKAGONO — AI, AJ 

This routine is used to read records from a 
work file medium. It can be called by 
various macro instructions. Each macro 
instruction provides a branch to a specific 
entry point by means of the branching vec¬ 
tor. The correspondence is: 


- . - T - 

Macro | 

Instruction|Entry Point 


h 


Function 


IJKGI 


I IJKAGI 


IJKGO 

|IJKAGO 

1 

IJKRI 

1 

| IJKAGINO 
1 

IJKRO 

1 

|IJKAGONO 

1 


J. _ . 


Overlapped input 
from text input 
medium. 

Overlapped input 
from text output 
medium. 

Non-overlapped 
input from text 
input medium. 
Non-overlapped 
input from text 
output medium. 


If a write operation was the last opera¬ 
tion performed on a text medium, the actual 
end key for this medium is saved prior to 
rewinding. 

The routine IJKAPH can be called by the 
keyword macro instruction: 


When one of these macro instructions is 
given in a compiler phase, register 1 must 
contain the address of the area where the 
new record is required. For IJKRI and 
IJKRO, this is the input area for reading; 
for IJKGI and IJKGO, this is the work area. 
Note that overlapped input means that the 
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record is available after returning from 
this routine, whereas non-overlapped input 
means that reading in the indicated area is 
started on return from the routine. 


Some indices and pointers for KTETA are 
set first, depending on the entry point 
used. Then (only on the disk version, see 
I nitialization ) a test is made to determine 
whether a POINTW operation for the same 
file preceded this call. If so, a dummy 
read is performed to position the medium 
for reading. 


Macro 

— T 

|Entry Point 

T 

|Function 

1 . _ _ 

IJKPI 

_ | _ . 

1IJKAPI 

1 

|Overlapped output 

IJKPO 

i 

i 

|IJKAPO 

|on text input 
|medium. 

|Overlapped output 

IJKWI 

1 

1 

|IJKAPINO 

|on text output 
j medium, 
j Non-overlapped 

IJKWO 

1 

1 

|IJKAPONO 

|output on text 
j input medium, 
j Non-overlapped 


1 

1 

J. 

j output on text 
(output medium. 



For overlapped working, a test is made 
to determine whether reading in the over¬ 
lapped mode has already been started. If 
this is not the case, a first record is 
read into the input area. 


Before moving this record into the work 
area, the routine waits for completion of 
the preceding read operation. Finally, a 
new reading is started, and the routine 
returns to the calling program. 


For non-overlapped working, the routine 
checks for completion of any previous oper¬ 
ation. Then, a new read operation into the 
input area indicated in register 1 is 
started. 


N ote: Each starting of a new read opera¬ 

tion is preceded by a test to determine 
whether the work file medium is positioned 
at the end of the information written on 
it. If it is, the routine returns without 
having started a new read operation. 


The entry point at box G2 in flowchart 
AI is used by the routine IJKATIN to read a 
table record from IJSYS001 in non- 
overlapped mode. 


The routine normally returns with 
register 0 set to 0. However, if no more 
records are available, register 0 contains 
a 1. All other registers are unchanged. 


I JKAPI, IJKAPO, IJKAPINO, IJKAPONO — AK 


When one of these macro instructions is 
given in a compiler phase, register 1 must 
contain the address of the area from where 
the new record has to be read. Each macro 
expansion is a branch-and-link instruction 
that branches to the branching vector. For 
IJKWO and IJKWI, this is the output area 
for writing; for IJKPI and IJKPO, this is 
the work area. 


Non-overlapped output means that writing 
from the output area is started on return 
from the routine. Overlapped output means 
that the output record is first moved from 
the work area to the output area used by 
the interface. Output is then started from 
there before returning. 

The routine sets some indices and poin¬ 
ters in the table KTETA depending on the 
entry point used. It checks for completion 
of any previous operation on the same file. 
A test is made to determine whether a 
POINTW is required for the file to position 
the medium at the end of the information 
actually written on it. If so, a POINTW is 
issued with the end key saved in KTETA. 

This end key is saved on each NOTE after a 
write operation. No POINTW is required if 
a write or rewind command was given last. 
This concept allows the compiler phases to 
interrupt the writing by some intermixed 
reading. 

After this test, a record is moved from 
the work area to the output area if over¬ 
lapped working was requested. Writing is 
then started and the routine returns with 
all register contents unchanged. 


IJKAMN — AL 



This routine writes records on a work file. 
It can be called by various macro instruc¬ 
tions. Each macro instruction provides a 
branch to a specific entry point by means 
of the branching vector. The correspon¬ 
dence is shown below. 


This routine is used to move a record of 
any length from one area to another. Over¬ 
lapping of the form that the start address 
of the TO area lies inside the FROM area is 
not allowed. The routine first moves sin¬ 
gle 256-byte records until a field shorter 
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than 256 bytes remains to be moved. The 
residual moving length is then calculated 
and moving is performed. If the whole 
length on calling is zero, no moving is 
performed by the routine. 

IJKAMN can be called in the source pro¬ 
gram of the compiler phase by the macro 
instruction IJKMN. The macro expansion 
consists of a branch-and-link instruction 
that branches to the branching vector in 
the interphase communication region, e.g.: 
ZREG14,44 (ZREG12) 

The following register contents must have 
been provided: 

register 0 - total field length, 
register 1 - start address of the TO field, 
register 2 - start address of the FROM 
field. 

On return from the routine, registers 1 
and 2 contain the end addresses +1 of the 
corresponding fields. The content of reg¬ 
ister 0 is undefined. All other registers 
remain unchanged. 

IJKATIN — AL 

This routine is called by ZTIN in the com¬ 
piler phase to read a record from SYS001 in 
non-overlapped mode. On calling, the 
address of the input area is contained in 
register 1. This address and the maximum 
table record length are supplied to the 
subroutine KREAD. The routine then branch¬ 
es to some entry point of IJKAGINO. There 
is no macro instruction to call this rou¬ 
tine. 

IJKATOUT — AL 

This routine is called by ZTOUT in the 
compiler phase to write a record on SYS001 
in non-overlapped mode. On calling, the 
address of the output area is contained in 
register 1, the length is contained in 
register 0. The register contents are 
supplied to the routine IJKAWI. The rou¬ 
tine then branches to some entry point of 
IJKAPINO. There is no macro instruction to 
call this routine. 

Z TIN — AM 

The symbolic start address of this routine 
is ZTIN. It can be called into the source 
program of a compiler phase by the macro 
instruction IJKTI. On branching to the 
routine, the following register contents 
must have been provided: 

Cregister 0> = Number of records to be 
read, 

Cregister 1> = Start address of the read-in 
area of the records, 
Cregister 2> = Relative address of the 
entry in TABTAB. 


A table can be read from SYS001 in sev¬ 
eral steps, i.e., by branching to ZTIN 
several times for the same table. If a 
table is to be read in from its beginning, 
bit 2 of the corresponding TABTAB entry 
must be set to zero prior to branching to 
the routine. In all other cases, it must 
be set to one. 

The routine first tests whether bit 2 of 
the TABTAB entry is zero. If it is, the 
following steps are performed: 

1 * If a write operation was the last oper¬ 
ation on SYS001, the last record writ¬ 
ten is first identified by a NOTE macro 
instruction; the identifier is saved 
for writing on SYS001 at a later time. 

2. Bits 1 and 2 of the TABTAB entry are 
set to 1. 

3. SYS001 is repositioned according to the 
record identifier found in the TABTAB 
entry, provided that this record iden¬ 
tifier is less than the identifier for 
the last record written on SYS001. If 
the record identifier is higher, com¬ 
piling is terminated with an error 
dump. Then the reading of the single 
records is started. 

The routine normally returns to the 
calling program when reading of the last 
record has been started. Thus, a limited 
overlapping of I/O and processing is possi¬ 
ble. 

A test is made for each record to be 
read to check that it is not located beyond 
the end of information written on SYS001. 

If this test matches for each record, the 
routine returns with register 0 set to 0. 

If this test does not match for a new read¬ 
ing, ZTIN is terminated immediately and 
returns with register 0 set to 1. 

The routine ZTIN performs its I/O func¬ 
tions by calling routines in the compiler 
control program. The record length is the 
physical record length for each record 
read. 

ZTOUT — AN 

The symbolic start address of the routine 
is ZTOUT. It can be called into the source 
program of a compiler phase by the macro 
instruction IJKTO. On branching to the 
routine, the following register contents 
must have been provided: 

<register 0> = End address of the output 
area+1, 

Cregister 1> = Start address of the output 
area, 

Cregister 2> = Relative address of the 
entry in TABTAB. 
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If the beginning of a table is to be 
written on SYS001, bit 2 of the correspond¬ 
ing TABTAB entry is set to zero prior to 
branching to ZTOUT. In this case, the 
identification for the first record written 
is saved in TABTAB after this record has 
been written on SYS001. In all other 
cases, bit 2 of the TABTAB entry is set to 
1 . 

Prior to starting the write operation, 
the routine checks whether the end address 
in register 0 is less than or equal to the 
start address or whether the record length 
RL stored in the TABTAB entry is not in the 
range 18 < RL < 3500. The compilation is 
terminated with an error dump if these 
conditions occur. 

After the first record has been written 
on SYS001, bit 2 in the TABTAB entry is 
checked for zero. If it is zero, the fol¬ 
lowing is done prior to the next write 
operation: 

1. The record identification for the 
record just written is saved in the 
TABTAB entry; 

2. The number of records written for the 
table on SYS001 is set to 1 in the 
TABTAB entry; 

3. Bits 0 and 2 of the flag byte in TABTAB 
are set to 1. 

The length of the records written is 
determined^ by the TABTAB entry. The rou¬ 
tine normally returns after having started 
the writing of the last record. The length 
of this record is at least 18 bytes. 


Z RCD — AO 

This routine is used to read source cards 
and to print lines on SYSLST. Reading and 
printing is done in overlapped mode. 

This routine uses ZPRNT as a ubroutine 
for printing. Each line is 120 characters 
long. For reading, the routine contains 
the two I/O areas used for overlapped read¬ 
ing. 

On each call but the first, the routine 
writes a line and then reads a card. On 
the first call, only the first card is 
read. On each return from the routine, 
register 10 points to the start address of 
an alternative input area where a card has 
been read in. Register 11 points to the 
start address of an alternative output area 
where the record for output on SYSLST can 
be built. 

The logical IOCS used for reading is of 
the type DTFCP, CPMOD. The branch address 


for the end-of-file condition is ELCO10 in 
phase A25. 

ZLEDI — AO 

This routine is used to write a record on 
SYSLNK in non-overlapped mode. Only one 
output area of the length 322 bytes is 
used. This output area is located in the 
Buffer Areas otherwise used as I/O areas 
for text input and output. Its start 
address is equal to the start address of 
the two Buffer Areas. Each output record 
is 322 bytes long (4 cards). The first two 
bytes of the output record contain the 
number of logical records and the 

length of a single logical record (80) , 
respectively. This control information is 
provided by the phase. 

On return from ZLEDI, the output is 
completed and a new record can be built in 
the output area. 

ZPCH -- AO 

This routine is used to produce a record on 
SYSPCH in overlapped mode. The length of 
each output record is 81 characters, the 
first character being a control character 
for stacker selection. 

Two 80-byte I/O areas are specified for 
overlapped output in the uppermost Buffer 
Area otherwise used as I/O area for text 
input and output. No text input or output 
is performed during execution of a phase 
that contains ZPCH. Register 10 is used to 
point to the I/O area where the next record 
for output on SYSPCH can be built by the 
phase. This register must not be changed 
by any phase using ZPCH. 

On each return from the routine, reg¬ 
ister 10 points to an alternate I/O area. 

Prior to the first branch to ZPCH, the 
compiler phase must issue the macro 
instruction IP to load register 10 with the 
address of the first I/O area where the 
phase can build the first output record. 

The expansion of the IP macro instruction 
is: 

L Z REG10,IJKMPC 

LA ZREG10,1 (ZREG10) 

IJKMPC is an entry in the communication 
region and contains the output area address 
for the first output on SYSPCH. This 
address is stored during initialization. 

ZPRNT, HESUB — AP 

The routine ZPRNT is used for any output on 
SYSLST. The routine automatically provides 
header lines and subheader lines on each 
page, using the subroutine HESUB. 
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Each header line contains compiler name, 
program number, change level, job name, and 
page number. The content of the subheader 
line depends on the compiler phase. 

Each line is 120 characters long. Writ¬ 
ing of single lines is done in overlapped 
mode. Therefore, two I/O areas are speci¬ 
fied in the fifth work buffer. Register 11 
is used as I/O register to point to the 
output area where the next record can be 
built by the phase for output on SYSLST. 
This register must not be changed by the 
phase containing ZPRNT. On each return 
from the routine, register 11 points to an 
alternate I/O area. The register content 
is saved in the entry IJKMPR in the inter¬ 
phase communication region at the end of 
the initialization and at the end of any 
listing phase. 

Prior to the first branch to this rou¬ 
tine, the compiler phase must issue the 
macro instruction IJKIL. The expansion of 
this macro instruction is: 

L ZREG11,IJKMPR 
LA ZREG1 1 , 1 (ZREG1 1) 

01 IJKMJT+1,X 1 01 1 

The first instruction loads the register 
with the saved content. The register then 
points to the control character position. 
The second instruction causes the register 
to point to the first position of informa¬ 
tion to be given out. The last instruction 
sets a flag bit for printing in the inter¬ 
phase communication region, this flag bit 
is tested at phase end in the routine 
IJKAPH for end of phase. 


start address of the TO field is higher 
than that of the FROM field, the field is 
moved step by step from the right to the 
left. The move length for a single step is 
thereby calculated according to the follow¬ 
ing formula: Move Length = Min (256, field 
length, address difference) . This move 
length implies a correct moving for any 
field overlapping. 


LOGICAL IOCS FOR THE TAPE VERSION 
Work Files SYSQQ1, SYSQQ2 and SYSQQ3 


The first control section of phase A00 
contains the DTFMT tables for these work 
files . The name of this control section 
is IJXAOO. 


The file specifications are the same for 
all three work files, e.g.. 


IJSYS01 DTFMT BLKSIZE 
DEVADDR 
EOFADDR 
NOTEPNT 
RECFORM 
TYPEFILE 
MODNAME 


3072 

SYS001 

K0 01EOF 

YES 

UNDEF 

WORK 

IJFWZNZZ 


For IJSYS002 and IJSYS003, the blocksize 
entry is BLKSIZE = 1536. 

The address of the input or output area 
is specified in the expansion of the res¬ 
pective READ or WRITE macro instruction. 

The file specification implies non- 
overlapped working. Thus, overlapping, if 
any, is done by the control routines. 


i 


Z MO — AQ 

This routine is used to move a record of 
any length from a FROM field to a TO field. 
The two fields may overlap. The routine is 
assembled in the source program of a com¬ 
piler phase by the macro instruction IJKMO. 

It can be called in the phase by branch¬ 
ing to ZMO. There is the following conven¬ 
tion on register contents for calling: 

register 0 contains the field length, 
register 1 contains the start address of 
the TO field, 

register 2 contains the start address of 
the FROM field. 


The logical IOCS module is not assembled 
in phase A00; it is included during linkage 
editing. 

DTFCP Files for SYSLST, SYSIPT, SYSPCH and 
SYSLNK 

For device independence, the logical IOCS 
used for these files is of the type DTFCP, 
CPMOD. 

The file specifications for the print 
file IJSYSLS are assembled in phase A00 in 
the control section IJXA01. This DTFCP 
table remains in storage throughout the 
entire compilation (for exceptions see 
phase C95) . The file specifications are: 


On return, registers 1 and 2 contain the 
end address+1 of the corresponding fields. 
The content of register 0 is undefined. 

All remaining registers are unchanged. 

The routine first tests whether the 
start address of the TO field is lower than 
that of the FROM field. In this case, the 
routine IJKMN is called for moving. If the 


IJSYSLS DTFCP 


DEVADDR 

= SYSLST 

IOAREA1 

= KTETA 

I0AREA2 

= KTETA 

RECSIZE 

= 121 

TYPEFLE 

= OUTPUT 

IOREG 

= 11 


The module IJJCPO is included in all 
printing phases during linkage editing. 
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The addresses of the two I/O areas are 
fixed in the Initialization routine. 

Output for listing is always done in over¬ 
lapped mode, using two I/O areas and reg¬ 
ister 1 1. 


The file specifications for the input 
file IJSYSIN are assembled in phase A00 in 
the control section IJXA06. This DTFCP 
table serves for input during phase A25. 

It is further used for closing the file 
IJSYSIN in the last compiler phase. It is 
therefore written on SYS001 in phase A3 0 in 
order to save storage during the other 
compiler phases. The file specifications 
are: 


IJSYSLN DTFCP DEVADDR 
I0AREA1 
RECSIZE 
TYPEFLE 


SYSLNK 

KTETA 

322 

OUTPUT 


The module IJJCPO for this file is the 
same as for the punch file. Output is done 
in non-overlapped mode. The address of the 
output area is fixed in the Initialization 
routine. The first two bytes of the output 
record contain the number of logical 
records (4) and the length of a single 
record (80) , respectively. 


LOGICAL IOCS FOR THE DISK VERSIONS 




IJSYSIN DTFCP 


DEVADDR = SYSIPT 
IOAREA1 = KTETA 
IOAREA2 = KTETA 
RECSIZE = 81 
EOFADDR = ELCO10 
TYPEFLE = INPUT 
IOREG = 9 


The module IJJCPO for this input and for 
listing is included in phase A00 during 
linkage editing. It is not overlaid during 
phase A25. Input is done in overlapped 
mode using two input areas and register 9. 
The input areas are fixed in the Initiali¬ 
zation routine. 


The file specifications for the punch 
output file IJSYSPH are assembled in the 
control section IJXA06. After this file is 
opened in the Initialization routine, the 
file table is written on SYS001 to save 


Work Files SYS001, SYS002 and SYS003 


Disks will normally be used as work files 
for the disk versions. Therefore, the 
first control section of phase A00 (DOS 
16K) or AO0D (DOS 32K) contains the DTFSD 
tables for these work files. This control 
section is named IJXA00 (DOS 16K) or 
IJXA00D (DOS 32K) . 

The logical IOCS module named IJGWZNZZ 
and used for these work files on disk is 
not assembled in phase A00 or phase A00D, 
but included during linkage editing. Dur¬ 
ing the Initialization routine, the con¬ 
figuration is tested for tape media for 
these work files. If tapes are specified, 
phase A10 is loaded at the location of the 
tables and the module for the work files 
(see phase A10) . The file specifications 
are the same for all three disk work files, 
e.g., 


storage. It is reloaded into storage by 
phase G55 for punching and closing the 
file. The file specifications are: 

IJSYSPH DTFCP 


IJSYS001 DTFSD BLCKSIZE = 3072 


DEVICE 

EOFADDR 

NOTEPNT 


= 2311 
= KOOIEOF 
= YES 


DEVADDR 

= 

SYSPCH 

RECFORM = UNDEF 

IOAREA1 

= 

KTETA 

TYPEFLE = WORK 

IOAREA2 

= 

KTETA 

DELETFL = NO 

RECSIZE 

= 

81 

MODNAME = IJGWZNZZ 

TYPEFLE 

= 

OUTPUT 


IOREG 

- 

10 

For IJSYS002 and IJSYS003, the blocksize 


entry is BLCKSIZE = 1536. 


The module IJJCPO for this output is 
included in phase G55 during linkage edit¬ 
ing. Output is done in overlapped mode 
using two output areas and register 10. 

The output areas are fixed in the Initiali¬ 
zation routine. 

The file specifications for IJSYSLN are 
assembled in the control section IJXA06. 
After this file is opened in the Initiali¬ 
zation routine, the file table is written 
on SYS001 to save storage. It is reloaded 
into storage by phase G55 for link file 
output and for closing the file. The file 
specifications are: 


DTFCP Files for SYSIPT, SYSLST, SYSLNK, and 
SYSPCH 

The handling of these files is similar to 
that of the tape version. The exception is 
the parameter DISK = YES in some file 
specifications. This parameter is always 
given for the link file IJSYSLN. For the 
other three files, it is only entered for 
DOS 32K. Whenever I/O functions are 
requested for a file with the parameter 
DISK = YES, the module IJJCPD0 instead of 
IJJCPO is included during linkage editing. 
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P HASES PL/IAOO, AOOD, A10 (INITIALIZATION) — AR 



The first phase loaded during a PL/I compi¬ 
lation is either PL/IAOO (for DOS 16K and 
TOS) or PL/IAOOD (for DOS 32K) . Phases A00 
and AOOD contain 

the interphase communication region. 


the interface, and 

the initialization routine. 

Phases A00 and AOOD differ in the DTF 
tables and modules. 

The PL/I compilation starts with the 
Initialization routine that performs some 
preparation for the entire compilation. If 
the disk version is used and tape drives 
are assigned to work files SYS001, SYS002, 
and SYS003, the Initialization routine 
calls phase A10 to overlay the DTF tables 
and module for disk work files. 


S torage Map of Interface A00 for Disk 16K 

The object module of A00 consists of 3 
control sections. The first section 
(IJXAOO) contains the LIOCS tables for work 
files and the module IJGWZNZZ, which is 
called from the relocatable library by the 
Linkage Editor. 

The second section (IJXA01) contains the 
Save Area for LIOCS, the interphase com¬ 
munication region, the control routines 
which are always in storage, the LIOCS 
table for SYSLST, the area reserved for 
TABTAB, and the CP module, which is called 
from the relocatable library by the Linkage 
Editor. 

The third section (IJXA06) contains the 
LIOCS tables for IJSYSIN, IJSYSPH, and 
IJSYSLN and the Initialization routine. 

After opening the files, the tables for 
IJSYSPH and IJSYSLN are written on SYS001 
during the initialization; they are reload¬ 
ed into storage by the final output phases 
of the compiler. Thus, the storage area 
can be overlaid by all other compiler phas¬ 
es. The same applies to the table for 
IJSYSIN after phase A25. 

The load point for most phases is IJXA05 
+ 4. Exceptions may be looked up in the 
Linkage Editor mapping for the compiler. 

For a schematic representation for the 
storage layout for phase A00 see Figure 1. 


r - T -1 

IJXAOO*)LIOCS tables for work files 

f - 

k - 

jSD module IJGWZNZZ** 

h-^ 

-1-^ 

IJXA01 jSave area for LIOCS (72 bytes) 

f - 

|Interphase communication region 

\r -^ 

I 

I 

|Control routines that are always 
| in storage 

I 

I 

i f - 

IJXA04 jLIOCS table for IJSYSLS 

I--^ 

IJXA05 jTABTAB 

|-- 

(.-^ 

(CP module IJJCPO*** 

f-^ 

-1-.) 

IJXA06 |LIOCS table for IJSYSIN 

j.- 

jLIOCS table for IJSYSPH 

h- 

jLIOCS table for IJSYSLN 

t- 1 

|Initialization 


j* for 32K disk : AOOD | 

|** for tape : MT module IJFWZNZZ j 

I*** for 32K disk : IJJCPDO j 

L___ r _J 

Figure 1. Storage Map of IJXAOO for 16K 
Disk 

Initialization for Tapes — AS 

This routine has two principal functions: 
storage allocation during PL/I compilation 
and opening of files. Storage allocation 
and some housekeeping functions depend on 
the type of the work file. Therefore, the 
routine shown in flow chart AS is used both 
in the tape version and in the disk version 
with tape work files. Opening of files is 
identical for the disk and tape versions. 

For tape work files, the initialization 
begins with rewind commands for SYS001, 
SYS002, and SYS003. All program mask bits 
are set to 1; they will not be reset during 
the compilation. The buffer length is 
calculated and stored in the communication 
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region entry IJKMBL. The formula for the 
calculation is as follows: 

Buffer length = 1536 if available core 
storage more than 30K 


AVC - 10K 

Buffer length = 256 (1+FLOOR (-)) 


4K 

where AVC is available core storage. 

The remaining part of the initialization 
is identical for the tape and disk ver¬ 
sions. It is discussed here together with 
the disk versions. 

I nitialization for D isk Versions -- AT, AU 

As mentioned under Initialization for 
T apes , part of this initialization is com¬ 
mon to both the disk and the tape versions. 
The initialization has two principal func¬ 
tions: storage allocation during PL/I com¬ 
pilation and opening of files. 

If the work files are tapes, the routine 
flowcharted in AS is used for storage allo¬ 
cation. If disks are used, the following 
is done: The program mask bits are set to 
1. They will not be reset during the com¬ 
pilation. The buffer length is calculated 
and stored in the communication region 
entry IJKMBL. The rules for calculation 
are given below. 


r- —t- 1 

(Available Core Storage (AVC) j Buffer | 

I | Length | 

F-+-^ 

| AVC > 30K | 1536 | 

j 22K < AVC < 30K j 1024 | 

| 18K < AVC < 22K | 768 | 

| 14K < AVC < 18K | 512 | 

10K < AVC < 14K I 256 | 

l_x_ j 


Initialization for Tape and Disk Versions 
-- AU 

The addresses of the I/O areas for SYS002 
and SYS003 are calculated and stored in 
KTETA. These addresses depend on the 
uppermost available core storage address 
and the buffer length. The addresses for 
the files IJSYSLS, IJSYSIN, IJSYSPH and 
IJSYSLN are calculated and stored in the 
corresponding DTFCP tables. 


The addressing concept is as follows: 

The two output areas for printing lie in 
succession in the fifth work buffer, begin¬ 
ning at its lower limit. The two input 
areas for reading lie in succession in the 
first output area otherwise used for 
SYS002• The output areas for the link and 
punch files lie in corresponding succession 
also in the first output area otherwise 
used for SYS002. The length of the tables 
depends on whether or not the parameter 
DISK = YES is specified. 


The address of the entire Buffer Area is 
then calculated and stored in the inter¬ 
phase communication region entry IJKMBS. 


The opening of files depends on the Job 
Control options given for the list, punch, 
and link files. If none of the options for 
these files are given, the job is terminat¬ 
ed and a warning message is produced on 
SYSLST. 

If any option is specified, the corres¬ 
ponding files are opened with their work 
files. Before fetching the next compiler 
phase (A2 5) , the contents of registers 10 
and 11 are saved in the communication 
region, and the LIOCS tables for the files 
IJSYSLN and IJSYSPH are written on SYS001. 



Phases PL/IA00, A00D 


A10 
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P HASE PL/IA25 (REPLACEMENT OF KEYWORDS) — BA 


Phase A25 has the following functions: 

1. to read the PL/I source program into 
storage; 

2. to list the source program if the LIST 
option is on; 

3. to count the statements and to print 
the number of the first statement per 
printed line; 

4. to eliminate the comments from the 
source text and to replace them by one 
blank; 

5. to replace (if the 48-character set is 
used) the combinations period-period 
and comma-period by colon and semico¬ 
lon / respectively, and the alphabetic 
operators GT, GE, NE, NG, NL, LE, LT, 
NOT, OR, AND, and CAT by their 
60-character equivalents. No 
replacements are performed within 
quotes. Moreover, the combination 
comma-period is not replaced, i.e., not 
interpreted as an end-of-statement 
delimiter if it is followed by a digit; 

6. to translate the source text into the 
internal code shown in Figure 1; 


7. to replace all identifiers that physi¬ 
cally look like PL/I keywords by 3-byte 
keys (all other identifiers are 
replaced in phase A30) ; 

8. to eliminate redundant blanks from the 
source text (the remaining blanks are 
eliminated in phase A30) ; and 

9. to terminate the source program by the 
3-byte end-of-program key (FFFFFF) . 


Phase Input 


The input of this phase is the PL/I source 
program, which is provided in card-image 
format. Each card consists of 80 columns. 
Column 1 must be blank except for the last 
card, which is the DOS/TOS end-of-data-file 
card. Columns 2 to 72 are assumed to con¬ 
tain the source text. Columns 73 to 80 are 
not used. 

Input Processing 

To translate the source text into the 
internal code, a translate table of 256 
bytes is used. This table describes an 


h 


left 


half-byte 


right 


5 6 


B C 




0 

1 

2 

3 

4 

5 

6 

7 

8 
9 
A 
B 
C 
D 
E 
F 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 
A 
B 
C 
D 
E 
F 


G 

H 

I 

J 

K 

L 

M 

N 

0 

P 

Q 

R 

S 

T 

U 

V 


w 

X 

Y 

Z 

$ 

# 

a 


* 

% 

9 


> 

< 

6 


Note: The free space in this table may be occupied by an 
extended character set, e.g., KATAKANA. The characters E0 
to FF are reserved for internal keys. 


Figure 1. Table Describing the Internal Code 
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isomorphism from the external into the 
internal code. 

The cards are read one by one into a 
card area. The source text is then scanned 
by means of several translate-and-test 
tables. An end-of-card mark (X'FF 1 ) is set 
in column 73. 

TRT table 1 contains non-zero function 
bytes for alphabetic characters, semicolon, 
quotation mark, slash, end-of-card mark and 
— if the 48-character set is used — for 
comma and period. This table is used to 
scan statements, the beginning of which has 
already been detected. 

TRT table 2 contains only one non-zero 
function byte for the end-of-card mark. It 
is used to scan for the end of a comment or 
a string constant. Function bytes for 
asterisk or quotation mark are moved into 
the table as required. 

TRT table 4 contains zero function bytes 
for all alphanumeric characters. All other 
bytes are * 0. This table is used to scan 
for the end of an identifier. 

TRT table 5, which is used to find the 
first significant character of a statement, 
contains a zero function byte only for the 
blank. All other characters except slash 
and end-of-card mark are mapped into the 
same non-zero function byte. Blanks and 
comments are replaced by one blank. 

T he Keyword Table 

Whether or not an identifier is a keyword 
is determined by means of the keyword 


table. All keywords of equal length are 
grouped together. The groups are arranged 
according to their lengths. Each group is 
preceded by two bytes that contain the 
length and the number of keywords the group 
consists of. The keyword table forms the 
first part of the identifier table and, due 
to its size, is divided into two records. 
Every keyword is assigned a current number, 
starting at one for each record. This 
number and the record number (0 or 1) are 
part of the key the keyword is replaced by. 
X'80' is added to the current number if the 
keyword begins with the letter I - N. 

The contents of records 0 and 1 of the 
keyword table are shown in Figures 2 and 3. 
Some space is left open in the table for 
additional keywords. This space is filled 
with blanks. 

A table of the same format as the key¬ 
word table is used to replace text written 
in the 48-character set. 


Phase Output 

The text output is a continuous stream of 
delimiters, identifiers, constants, and 
keywords, the last being represented by 
3-byte keys of the following format: 


byte 

0: 

identifier 

key = X'EI• 

byte 

1 : 

record number (0 or 1) 

byte 

2: 

bit 

0=1: 

the corresponding key¬ 
word begins with the 
letter I,J,K,L,M, or N. 



bits 

1-7: 

current number. Number¬ 
ing starts at 1 for each 
record. 


First 

Record: 






B 

0001(key 

0097|LOW 

00A8|SINH 

003F|ELSE 

0051|INDEX 

00F4 

E 

0002 j SET 

0018|SUM 

0029|MARK 

00C0 jSIZE 

0052 jpRINT 

0075 

A 

0003|BIT 

0019|ALL 

002A|CHAR 

0041|READ 

0053|ROUND 

0076 

F 

0004 j END 

0 01A j ANY 

002B|HIGH 

0042IOPEN 

0054jFIXED 

0077 

X 

0006|GET 

001B | 

| BOOL 

0043 j EDIT 

0055jFLOAT 

0078 

L 

0008jPUT 

001C j SIGN 

0034|PROD 

0044 j PAGE 

0057jLABEL 

00F9 

V 

0009 | ABS 

0 0ID|CEIL 

0035 j POLY 

0045 jLINE 

00D8|ENTRY 

007A 

R 

000A|MAX 

0 09E j LOG2 

00B6|DATE 

0046 jlNRO 

00D9|BEGIN 

007B 

U 

000B|MIN 

0 09F|ATAN 

0037|FILE 

0047|FROM 

005A|KEYED 

00FC 


| MOD 

0 0A0 j TAND 

0038|TIME 

0048|SKIP 

005D|LEAVE 

00FE 

DO 

000D|EXP 

0022|SIND 

0039|NULL 

00C9|MAIN 

00E0|WHILE 

007F 

GO 

000E j LOG 

0 0A3 j COSD 

003A j CALL 

004A j 

1 


TO 

0 0 OF j TAN 

0 024 j TANH 

003B j ADDR 

004B j TRUNC 

0070| 


BY 

0010 j SIN 

0025|SQRT 

003Cj GOTO 

004D j LOG10 

00F1 j 


IF 

0091jCOS 

0026|ERFC 

003D j THEN 

004E j ATAND 

0072| 


ON 

0021|ERF 

0 027 jCOSH 

003E|STOP 

0050 j ATANH 

0073| 



. _ j. 

I 

I 

_J. _ 

I 



Figure 2. Contents of the Keyword Table (Record 0) 
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r ---------1 

I Second Record: j 



T - - - 

T — — — 

T 


WRITE 

0101 

NOSISE 

01A3 

BUFFERS 

0141 

PRECISION 

0163 

CLOSE 

0102 

MEDIUM 

01A5 

REWRITE 

0142 

BACKWARDS 

0164 

INPUT 

0183 

CREATE 

0126 

DISPLAY 

0143 

KEYLENGTH 

01E5 

BASED 

0104 







REPLY 

0105 

FORMAT 

0127 

OPTIONS 

0145 



ERROR 

0107 

DIVIDE 

0128 

RETURNS 

0146 

SEQUENTIAL 

0167 

FLOOR 

0108 

SUBSTR 

0129 

ENDFILE 

0147 

UNBUFFERED 

0168 

LEAVE 

0189 

REPEAT 

012A 

KEYFROM 

01C9 

ZERODIVIDE 

0169 



SYSIPT 

012C 

OVERLAP 

0 14A 

CONVERSION 

016 A 

UNSPEC 

0110 

SYSLST 

012D 

ENDPAGE 

014B 

NOOVERFLOW 

01EB 

VERIFY 

0111 

SYSPCH 

012E 



CONTROLLED 

016C 

STRING 

0113 

COLUMN 

012F 

INTERNAL 

01CC 



RECORD 

0114 



EXTERNAL 

014D 

CONSECUTIVE 

016F 

LOCATE 

0195 



REGIONAL 

0 14F 

ENVIRONMENT 

0170 

UPDATE 

01 J6 

DECIMAL 

0135 

ONSYSLOG 

0150 

NOUNDERFLOW 

01F1 

STREAM 

0118 

PICTURE 

0126 

OVERFLOW 

0152 



BINARY 

0119 

BUILTIN 

0137 

BUFFERED 

0156 

NOCONVERSION 

01F3 

STATIC 

01 1A 

ALIGNED 

0138 

TRANSMIT 

0158 

EXTENTNUMBER 

0174 

PACKED 

01 IB 

INITIAL 

01B9 

PAGESIZE 

0159 

NOZERODIVIDE 

01F5 

OUTPUT 

01 1C 

INDEXED 

01BA 





DIRECT 

01 ID 

DECLARE 

013B 

CHARACTER 

015E 

FIXEDOVERFLOW 

0177 

SYSTEM 

01 IF 

POINTER 

013C 

AUTOMATIC 

015F 

INDEXMULTIPLE 

01F8 

RETURN 

0120 

DEFINED 

013D 

KEYLENGTH 

01E0 

NOFIXEDO VERF LOW 

01FB 

REVERT 

0121 

NOLABEL 

01BE 

PROCEDURE 

0161 



SIGNAL 

0122 

DYNDUMP 

013F 

UNDERFLOW 

0162 





- - J 


x _ 



Figure 3, Contents of the Keyword Table (Record 1) 


DESCRIPTION OF ROUTINES 
Initialization — BB 

This is the beginning of the main routine. 
It initializes pointers, switches, etc., 
and reads in the first card of the source 
text. 

ELCO " BC 

Secondary entry point: ELCO10 

This is part of the main routine. It scans 
for the first significant character of the 
first or next statement (comments and 
blanks are bypassed) . Control is trans¬ 
ferred to FSTN after the first character 
has been found. 

Secondary entry point: ELCO10 

This entry point is used if the DOS/TOS 

end-of-data-file card has been reached. 

The phase is terminated and IJKPH is called 
to read in the next phase. 

FSTN -- BD 


This is part of the main routine. It 
counts the statements and moves the number 
of the first statement per line into print 
positions 1-6, right-aligned. It per¬ 
forms the scan over the statement by means 
of TRT table 1. When a non-zero function 


byte is found, the preceding source text is 
moved into the output buffer, and control 
is transferred to one of the following 
routines depending on the character found. 

FSLA -- BE 

If a slash is found, the next character is 
tested for *. If it is not, the routine 
returns 'false* to 4 (LINK) . If it is an 
asterisk, the end of a comment is searched 
for. The comment is replaced by a blank 
and the routine returns 'true* to (LINK) . 

FCOM — BF 


This subroutine is called if the 
48-character set has been specified and a 
comma has been found in the source text. 

If the comma is followed by a period that 
is not followed by a digit, control is 
transferred to FSEM. Otherwise, control is 
returned to the calling program. 

Secondary entry point: FSEM 
This entry point is used to move a 
semicolon into the output area. Control is 
transferred to ELCO. 

FQUO — BG 

The subroutine scans for the end of a 
string constant and moves the constant into 
the output buffer. 
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FPER -- BH 

This subroutine is called if the 
48-character set has been specified and a 
period has been found in the source text. 
If the period is followed by another 
period, the two periods are replaced by a 
colon. 


F CMB — BI 

Calling sequence: 

BAL LINK f FCMB 
DC XL1'character 1' 

DC XL2 1 character 2' 


Input parameter: 

R1 points to the card area (character 1) . 


Output parameters: 

R1 points to the character following char¬ 
acter 1 in the source text. 

RR = R1-1 if return 'false*. 

The routine tests if character 1 in the 
card area is followed by character 2. If 
necessary, a new card is read and character 
1 is moved into column 1 of the card area. 
The routine returns 'true' to 6 (LINK) if 
character 1 is followed by character 2. 
Otherwise, it returns 'false' to 2 (LINK) . 


F NCA — BK 

Secondary entry points: ZRCD, FNCA05 

This subroutine reads a new card into the 
card area (if an end-of-data-file condition 
arises, control is transferred to ELC010) 
and prints the preceding card. The new 
card is moved into print positions 20 - 99. 
All other positions are cleared to blank. 

If column 1 of the new card does not con¬ 
tain a blank, print positions 7 to 20 are 
filled with asterisks. Then pointers, 
switches, etc., are initialized, and con¬ 
trol is returned to the calling routine. 


F KEW — BL, BM 

This subroutine is called if the first 
character of an identifier has been found 
in the source text (card area) . After the 
length of the identifier has been deter¬ 
mined (if necessary, new cards are read 
in), the identifier is compared with all 
keywords of equal length. If a matching 
entry is found, the corresponding 3-byte 
key is moved into the output buffer. Oth¬ 
erwise, the identifier is moved unchanged 
unless the 48-character set has been speci¬ 
fied and the identifier is a 48-character 


operand. In the latter case, the 
60-character equivalent is moved into the 
output buffer. 


FTKW -- BN 

Input parameters: 

RLEN = length of identifier. 

PTAB - address of one of the two records of 
the keyword table or of the 
48-character operands table. 

PID = address of the identifier to be 
compared. 


Output parameters: 

RKEY = current number of the keyword the 
identifier matches with (if any 
match has been found) . 

PID = unchanged. 

RLEN = unchanged. 


The subroutine compares the identifier with 
every keyword of equal length. If no 
matching entry is found, the routine 
returns 'false' to 0 (LINK) . Otherwise, it 
returns 'true' to 4 (LINK) . RKEY is ini¬ 
tialized with 1 and increased accordingly 
whenever a keyword or a group of keywords 
is skipped. 


FKBU -- BO 
Input parameters: 

RKEY: current number of the keyword (part 
of the 3-byte key the keyword is replaced 
with) • 

KEY: = X'EIOO..' or X'EIOI..' , depending 
on whether the keyword is contained in the 
first or the second record. 


RKEY is stored in the third byte of KEY, 
which is then moved into the output buffer. 


Secondary entry point: FWBU 
This entry point is used to move source 
text into the output buffer. If the entire 
text does not fit into the buffer, the 
buffer is filled with the first part of the 
text to be moved. The buffer is then put 
out on text medium. The remaining part of 
the text is moved into the buffer, left- 
justified. 

Input parameters: 

RR = address of source text 

R1 = end address of source text + 1 
POUT = pointer of output buffer 
BULIM = end address of output buffer 

Output parameters: 

RR = R1 

POUT = next free address in output buffer 


Phase PL/IA25 
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PHASE PL/IA30 (REPLACEMENT OF IDENTIFIERS) -- CA 


vy 


Phase A30 has the following functions: 

1. To build the name table NAMTAB and to 
put it onto SYS001. 

2. To replace all identifiers that were 
not replaced in phase A25 by 3-byte 
keys, 

3. To eliminate all redundant blanks from 
the source text. 

4. To put out the LIOCS table for SYSIPT 
as the third record of LITAB (the first 
two records were put out in phase A00) . 


Phase Input and Output 

The text input is a continuous stream of 
delimiters, constants, and identifiers. 

The identifiers physically identical with 
keywords were replaced by 3-byte keys in 
phase A25. 

The text output is a continuous stream 
of delimiters (blanks have been 
eliminated) , constants, and identifiers. 
The identifiers are represented by 3-byte 
keys of the following format: 

byte 0 : identifier key = X'EV 
byte 1 : record number (0 or 1 if keyword, 
otherwise > 2) 

byte 2 : bit 0=1: the corresponding 

identifier begins with one of the 
letters I-N 

bit 1-7 : current number starting 
at 1 for each record. 

Interface with Other Phases 


1. The begin and end address of the LIOCS 
table for SYSIPT is referred to by the 
external symbols IJKA06 and IJKA07, 
respectively. The table was generated 
by phase A00 and is still in storage. 

2. The addresses of the two records of the 
keyword table are referred to by the 
external symbols REC1 and REC2. The 
keyword table was generated by phase 
A25 and is still in storage. 

3. The third record of LITAB is noted and 
the information stored in KSAVE8. It 
is used in phase G55. 

4. The second record of NAMTAB is noted 
and the information stored in IJKMIP+4. 
It is used in phase B25. 


5. If the keyword PICTURE appears in 
the source text, the job-information 
bit 10 is set to 1. 

6. Phase A35 is skipped if the keyword 
PICTURE does not appear in the source 
text. 

7. Phase A45 is skipped if there are no 
character strings in the source text. 

Format of the Name Table NAMTAB 

The name table consists of at least two 
records, each of which is 1024 bytes long. 
The first two records are the keyword table 
described in phase A25. All other records 
consist of up to 127 entries and are 
terminated by an end-of-record key (X*FF') . 
The individual entries have the following 
format (which differs from that of the 
first two records) : 

L = length of the following identifier - 1 
I = the identifier itself in internal code 


DESCRIPTION OF ROUTINES 
Initialization — CB 

This is the beginning of the main routine. 
The LIOCS table for SYSIPT is put out on 
SYS001 as the third record of LITAB. IJKNT 
is called and the NOTE information is 
stored in KSAVE8. It is tested whether any 
option other than LIST is specified. If 
not, phase G31 is called to terminate the 
compilation. 

The keyword table is put out on SYS001 
as the first two records of NAMTAB. IJKNT 
is called and the NOTE information is 
stored in IJKMIP+4. Pointers, switches, 
etc., are initialized and two records of 
text input are read. The record informa¬ 
tion table RECT is built up. It contains 
information on the records of NAMTAB which 
are built up in the table space. RECT has 
the format shown below: 

r-T-T-T-T-T- 1 --T I 

| A | C | N | A | C | N | A |F| 

L-X-X-X-X-X-(---J-1 

A = address of the begin of one of the 
records 

C = current pointer (initial value = A. 
Subsequently it points to the next 
free entry within the record) . 

N = record number 

F = end of table = X'FF' 

The last A before F is used as end 
address of the last record. 


c 
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FI DE — CC # CD, CE 

This is part of the main routine. The 
input is scanned by means of a TRT table 
for digits, letters, periods, blanks, quo¬ 
tation marks, identifier keys, and end-of- 
program key. All other characters are 
bypassed. If one of the characters listed 
is found, the bypassed text is moved into 
the output buffer. It is tested whether 
the input pointer points to an address of 
the first buffer (FPIN) , and one of the 
following actions is taken depending on 
what character is found: 


1. End-of-program key: 

Control is passed to FEND. 

2. Quotation mark: 

The end of the string is searched for 
and the entire string is moved into the 
output buffer. The scan continues. 

3. Identifier key: 

The identifier key is moved unchanged 
into the output buffer. 

4. Blank: 

This and all following blanks are 
skipped. They are not moved into the 
output buffer. 

5. Letter: 

The identifier beginning with the let¬ 
ter found is compared with all iden¬ 
tifiers contained in the name table. 

If a matching entry is found, the iden¬ 
tifier is replaced by the corresponding 
key. If not, the identifier is incor¬ 
porated into the table and replaced in 
the source text by the identifier key. 
The current number of the identifier 
key is the number of the entry in the 
relative record. If the table space is 
full, the identifier is moved unchanged 
into the output buffer, and the over¬ 
flow switch is set to 1. 

6. Digit: 

If the digit found is the first digit 
of a floating-point constant, the E is 
replaced by the corresponding 3-byte 
key. If it is followed by a B (binary 
constant) the B is replaced according¬ 
ly. 


If the overflow switch is on, e.g., if 
not all identifiers have been replaced yet, 
control is transferred to INIT04 for a 
further pass over the source text. If the 
overflow switch is off, the next phase is 
called. Phase A50 is called if there are 
no character strings in the source program. 
Phase A45 is called if the keyword PICTURE 
does not appear. Phase A35 is called in 
all other cases. 


FPIN - - CG 

FPIN is called each time the input pointer 
is increased. This routine ensures that 
the input pointer always points to an 
address within the first of the two input 
buffers. Whenever the input pointer 
exceeds its range, the contents of the 
second buffer are moved into the first one, 
and a new record is read into the second 
buffer in overlapped mode. 


The end of a program is indicated by the 
end-of-program key X'FF'. If, however, the 
ending quotation mark of a string constant 
is missing, this key cannot be detected 
since a character string may contain any of 
the 256 characters. It is therefore neces¬ 
sary to test for an end-of-file condition 
after every call of IJKGI. If the end of 
the file has been reached, the last record 
in the first buffer is processed and con¬ 
trol is transferred to FEND the next time 
FPIN is invoked. 


FMBU -- CH 

Secondary entry point: FMBUS 
Input parameters: 

RR : (general register) address of source 
text. 

source text + 1. 

POUT : pointer of output buffer. 

BULIM : end address of output buffer. Out¬ 
put parameters: 


Output parameters: 

RR : = R1. 

POUT : points to the next free address in 
the buffer. 



F END — CF 

This is the end of the main routine. It is 
called if the end-of-program key is found. 
The key is moved into the output buffer, 
and the buffer is put out on text output 
medium. The name table is put out on 
SYS001 in records of 1024 bytes. 


This routine moves the source text into the 
output buffer. If not all the bytes to be 
moved fit into the buffer or if they do 
exactly fit, the buffer is filled with the 
first part of the text to be moved. The 
buffer is then put out on text output medi¬ 
um and the rest, if any, is moved into the 
buffer, left-justified. 


Phase PL/IA30 
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PHASE PL/IA35 (PIC TURE S) — CZ 


This phase, which is called by phase A30 if 
the identifier PICTURE is detected in the 
input stream, has the following functions: 

1. To check whether a picture is syntacti¬ 
cally correct; 

2. To determine the precision and the 
attributes of the data item represented 
by the picture and to pass this infor¬ 
mation to subsequent phases; 

3. To transform each decimal fixed-point 
and decimal floating-point picture into 
an "Edit Pattern" and a "Pseudo 
Program" and to produce additional 
information on precision, sign charac¬ 
ters, etc., of the corresponding data 
item. This is done to considerably 
reduce the library subroutine require¬ 
ments and to speed up the object time 
picture editing. 

P hase Input 

The source text used as input is in the 
format described as output in phase A30. 
Thus, there are no blanks between syntacti¬ 
cal units, and all identifiers are rep¬ 
resented by 3-byte keys. 


Sterling Pictures 


The output format of sterling pictures is 
shown in Figure 2. 


Decimal Fixed Pictures (Zoned) 


If a decimal fixed picture contains the 
picture characters 9 and V only, it is 
possible to determine the precision of the 
data item and then to eliminate the 
picture. This data type is given the 
internal attribute ZONED. The output for¬ 
mat of zoned decimal fixed pictures is 
shown in Figure 4. 


Decim a l Fixed Pictures (Zoned (T) ) 


If a decimal fixed picture contains the 
picture characters 9, V, and T only, it is 
possible to determine the precision of the 
data item and then to eliminate the pic¬ 
ture. This data type is given the internal 
attribute ZONED (T) . The output format of 
zoned (T) decimal fixed pictures is shown 
in Figure 5. 


OUTPUT FORMATS 

The output format of the individual PICTURE 
items is described in the following. 

Ch aracter-String P i ctures 

Since character-string pictures can only 
contain the picture character X, it is 
possible to determine the length of the 
data item and then to eliminate the pic¬ 
ture. The output format of character¬ 
string pictures is shown in Figure 1. 


Byte 

1 2 3 

4 

5 6 7 

8 


E 1 fS 1 5 E 

3 3 

W 

3 4 


Other Decimal Fixed Pictures 


The output format of decimal fixed pictures 
other than zoned or zoned (T) is shown in 
Figure 6. 


Decimal Float Pictures 


The output format of decimal float pictures 
is shown in Figure 8. 


( 


) 


*- 3-byte element 
CHARACTER 


*- Length of the data item in 
hexadecimal form 
(each byte of W contains one 
decimal digit in internal code) 


Figure 1. Output Format of Character- 
String Pictures 
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1 I 2 I 3 4 5 6 7 8 

El 01 36 33 W 34 36 


i—15 i-14ji-13ji-12 i-1 l|i-10| i-9 i-8 i-7|i-6| i-5 i-4 i-3|i-2|i-l 
36 El 00 80 El 00 77 33 M 35 N 


Number of 
fractional digits 

Number of digits in the pounds 
field + number of fractional 
digits in the pence field + 3 


3-byte element FIXED 


3-byte element STERLING 


Final ' of the picture 


■ Picture string (for details see Figure 3) 


*—.Width of the numeric field (in binary form) 
— 3-byte element PICTURE 

Figure 2. Output Format of Sterling Pictures 


B yte |l|2|3|4|5|6|7|8|9| -5| L-4 |l - 3| L-2 L - 11 L 

M N W L-4 10 If 



Sterling pictures characters 


Length of picture (in binary form) 


Width of numeric field (in binary form) 


Number of fractional digits (in binary form) 


I— Number of digits in the pounds field + number of fractional digits 
in the pence field + 3 (in binary form) 

Figure 3. String Format of Sterling Pictures 
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Byte 


1 2 3 

4 5 6 

7 

8 

M 

10 

11 

12 

13 14 

15 

16 

Jil 

18 

El 81 

El W 77 

33 

M 

35 

N 

34 

El 

01 

35 


) 3-byte element 
DECIMAL 

Number of fractional digits 


Figure 4. 

Byte 


Total number of digits 

L 3-byte element FIXED 


L 3-byte element ZONED 

Output Format of Zoned Decimal Fixed Pictures 


1 2 3 

4 5 6 

7 

8 9 10 

11 

12 13 14 

15 

16 17 18 

El 00 83 

El 00 77 

33 

M 

35 

N 

34 

El 01 35 


) 3-byte element 
DECIMAL 

l— Number of fractional digits 
1 — Total number of digits 


3-byte element FIXED 
3-byte element ZONED (T) 


Figure 5, Output Format of Zoned (T) Decimal Fixed Pictures 
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( 


1 2 

3 

4 

5 

M 

7 

8 

9 

1 0 11 

12 

JL 

L!i_ 

M 

16 

17 

18 

19 

20 21 22 

i-4 

i-3 

i-2 i-1 i 

El # 

77 

33 

M 

35 

N 

34 

El 

JL 

36 

33 

W 

34 

36 

\\ 

36 

El 0 ] 35 


( 


) 


( 


) 


3-byte element DECIMAL 
-Final of the picture string 
I— Picture string (for details see Figure 7) 

- Initial ' of the picture string 
*—Width of numeric field 
- 3-byte element PICTURE 
- Number of fractional digits 

I—Total number of digits 
-3-byte element FIXED 

Figure 6. Output Format of Decimal Fixed Pictures Other than Zoned or Zoned (T) 


Byte 


1 

2 

3 

4 

5 6 L L + l L+2 

L+3 L+4 L+5 

L +6 L + 7 i -2 i-1 i 

D 

w 

FL 

CDS 

_11_ 


_ii_ 


Edit pattern Sign information Pseudo program 

-Conditional digit select 
Fill character 

*— Width of numeric field = length of edit pattern (in binary form) 

*— D = (number of digit positions + 2) / 2 (in binary form) 

Figure 7. String Format of Decimal Fixed Pictures Other than Zoned or Zoned (T) 
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Byte 


1 2 

L±| 

4 

5 6 

7 

8 

9 10 

M 

12 

13 

14 

15 

16 17 18 

i-3 

M'-’l ‘ 1 

El » 

78 

33 

M 

34 

El 01 

36 

33 

W 

34 

36 


c 

36 

3 

S. 

LU 


/O, 


3-byte element DECIMAL 
Final of the picture string 


‘—Floating-point picture string 
(for details see Figure 9) 


1 — Initial ' of the picture string 
1— Width of numeric field (in binary form) 
«— 3-byte element PICTURE 
1 — Number of digits before the E or K 


*— 3-byte element FLOAT 

Figure 8. Output Format of Decimal Float Pictures 


Byte 


0C 


i Df W F FLf CDSf 


8 


10 L L + 1 L+2L + 3 L+4 i + 1 i + 2 i+3 ?+4 i+5 i+6 J J + l J+2 J+3 J+4|j+5 J+6|j+7| | K 


T 


De We FLEkZDSd 


3C 


it 


Sign 

information 


Edit pattern 

Conditional digit select 
1 — Fill character 

Width of numeric field (in binary form) 

I— Dp = (number of digit positions+2) / 2 (in binary form) 


of the fraction 

I—Offsets contains the value i (in binary form) 

I—Number of fractional digits (of the fraction) (in binary form) 


t R = 2* (total number of digits of the fraction) + x (in binary form) 
X = fS if there was a K in the picture 
X = 1 if there was an E in the picture 


Pseudo program 


■—Always X'0C' 


Edit pattern 

-Conditional digit select 
I—Fill character 
I— Width of numeric field (in binary form) 

- De = (number of digit positions+2) / 2 (in binary form) 


of the exponent 


Sign 

information 


Pseudo program 


Figure 9, String Format of Decimal Float Pictures 
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ELEMENTS OF PICTURE STRINGS 

The fill character (FL, FLF, and FLE) is 
blank if the picture (subfield) contains no 
asterisk. It is asterisk if the picture 
(subfield) contains an asterisk. 

The conditional digit select character 
(CDS, CDSF, and CDSE) is X'20' if the pre¬ 
cision (of the subfield) is even and blank 
if it is odd. 

E dit Pattern 

The edit pattern is used in EDMK instruc¬ 
tions (at object time) in some library 
subroutines. 

S ign Information 

The sign information is a (pseudo) instruc¬ 
tion specifying wher e to test for which 
sign. There are 5 different pseudo 
instructions containing sign information. 

1. NSS - No Sign Specified 

The general format of the NSS pseudo 
instruction is shown below. 

byte 0 X* 40 1 
bytes 1-2 not relevant 

The instruction is generated if none of 
the picture characters S + - DB CR T I 
R appears. 

2• TSS - Test for Static Sign 

The general format of the TSS pseudo 
instruction is shown below. 

byte 0 X'OO* 

byte 1 offset of the last byte of the 
drifting string 

byte 2 - for $ 
b for + 

- for - 
C for CR 
D for DB 

It is generated if a static sign 
appears in the picture. If Cl appears 
in the specified byte r it is assumed 
that the data is negative. Otherwise, 
it is assumed to be positive. 

3. TDM - Test for Drifting Minus 

The general format of the TDM pseudo 
instruction is shown below. 

byte 0 X'00' 

byte 1 offset of the last byte of the 
drifting string 
byte 2 - for $ 
b for + 

- for - 
C for CR 
D for DB 


It is generated if a string of drifting 
appears in the picture. If 
appears in the specified field, the 
data is assumed to be negative. Other¬ 
wise, it is assumed to be positive. 

4. TDP - Test for Drifting Plus 

The general format of the TDP pseudo 
instruction is as shown for the TDM 
instruction, but with X'DO' in the 
first byte. It is generated if a 
string of drifting "+" appears in the 
picture. , If " + " appears in the speci¬ 
fied field, the data is assumed to be 
positive. Otherwise, it is assumed to 
be negative. 

5. TOS - Test for Overpunched Sign 

The general format of the TOS pseudo 
instruction is shown below. 

byte 0 X'F0 1 

byte 1 specifies offset of sign byte 
byte 2 X’DO' for T 
X * F0 * for I 
X'DO* for R 

It is generated if a T, I, or R appears 
in the picture. If the zone in the 
specified byte is identical to the zone 
in byte 3 of the instruction, the data 
is assumed to be negative. Otherwise, 
it is assumed to be positive. 


Pseudo Program 

The pseudo program is a series of (pseudo) 
instructions used by the library for edit¬ 
ing (at object time) . There are 5 differ¬ 
ent pseudo instructions. 

1 . IZR - Insert Zero 

The general format of the IZR pseudo 
instruction is shown below. 

byte 0 X'00' 

byte 1 offset 

The instruction causes the insertion of 
a zero in the byte with the offset d. 

2. 1ST - Insert Static Character 

The general format of the 1ST pseudo 
instruction is shown below. 

byte 0 X , 04' 

byte 1 offset 

bytes 2-3 C 1 and C 2 . 

For S : Ct, = + C 2 = - 

+ : C 1 = + C 2 — b 

- : C, = b C 2 = - 

S i Ci — $ c 2 = $ 

The instruction inserts Cl into the 
specified byte if the data value is 
greater than or equal to zero. Other¬ 
wise, it inserts C2. 
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3• IDR - Insert Drift Character 

The general format of the IDR pseudo 
instruction is as shown for the 1ST 
instruction, but with X'OS* in the 
first byte. If the data value is 
greater than or equal to zero, C, is 
inserted into the byte with the offset 
1. Otherwise, C 2 is inserted. The 
value of 1 is determined as follows: if 
register 1 was set in an EDMK instruc¬ 
tion, 1 is equal to the contents of 
register 1 minus 1. Otherwise, 1 is 
equal to address of the byte with the 
offset d. 


4. IZN - Insert Zone 

The general format of the IZN pseudo 
instruction is shown below. 

byte 0 X'OC 

byte 1 offset 

bytes 2-3 Z n and Z 2 . 


For T : 

Z, = X'CO' 

Z 2 = X'DO' 

I : 

Z n = X'CO' 

Z 2 = X'FO' 

R : 

Z, = X'FO' 

Z 2 = X'DO' 


If the data value is greater than or 
equal to zero, the zone of Z fl is 
inserted into the zone of the specified 
byte. Otherwise, the zone of Z 2 is 
inserted. 

5• EOP - End of Pseudo Program 

The general format of the EOP pseudo 
instruction is X'14' if the picture 
does not contain 9, T, I, orR. X'10' 
is generated in all other cases. It 
indicates the end of the pseudo pro¬ 
gram. If the byte contains X'14' and 
the data value is zero, the entire 
field is filled with the fill character 
FL (or FLF or FLE) . 


EXAMPLES 

The examples in Figure 11 show the original 
picture and the resulting edit pattern, 
sign information, pseudo program, fill 
character, and conditional digit select. 

The notation used in these examples is as 
shown in Figure 10. 


r- T - 


| Symbol 

L 

Meaning 

1 

| DS 

1 SS 

1 

Digit select 

Significance start 

r 1 

| NSS 
| TSS 
| TDM 
| TDP 
| TOS 

1 

\ T 

Pseudo instruction! 
pseudo instruction j Sign 

Pseudo instruction j information 
Pseudo instruction! 

Pseudo instruction! 

r 1 

| IZR 
| 1ST 

1 IDR 
j IZN 

1 14 

| 10 
l 

r - t . ^ 

Pseudo instruction | Instructions 
Pseudo instruction j for the 

Pseudo instruction j pseudo 

Pseudo instruction | program 

Pseudo instruction) 

Pseudo instruction] 

.. . .. i ... . . , . 

r 

1 $ 

1 ^ 
i v 

1 

Picture character 

r 1 

1 £> 

1 o 

1 i 

L - J 

Blank 

0, 1, 2, . . . 

L J 


Figure 10. Notation Used in Picture Exam¬ 
ples 
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DESCRIPTION OF ROUTINES 

Pointers, Storage Areas,• and Flags 

Phase A35 uses the following pointers, 
storage areas, and flags: 


(Open} 


$ has the "item code" 1, + 
has the "item code" 2, etc.) 

A routine is called open if 
control is transferred to it 
by 


^f~>\ 

Vy' 


PIN 

input pointer 


1. 

a simple B instruction. 

POUT, OPOINT 

output pointer 



in which case control is 

WAP, XP, PUN 

work area pointers 



also returned by a B 

PP 

pseudo program pointer 



instruction, or 

EP 

edit pattern pointer 




PIP13 

contains expanded picture 


2. 

some in-line coding that 

EDIP 

contains edit pattern 



requires a separate des¬ 

PSEUP 

contains pseudo program 



cription. 

SIN 

contains sign information 

(Closed) 

A 

routine is called closed if 

Name of flaq 

Set on for 


control is transferred to it 




by 

a BAL instruction. Con- 

$ 

$ 


trol is returned by a BR 

+ 

+ 


instruction in this case. 


s 

T 

I 

R 

CR 

DB 

Z 

* 

9 

V 

EK 

PCB 

Digpos 

H 


Sign 

U 

$ drift 
+ drift 
- drift 
S drift 


S 

T 

I 

R 

CR 

DB 

Z 

* 

9 

V 

E or K 

period, comma, B 
scanned digit position 
character 

to check that a static S + 

- appears only to the left 
or right of a subfield or 
that a DB or CR appears 
only to the extreme right 
of a subfield 

sign character (S + - T I R 
CR or DB) 

zero suppression requested 
drifting string consists of 
$ 

drifting string consists of 

+ 

drifting string consists of 

drifting string consists of 
S 


PIP1 -- DA, DB 

PIPI is the "master program" of this phase. 
It initializes pointers, registers, and 
other items and reads the first 2 records 
into input buffers 1 and 2. It scans the 
input stream until X'El 013636' (the inter¬ 
nal representation of PICTURE') is encoun¬ 
tered outside a character-string constant. 
EXPA stores the "expanded" picture in 
PIP13. 

If the picture is a character-string 
picture, STRI is called. If it is a sterl¬ 
ing picture, STER is called. These rou¬ 
tines process the pictures and return con¬ 
trol to PIP1, which continues the scan. 

If the picture is a fixed-decimal pic¬ 
ture, DEC is called. Control is then 
transferred to DEC. If DEC determines that 
the picture is ZONED or ZONED (T) (see 
Figures 4 and 5) , the 3-byte element DECI¬ 
MAL is put out, and the scan is continued. 
Otherwise, P2 is called and FIXED (M,N) is 
put out. Pi is then called and puts out 
PICTURE (W) , quote, the first 2 bytes of 
the picture string, and — indirectly (by 
calling other routines) -- the remainder of 
the picture string. The scan then contin¬ 
ues. 



N otation and Terms Used in Routine 
D escriptions 


M,m 


N, n 


W, w 

FL 

CDS 

"item code" 


total number of digit posi¬ 
tions 

number of digit positions 
after the (implied) decimal 
point 

width of numeric field 
fill character 
conditional digit select 
a number assigned to a pic¬ 
ture character (for example: 


If the picture is a decimal-float pic¬ 
ture, DEC is called which processes the 
fraction part of the picture. Control is 
then returned to PIP1 and the values m, n, 
w, and d of the fraction are stored. Then 
DEC732 is called which processes the expo¬ 
nent part. After control has been returned 
to PIP1, M, W, and D of the exponent are 
stored and w of the entire picture is com¬ 
puted. FLOAT (M) PICTURE (W) is put out. 
TPEP is called which transforms the frac¬ 
tion part of the picture into an edit pat¬ 
tern and a pseudo program. Then a quote 
and the first 6 bytes of the picture string 
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are put out. PAT puts out the next 2 bytes 
of the picture string (see Figure 9) , the 
edit pattern, the sign information, and the 
pseudo program of the fraction part. Con¬ 
trol returns to PIP1, and d and w of the 
exponent are put out. TPEP is called again 
to process the exponent part. PAT is 
called, which puts out the next 2 bytes of 
the picture string, the edit pattern, the 
sign information, and the pseudo program of 
the exponent part. Then, DECIMAL is put 
out and the scan continues. 


BA NN (Closed) — D Z 


The following 

instructions are stored in 

PSEUP: 





1 . 1ST 

(EP) 

$ 

$ 

if current picture 
character is $ 

2. 1ST 

(EP) 

+ 

b 

if current picture 
character is + 

3. 1ST 

(EP) 

b 

— 

if current picture 
character is - 

4. 1ST 

(EP) 

+ 


if current picture 
character is S 

The following 

sign 

information is stored: 

1. NSS 




if current picture 
character is $ 

2. TSS 

(EP) 

b 


if current picture 
character is + 

3. TSS 

(EP) 

— 


if current picture 
character is - 

4. TSS 

(EP) 



if current picture 
character is S 

BLUE (Closed) 

-- 

DO 



Adds 1 to N if the V-flag is on. 


D EC (Closed) — DE , DF , DG, DH 

1. It checks whether a decimal fixed-point 
picture or a subfield of a decimal 
floating-point picture is syntactically 
correct. 

2. It determines the precision of the data 
item corresponding to the picture, 
determines the width of the numeric 
field, and computes D = (number of 
digit positions+2) /2. 

3. If the picture is a zoned decimal fixed 
picture, ZONED FIXED (m,n) is put out, 
and control is returned to PIP1. 

4. If the picture is a zoned (T) decimal 
fixed picture, ZONED (T) FIXED (m,n) is 
put out, and control is returned to 
PIP1. 

5. If the picture is not a decimal fixed- 
point picture or a subfield of a 
decimal floating-point picture, control 
is returned to PIP1. 


DPTE (Closed) — DO 

Signals error if the Digpos-flag is off. 


DRIFT (Closed) — DV 

1. Sets "drift switch" on. 

2. Sets "item code" to 

1 if currently scanned character is $ 

2 if currently scanned character is + 

3 if currently scanned character is - 

4 if currently scanned character is S 

3. Returns to (LINK) if it is none of the 
characters indicated under item 2. 

4. If the "drift switch" is on, the cur¬ 
rently scanned character and the "item 
code" are stored. 

5. If the "drift switch" is off, ("item 
code"-1) *4 and the currently scanned 
item are stored. 

6. Returns to 4 jO, LI NK) . 

ECAV (Open) -- DX 


1. Sets the SS-flag on if the V-flag is 
off. 

2. If the V-flag is on and the SS-flag is 
off, it puts out an 1ST instruction for 
each period, comma, or B between the 
current PICTURE character and the V. 

3. Returns before setting the S-flag on. 

EXPA ( Open) — EC, DP 

Expands a picture using replication fac¬ 
tors. The expanded picture is stored in 
PIP13. An error is indicated if the 
expanded picture contains more than 255 
characters. After the expansion, the pic¬ 
ture is converted to external representa¬ 
tion. 

Examples: 

Unexpanded picture Expanded picture 

1 (5) 9• V9• '9999 9 .V9 ' 

' (3) S, V (2) 9' 'SSS, V99' 

' (0) Z (4) 9' ' 9999' 

A zero replication factor followed by a 
picture character is interpreted as shown 
in example 3. 

F (Y) (Closed) — DR 

Scans the field "separator-1" if R0 = 0. 
Scans the field "separator-2" if R0 £ 0. 
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F PIN (Closed) — EB 

Controls the reading of the input stream, 
i*e., FPIN is called each time the input 
pointer is increased (only exception: when 
scanning a replication factor) • Two buf¬ 
fers are used. If the input pointer passes 
the end of the first buffer, the contents 
of the second buffer are moved into the 
first, and a new record is read into the 
second buffer. The input pointer is modi¬ 
fied accordingly. Additionally, all the 
input text (with the exception of pictures) 
is put out again. 

FS I, FS 11_( Closed) -- DY 

1. Sets the FF-flag on. 

2. Adds a "Significance Start" character 

(X' 21') to the edit pattern. 

3. Adds an IZR (EP) to the pseudo program 
if the above "Significance Start" char¬ 
acter is the first one in this edit 
pattern. 

H AM (Closed) — PS 

1. Increases WAP by 1. Adds 1 to M and N 
if the currently scanned digit position 
character was preceded by a V. 

2. Returns to 4 (0,LINK) if the Z-flag is 
on. 

3. Returns to (LINK) if the Z-flag is off. 
H TE (Closed) — DO 

Signals error if the H-flag is on. 

J TRNA1 (Closed) — EC 

Output routine. Register BYZ contains the 
number of bytes to be put out, register PIN 
the starting address. One output buffer is 
used. 

If the string to be put out fits into 
the remaining free space of the output 
buffer, it is moved there, and BYZ is added 
to POUT (thus updating the output pointer) . 
If the string is too long, the string 
length required to fill the buffer is moved 
there. The contents of the buffer are 
written on the output medium, and POUT is 
reset to the begin address of the buffer. 
BYZ is reduced by the number of bytes moved 
into the buffer and PIN is added to that 
number. This procedure is continued until 
the entire string has been moved. 

P AT (Closed) 

This routine is called by PIP1. It puts 
out FL, CDS, Edit Pattern, Sign Informa¬ 
tion, and Pseudo Program of a subfield. An 


additional • is put out if it is a decimal 
fixed-point field. 

RFDF (Closed) — PS 

Signals error if any Drift flag and/or 
"normal" flag (specified by the "item 
code") is on. 

Examples: 

Error is signalled if 

1. the "item code" specifies $ and the 
$-flag is on. 

2. the "item code" specifies + and the $ 
drift-flag is on. 

RFT (Closed) — DP 

Returns to (LINK) if the flag specified by 
the "item code" is on; otherwise, it 
returns to 4 (0,LINK) . 

SEAV (Closed) — DO 

1. Scans for period and/or comma and/or B 
and/or V following a (potential) drift¬ 
ing character. Stops scanning after 
the first non-editing character is 
encountered. 

2. Signals error if any editing character 
occurs without the Digpos-flag having 
been set on. 

3. The PCB-flag is set on if one or more 
of the editing characters have been 
detected. 

4. VIE is called if a V is encountered. 

If the Digpos-flag is off, the Q-flag 
is set on. Then HTE is called. 

SITE (Closed) — DO 

Signals error if the sign-flag is on. Oth¬ 
erwise, the sign-flag is set on. 

STER (Open) -- PI, DJ, DK, DL 

1. Checks whether a sterling picture is 
syntactically correct. 

2. Determines the precision of the data 
item corresponding to the picture: 

M = number of digit positions in the 
pounds field + 3 + N. 

N = number of fractional digits in the 
pence field. 

3. Determines the width of the numeric 
field : W. 

4. Puts out PICTURE (W) 'picture string' 
STERLING FIXED (M,N) . 


/On 
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S TRI (Open) — DN 

Processes character-string pictures, e.g., 
pictures that only contain the picture 
character X. Puts out CHARACTER (W) . 
Deletes the picture. 


S UP (Closed) — DP 

1. Returns to the address in R1 if the 
character being scanned is neither * 
nor Z. Otherwise, the *-flag or Z-flag 
is set on< respectively. 

2. Signals error if any flag is on that 
represents a digit position character 
other than the one being scanned. 

TDS_ (Closed) — EA 

Generates the sign information: 

TDM (EP) a if the currently scanned 
character is - or S. 

TDP (EP) a if the currently scanned 
character is +. 

a = length of the drifting string - 1 

TP EP (Closed) - - D T, DU, D V , DW 

Transforms a decimal picture subfield into 
edit pattern, sign information, and pseudo 
program. 

The relationship between the input of 
TPEP and the output produced can be seen in 
the section Examples in the description of 
this phase. 

N ote : If the routine detects an invalid 

picture character, all storage occupied by 
this phase is dumped. (The error will 
probably be in DEC, or in one of the rou¬ 
tines called by DEC) . 


VTE ( C losed) -- DO 

Signals error if the V-flag is on. Other¬ 
wise, the V-flag is set on and the U-flag 
is set off. 


WTE (Closed) -- DO 

Signals error if the W-flag is set on. 
Otherwise, it returns to (LINK) . 

Z9_(Cl osed) — D Q 

1. Scans a shilling field or a pence 
field. 

2. Returns to 4 (0,LINK) if ZZ or Z9 or 99 
is detected. 

3. Returns to (LINK) if Z or 9 is detect¬ 
ed . 

4. Signals error if the character being 
scanned is neither 9 nor Z. 

5. Sets the Z-flag off if a 9 is detected 

(provided the Z-flag was on) . Signals 
error if the Z-flag is off and the 
character being named is a Z (if there 
is a Z in a sterling subfield, all 
digit position characters in the 
preceding subfield must be Zs) . 

Error -- D M 

Since there are more than 50 error possi¬ 
bilities in a picture, only one error mes¬ 
sage is produced by putting out a 3-byte 
element ERROR of the general hexadecimal 
format El0 082. 

If an error is detected, processing of 
the picture is terminated. The message 
code 01 (declaration in error) will be 
given in the symbol table listing. 
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PHA SE PL/IA45 (CHAR A CTER STRINGS) -- EM 


This phase has the following functions: 

1. To scan character string constants for 
correct format and precision; 

2. To eliminate character strings from the 
source text and to replace them by two 
3-byte keys; 

3. To retranslate the character strings 

(except the picture strings) from the 
internal to the external code, and to 
collect them in the character string 
table CARTAB which is written on 
SYS001; 

4. To optimize the character strings with¬ 
in the limits of table space, e.g., to 
cause two identical character strings 
to appear only once in the table. 

This phase is skipped if no character 

strings appear in the source text. 


P hase Input and Output 

The text input is a continuous stream of 
delimiters, constants, and identifiers, the 
latter being represented by 3-byte keys. 

The character-string constants have the 
following format: 

r— —i 

j r - n j r -1 

| (I)| |'character string' | 


l _ _j 

I = decimal integer specifying replication 
(1 to 3 digits) . 

The character string is a sequence of at 
least one character. (A quotation mark is 
represented by two adjacent quotation 
marks.) All characters, except those of 
picture strings, are represented by the 
internal code. If the character-string 
constant is followed by a B (in the form of 
a 3-byte key) , it is interpreted as a bit¬ 
string constant. Picture strings appear in 
the following context: 

r - T - T -T-“T-1 

| | |length | | 'character- | 

j PICTURE j ( j of field j ) j string' | 

L__X_.1._ X_X_ „J 


N ote: The field length must not be 

interpreted as a replication factor. 


The text output is a continuous stream 
of identifiers (3-byte keys), delimiters, 
and constants. The character-string con¬ 
stants are represented by two adjacent 
3-byte keys of the following format: 

r- t-t~-t-t-1 

I K | 0 I K | E | L | 

L-X_X_X__X_J 

K = character-string-constant key = X'E3' 

(1 byte) 

0 = offset in the character string table (2 
bytes) 

E = error byte : X'00' = no error 

bit 0=1: diagnostic 

message E0 55I 

bit 1=1: diagnostic 

message E056I 

bit 2=1: diagnostic 

message E067I 

L = length of the character string (1 
byte) . 

Note: The error byte is cleared in phase 

C30 so that the length occupies two bytes 
as follows: 

r-T-T-T-1 

I K I 0 I K I L I 

l___X_X_X___J 


The Character-String Table: 

The character string table (CARTAB, ZTAB00) 
is written on SYS001. The record length is 
equal to the buffer length. The last 
record may be shorter. The length of the 
table is stored in IJKCSL. 

The table consists of a continuous 
stream of characters (in external code). 
Each single character string can therefore 
be found by its address (offset) relative 
to the beginning of the table and by the 
length of the string. The character 
strings are optimized as shown below. 

Assume that the following 4 character¬ 
string constants appear in a source 
program: 

'SPARCELDER*, 'GELD', 'ERBE', 'DERB'. 

This will cause the following character¬ 
string table to be built: 

r- 1 

|SPARGELDERBE| 

L_j 


54 
















PL/I PLM 8 


IBM Confidential 


The character-string constants would be 
represented as follows: 

X'E3 000 0E300 OA' 

X'E30004E30004' 

X i E30008E30004* 

X , E30007E30004 i 


DESCRIPTION OF ROUTINES 
In itia l ization — EN 

This is the beginning of the main routine. 
It initializes pointers, switches, etc., 
and reads input text into two buffers. 

FS CA — EO ,EQ 

This is part of the main routine of this 
phase. It performs the scan over the 
source text by means of several TRT tables. 
If a marked character is found, the preced¬ 
ing source text is moved into the output 
buffer. FPIN is called to check the input 
pointer, and control is transferred depend¬ 
ing on the character found. 

FIDE — EP 

This is part of the main routine. It is 
called if an identifier key has been found. 
If it is a PICTURE key that appears in the 
correct context of picture strings, all the 
text preceding the begin quote of the 
string is moved into the output buffer, the 
switch CONVSW is set to one to indicate 
that the string is not to be retranslated, 
and, after calling FPIN, control is trans¬ 
ferred to FSTR. All other keys are moved 
into the output buffer, FPIN is called, and 
the scan continues. If the key INITIAL is 
found, the entire INITIAL list is skipped. 

FR EP — ER 

This is part of the main routine. It is 
called if a left parenthesis has been found 
in the source text. If the parenthesis is 
followed by 1 to 3 digits, a right paren¬ 
thesis, and a quote, i.e., if a replication 
factor is found, the decimal integer is 
converted to binary and control is trans¬ 
ferred to FSTR05 to process the string 
constant. Otherwise, the left parenthesis 
is bypassed, and the scan continues. 

FS TR — ES, ET 


Input parameter: 

R1 : Points to the beginning quotation mark 
of a character string within the input 
text. 

The routine increases R1 by one, sets REPL 
to 1 and RLEN to 0. REPL and RLEN are the 


parameters for the following routine seg¬ 
ment labeled by FSTR05. 

Secondary entry point: FSTR05 

Input parameters: 

R1 : address of the character string in 

the input text. 

REPL : replication factor. 

RLEN : number of digits specified for the 

replication factor + 2. RLEN equals 
zero if no replication factor has 
been specified. 

The input text is scanned by means of a TRT 
table for a quote indicating the end of the 
character string. If the string is a bit 
string, it is moved unchanged into the 
output buffer. The character string is 
moved into CHST. Strings exceeding the 
length of 255 are truncated on the right. 
For two successive quotes, one quote is 
moved into CHST. One blank is moved if the 
begin quote is immediately followed by the 
end quote. Control is then transferred to 
FCTA. 

FCTA -- EU,EV 

This is part of the main routine. 

Input parameters: 

REPL : replication factor. 

RLEN : length of basic string. 

CONVStf : switch to indicate whether the 
string must be retranslated (=0) 
or not (=1) . 

CTAB : address of the character-string 
table in storage. 

CTABl : current pointer to this table. 
ADABS : address that must be subtracted 

from CTABl to obtain the offset in 
the character-string table, a part 
of which may already have been put 
out on SYS001. 

TABE : end address of the character¬ 
string table in storage. 

R1ST : address of the end quote of the 
character string. 

If the replication factor is 0, it is 
ignored and set to one. If necessary, the 
basic string is retranslated into the 
external code. The string is expanded 
according to the replication factor. 

Strings exceeding the length of 255 are 
truncated on the right. 

The string is then compared with all 
sequences of characters of equal length in 
the character-string table. If a matching 
entry is found, the same offset is used in 
the key, which is moved into the output 
buffer. Otherwise, the string is moved 
into the table. If it does not fit into 
it, the table is filled by a first part of 
the string and put out on SYS001. ADABS is 
reduced by the length of this output, and 
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the remaining bytes of the string are moved 
to the beginning of the table. Control 
then returns to FSCA and the scan contin¬ 
ues. 

FF IN — EW 

This is the end of the main routine. The 
end-of-program key is moved into the output 
buffer, and the buffer is put out on text 
output medium. The character string table 
(or the last part of it) is put out on 
SYS001. The length of the character-string 
table is stored in IJKCSL. IJKPH is then 
called to fetch the next phase (A50) . 

FPIN — EX 

FPIN is called each time the input pointer 
has been increased and ensures that the 
input pointer always points to an address 
within the first of the two input buffers. 
Whenever the input pointer exceeds its 
range, the contents of the second buffer 
are moved into the first one, and a new 
record is read into the second buffer. 

N ote: The end of the program is indicated 

by the end-of-program key X'FF'. If, how¬ 
ever, the end quote of a string constant is 
omitted, this key cannot be detected since 


a character string may contain any of the 
256 characters. It is therefore necessary 
to test for end of file after every call of 
IJKGI. If the end of file has been 
reached, the last record in the first buf¬ 
fer is processed, and FFIN is called the 
next time FPIN is invoked. 


FMBU — EY 


Input parameters: 

RR : address of source. 

R1 : end address of source + 1. 

POUT : pointer of output buffer. 

BUFOL : end address of output buffer. 

Output parameters: 

RR : = R1. 

POUT : points to the next free address in 
the buffer. 

This routine moves text into the output 
buffer. If all bytes to be moved do not 
fit into the buffer or if they do exactly 
fit, the buffer is filled with the first 
part of the text to be moved and its con¬ 
tents are written on output medium. The 
remaining bytes, if any, are moved to the 
begin of the buffer. 
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PHASE PL/IA50 (BLOCK STRUCTURE) — FM 


This phase scans the block structure of the 
source program. Therefore, the statements 
PROCEDURE, BEGIN, IF, DO, and END as well 
as the keywords THEN and ELSE must be rec¬ 
ognized. 

Each statement is given a 6-byte end-of- 
statement (EOS) key, which contains a 
level, a block, and a statement number. 

Each assignment statement is given a 
special key (SET key) . 

All statement keywords are translated 
into internal representation (see Figure 
1) . For the keyword THEN, an EOS key is 
generated. For the keyword ELSE, an "ELSE 
statement" containing a statement key and 
an EOS key is generated. 

If an error is found in the block struc¬ 
ture (more PROCEDURE or BEGIN statements 
than END statements or vice versa) , the 
source text is truncated after the last 
correct END statement. 


I nternal Repre s ent ation of Sta t ement 
I dentifiers 

Each statement identifier is replaced by a 
3-byte key in internal code. This key has 
the following format: 


DESCRIPTION OF ROUTINES 

Symbols used in flow charts 

POUT = pointer output area 

PCA = pointer communication area 

IBUFL = length of the I/O buffers 
PIN = pointer input area 

BUFB1 = start address of the first input 
buffer 

GROUT = end address of the output buffer 
BUFEND = end address of the input area 
PTA = pointer table area 

TABA = start address of the table area 
TABE = end address of the table area + 1 

JEPLA 1 — FO 

The routine skips the prefix lists and 
labels preceding a statement. It is tested 
whether a parenthesized list preceding a 
statement is followed by a colon. The 
prefix list is translated into a mask. The 
statement counter is increased according to 
the number of statements processed. The 
counter value is inserted into the EOS key. 

Entry parameter: 

PIN = address of the first byte of the 
statement 

Return parameters: 

HR4 = address of the first byte of a State- 


byte 0: 
byte 1: 
byte 2: 

E0 

undefined 

identification (see Figure 1) 

PIN = 

ment which is not yet put out. 
address of the first byte after 
first identifier of a statement. 

the 

i 


T 



i 

| Byte 

[ 

2 

Statement 

Byte 2 


Statement 

i 

J 03 


DUMP 

21 


REVERT 


| 04 


OVERLAY 

22 


ON 


| 05 


PROCEDURE 

23 


STOP 


| 06 


BEGIN 

30 


CLOSE 


| 07 


END (PROCEDURE) 

31 


OPEN 


| 08 


END (BEGIN) 

32 


DISPLAY 


| 09 


CALL 

33 


GET 


| 0A 


GOTO 

34 


PUT 


j 0B 


ENTRY 

35 


FORMAT 


j OC 


RETURN 

36 


READ 


j 0D 


NOP 

37 


WRITE 


j 0E 


SET 

38 


LOCATE 


j OF 


EXPRESSION 

39 


REWRITE 


1 10 


IF 

40 


DECLARE 


1 11 


ELSE 

41 


INITIAL SCALAR 


I 12 


DO 

42 


INITIAL ARRAY 


1 13 


END (DO) 

43 


FILE 


| 20 


SIGNAL 

44 


ARRAY 


L 


X 



_j 


Figure 1. Contents of Byte 2 of the 3-Byte Statement Identifier Key 
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J ASSA1 — FP 

The program tests whether the actual state¬ 
ment is an assignment statement. If so, 
the SET key is inserted before the state¬ 
ment. 

If the identifier preceding the state¬ 
ment is IF, control is transferred to JPIF. 
If the identifier is the statement keyword, 
it is replaced by the corresponding key. 
Otherwise, the SET key is generated. 

Entry parameters: 

PIN = address of the first byte after the 
first identifier of a statement. 

HR4 = address of the label identifier 
preceding the statement, if any. 

Return parameters: 

PIN = start address of the statement iden¬ 
tifier. 

HR4 = address of the first byte of a state¬ 
ment that is not yet put out. 

JS TAA1 — F Q 

Secondary entry points: JSTAA3, JSTAE2, 
JSTAE4 

The routine compares the identifier preced¬ 
ing a statement with a list of statement 
keywords contained in KEYTAB. This table 
contains a 4-byte entry for each keyword. 
The first two bytes contain the keyword 
itself; the other two bytes contain a rela¬ 
tive branch address. 


increased by 1. It may not be greater than 
three because only three levels are ^ \ 

allowed. The block counter is increased by 
1. It may not be greater than 63 because 
only 63 blocks are allowed. 

For each PROCEDURE, BEGIN, or DO state¬ 
ment, a pointer ENDZ is increased by 1. 
Corresponding to the status of ENDZ, it is 
entered in a push-down table ENDTAB, wheth¬ 
er it is a begin block (0) or a DO group 
0) . The evaluation of this table and 
reducing of ENDZ by 1 is done by the rou¬ 
tine JEND. 

Entry parameters: 

PIN = start address of the statement iden¬ 
tifier. 

HR4 = start address of the first label 
identifier, if any, preceding the 
statement. 

Return parameters: 

PIN = unchanged. 

HR4 = start address of the label identifi¬ 
er. If more than one label is given, 
the last label is pointed to. 


JENTA1 — FS 

The routine is called by JSTAA1 and proc¬ 
esses the ENTRY statement. Only the label 
preceding the statement is checked. Entry 
and return parameters are the same as in 
JPRO. 


JPIFA1 — FT 


The program is called by JSTAAl and proc¬ 
esses the IF statement. An IF statement 
has the form: 


If the identifier is one of the keywords 
PROCEDURE, BEGIN, ENTRY, IF, ELSE, DO, END, 
GOTO, or DECLARE, control is transferred to 
one of the routines JPRO, JENT, JPIF, JELS, 
JPDO, JEND, JGOT or JDLA. 

All statement identifiers are translated 
into internal representation by means of 
the table CODTAB, which contains a 4-byte 
entry for each keyword. The first two 
bytes contain the keyword itself; the sec¬ 
ond two bytes contain the internal rep¬ 
resentation of the statement identifier. 

Entry parameters: 

PIN = start address of the statement iden¬ 
tifier. 

BYZ = 0 or length of a parenthesized list 
follows the identifier. 

HR4 = start address of the label identifier 
preceding the statement, if any; 
otherwise HR4 = PIN. 

J PROA1 — F R 

Secondary entry point: JPROB1 

The routine is called by JSTA and processes 
the PROCEDURE and the BEGIN statement, 
respectively. The level counter is 


IF expression THEN unit 1 ELSE unit 2 ; 

An equal sign and parenthesized lists may 
occur in expression . Since there is no 
difference in appearance of the logical 
equal sign and the arithmetical equal sign, 
the IF statement can be differentiated from 
the assignment statement only by the key¬ 
word THEN. The statement identifier is 
replaced- by the internal representation. 

The keyword THEN is replaced by an EOS key. 

Entry parameters: 

PIN = start address of the statement iden¬ 
tifier. 

HR4 = start address of the label identifier 
preceding the statement. If there is 
no label, HR4 = PIN. 


Return parameters: 

PIN = address of the next byte after THEN. 
PIN = unchanged if no IF statement is 
encountered. 


iT 
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J ELSA1 — F U 

The routine is called by JSTAA1 and proc¬ 
esses the keyword ELSE. ELSE is followed 
by a semicolon only if uni t is a NOP state¬ 
ment. To facilitate the statement scan for 
the following phases, the ELSE key is con¬ 
cluded by an EOS key. 

An ELSE keyword has the form: 

s tatement ; ELSE identif ier or 
s tatement ; ELSE (prefix): i dentifier or 
s tatement ; ELSE ; 

i.e., ELSE can only be followed by an iden¬ 
tifier, a left parenthesis, or a semicolon. 
In the source text, the keyword ELSE is 
replaced by: 

Key (6 bytes) 

EOS (6 bytes) 

The statement number in EOS is the same as 
in the previous statement. 


thus showing the type of END. The level 
counter LEV is decreased by one at the end 
of a block. 

Entry parameters: 

PIN = start address of the statement iden¬ 
tifier. 

HR4 = start address of the label identifi¬ 
er, if any. 

Return parameter: 

PIN = address of the semicolon. 


JLACAl — FX 

The routine checks the label preceding a 
PROCEDURE or ENTRY statement. Only one 
label must precede each of these state¬ 
ments. The following errors may appear: 

1. No label: pseudo label is inserted. 

2. More than one label: all labels except 
the last are ignored. 



Entry parameter: 

PIN = HR4 = start address of the identifier 
ELSE. 

Return parameter: 

PIN = address of the byte following the 
identifier. 

JP D0A1 — FV 

The routine is called by JSTAA1 and proc¬ 
esses the DO statement. A DO statement 
must be recognized to be able to differen¬ 
tiate the END statement into block ends and 
group ends. 


Entry parameters: 

HR4 = start address of the (possibly first) 
label. 

PIN = start address of the statement iden¬ 
tifier. If no label appears, HR4 = 
PIN. 

Return parameters: 

PIN = unchanged. 

HR4 = unchanged if no error is detected. 

HR4 = PIN if error 1 is detected. HR4 = 
start address of the last label if 
error 2 is detected. 

JE0SA1 — FY 



The statement identifier is replaced by 
the internal representation. In the inter¬ 
nal buffer ENDTAB, a 1 for marking group 
end is entered. A zero is entered for 
block end. 

Entry parameters: 

PIN = start address of the statement iden¬ 
tifier. 

HR4 = start address of the first label 
preceding the statement. 

Return parameters: 

PIN = Unchanged HR4 = Unchanged 

J EN DAI — F W 

The routine is called by JSTAA1 and proc¬ 
esses the END statement. An END statement 
has the format: END; No other format is 
permitted in the DOS/TOS PL/I compiler. In 
the PL/I language, the END statement for a 
block end is the same as for a group end. 
Internally, the two types of END are coded 
differently. Pointer ENDZ points to the 
last entry in ENDTAB (see JPR0A1 — FR) , 


The routine is called at each statement 
end. It generates the EOS key and puts out 
an error list, if necessary. When JEOS is 
called, PIN points to the semicolon. The 
statement itself is already in the output 
area or on the output medium. 

On return, PIN points to the first byte 
of the new statement. If no more state¬ 
ments follow, i.e., if the end of the 
source text is reached, PIN points to the 
end-of-source-text mark. 

It is tested whether PIN is still inside 
the first input buffer. If it is not, it 
is tested whether PIN is still inside the 
last buffer because incorrect statements 
can cause PIN to run out of the input area. 
In this case, an error message is given. 
Otherwise, the contents of buffers 2-4 
are moved into buffers 1-3 and a new 
recoid is read into buffer 4. It must 
therefore be avoided that a statement or a 
single identifier is divided by the end of 
the input area. This is done as long as 
PIN is outside the first buffer. 
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The EOS key has the following format: 


byte 

0 

EOS key 

byte 

1 

error indicator 

byte 

2 

level number 

byte 

3 

block number 

byte 

4-5 

statement number 


If an incorrect statement is discovered, 
and error message is generated in the 
source text. The error message has the 
following format: The first bit of the 
error indicator in the EOS key is set to 1. 
Two bytes are inserted after the key for 
every error in the source text; byte 1 
contains the error key, byte 2 contains the 
error number. 


JERRA1 — FZ 


The routine is called if an error is 
detected. Up to eight error messages per 
statement are stored. Additional errors 
are ignored. 

JE0SA1 puts out the error messages into 
the source text following the statement in 
error. The error table (ERRTAB) entries 
have the following format: 

byte 1 = error key (X’EB 1 ) 

byte 2 = number of errors 

bytes 3-10 = special error keys 

Entry parameter: 

HRO = special error key (1 byte) 


MOVEA1 — F0 


Return parameters: 

PIN = address of the character found or of 
the end of statement. 

BYZ = PIN new - PIN old. 


JSKPA1 — F2 

The subroutine searches for the end of a 
parenthesized expression. All internal 
pairs of parentheses are skipped. 

Entry parameter: 

PIN = address of the first left parenthe¬ 
sis. 

Return parameters: 

PIN = address of the next byte after the 
last right parenthesis. 

HRO = PIN old. 

BYZ = PIN new - PIN old. 


JTRNA1 — F3 

The subroutine moves information into the 
output buffer and controls the pointer for 
this buffer. When the pointer exceeds the 
scope of the buffer, the text is put out on 
output medium. 

Entry parameters: 

PIN = start address of the information to 
be put out. 

BYZ = length of the information. 

POUT = next free address in the output 
buffer. 

Return parameters: 

PIN new = PIN old + BYZ. 

POUT = next free address in the output 
buffer. 


The subroutine moves any number of bytes 
from a FROM field to a TO field. The FROM 
and TO fields may overlap. 

Entry parameters: 

HRO = number of bytes to be moved 
HR1 = address of the TO field 
HR2 = address of the FROM field 
BYZ is used as auxiliary register. 

JCHAA1 — F I 

The subroutine is used to find a character 
in the source text. Searching is performed 
up to the end of the statement. If the end 
is reached, PIN contains the address of the 
semicolon as return parameter. If the end 
of the source program is reached before the 
character is found, an error message is 
given. An EOS key is inserted. 

Entry parameters: 

PIN = start address of the search region. 
BYZ = character to search for (1 byte 
right-justified) . 


JGOTA1 — F4 

The routine is called by JSTA and processes 
the GOTO statement. The statement iden¬ 
tifier for the GOTO statement may be writ¬ 
ten with or without a blank between GO and 
TO. The key is the same for both forms. 

JDLAA1 -- F5 

The routine is called by JSTA and processes 
the DECLARE statement. If a label list 
precedes the statement, it is removed from 
the source text. 

Entry parameters: 

PIN = start address of the statement iden¬ 
tifier. 

HR4 = start address of the label identifier 
preceding the statement. If there is 
no label, HR4 = PIN. 

Return parameters: 

PIN = unchanged. 

HR4 = PIN. 
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JFIXA1 — F6 


JSSAA1 — F7 


The program scans the prefix lists and 
generates a mask. This mask has the fol¬ 
lowing format: 


bit 0 

bit 1 

bit 2 

bit 3 

bit 4 

bit 5 

bit 6 
bit 7 


0 = NO ZERODIVIDE 
1 = ZERODIVIDE 
0 = NO UNDERFLOW 
1 = UNDERFLOW 
0 = NO OVERFLOW 
1 = OVERFLOW 
0 = NOFIXEDOVERFLOW 
1 = FIXEDOVERFLOW 
0 = NOCONVERSION 
1 = CONVERSION 
0 = NO SIZE 
1 = SIZE 

reserved 

reserved 


Entry parameter: 

PIN = address of the left parenthesis. 
Return parameters: 

PIN = address of the colon after the prefix 
list. 

FIXMSK = mask. 


The routine generates a statement attribute 
of 3 bytes and inserts it into the source 
text immediately after the statement iden¬ 
tifier. The statement attribute contains 
the following information: 

byte 0 prefix mask (see JDLAA1 — F5 ) 
byte 1 number of the actual block 
byte 2 number of the embracing block 

Byte 1 is set to zero in phase B90. 


JEOPA1 ~ F9 


This routine checks if the end of the 
source text has been reached. If it has, 
the end-counter ENDZ is checked, and the 
output area is cleared. 

Entry parameter: 

PIN = input pointer 

JBETA1 — F8 

This routine generates the end-table. 
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PHASES PL/IA60, A65 (SYNTAX CHECK I AND II) -- GL, GW 


The two syntax phases, A60 and A65, may be 
considered as one logical phase. 


The first syntax phase, A60, processes 
all statements except READ, WRITE, GET, 
PUT, FORMAT, which are processed by the 
second syntax phase A65. 


Phases A60 and A65 


• check each statement for syntactical 
errors (exception: DECLARE statement) . 


• substitute 3-byte keys for symbols as 
follows: 


byte 1 : key S'E2' 

bytes 2-3: program-internal code for the 
respective symbol (see Figure 
1 in phase A25) . 


By te (s) Contents 


1 end-of-statement key X*EA' 

2 indicator no error X'OO* 

3 level number 

4 block number 

5-6 statement number 


b. if an error has been detected in 
the statement: 


Byte (s) Contents 

1 end-of-statement key X'EA* 

2 error indicator X'40 f 
or X* 80 * 

3 level number 

4 block number 

5-6 statement number 

7 error key X'EB* 

8 error number 

9 error key X'EB* 

10 error number, etc., 

(up to 8 errors) 

3. substituted an end-of-statement delimi¬ 
ter for each keyword THEN; 


• substitute elements of variable length 
for all constants (except character 
string constants) as shown in Figure 1. 



Original constant 
-length of element : L 

-Constant key : F7 for decimal fixed 

F8 for decimal float 
F9 for binary fixed 
FA for binary float 
FB for bit string 
FC for sterling 
FE for format integer 

Figure 1. Substitution of Variable-Length 
Elements for Constants 


The preceding phases have: 


4. placed an end-of-statement delimiter 
after each keyword ELSE; 

5. substituted a special key for each 
character string constant as follows: 


By te ( s) 

1 


2-3 

4 


5-6 


Contents 

character-string constant 
key X•E3' 

offset to begin of charac¬ 
ter-string constant table 
character-string constant 
key X 1 E3 1 

length of the constant 


6. substituted 6-byte elements for all 
statement identifiers as follows: 


By te (s ) Contents 


1 

2 

3 

4 

5-6 


statement identifier 
key X*E0 f 

not used in this phase 
number specifying the 
statement identifier 
prefix information 
not used in this phase 


1. eliminated all blanks and comments, 

2. substituted an end-of-statement del¬ 
imeter for each semicolon as follows: 

a. if no error has been detected in 
the statement: 


7. placed a 6-byte element ASSIGN in front 
of each assignment statement as shown 
under item 6. 

8. substituted a 3-byte key for each pro¬ 
gram element appearing as an identifier 
or keyword as follows: 
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Byte (s) Contents 

1 identifier key X'EV 

2-3 offset to a table 

9. processed and eliminated the prefix 
option lists. 

No te: Steps 3 and 4 have left the program 

non-recursive. All statements may now be 

processed independently of each other. 
Push-down stacks are reduced in size (since 
recursion only occurs in expressions} . 


Output of Phas e s A60 a n d A65 

With the exception of the DECLARE statement 
and the declarative portions of PROCEDURE 
and ENTRY statements, the output stream 
consists of 3-byte elements and variable- 
length elements. Any ambiguities resulting 
from the fact that keywords are not 
reserved have been clarified. This is 
illustrated by the following example: 

DO IF=BEGIN TO END WHILE (DISPLAY) ; 

Since all identifiers making up the above 
statement are potential keywords, the syn¬ 
tax phases must detect the teal keywords 
(in this case DO, TO, WHILE) . 

The first byte of each 3-byte element 
substituted for a keyword now contains 
X'EF' instead of X f EV 

An error message is generated for each 
detected syntactical error. This message 
is attached in coded form to the end-of- 
statement delimiter as shown in Figure 3. 


FUNCTIONAL DESCRIPTION 

1. Scanning S y nta ctical Un its _(Linguis tic 

Fu n cti o ns) 

A "Linguistic Function" (abbreviation 
LF) is a routine which returns a 
Boolean value. The value of the LF is 
determined as follows: Within the LF, a 
"linguistic expression" is written, 
which syntactically describes a pattern 
of the source string. This linguistic 
expression is said to define the LF. 
During execution,the LF examines the 
source text for the occurrence of the 
pattern described by the LF's linguist¬ 
ic expression. If the pattern is 
found, the LF yields a TRUE value; if 
not, it yields a FALSE value. 

(These are quotations from the SLANG 
Language Tutorial Manual. Edition 1, 
3-18-64, pages 36-37). 

2• Processi ng Syntactical Units 

Whenever a syntactical unit has been 
recognized, 3-byte elements and 
variable-length-elements are 
substituted for symbols and constants. 


3. Detection of Syntactical Errors 

After a statement has been identified 
by scanning and comparing the statement 
identifier, it is checked for conform¬ 
ing to the syntactical rules. If an 
error is detected, a message specifying 
the nature of the error is generated. 


The syntactical scan is based on the 
assumption that the complete statement is 
contained in the four input buffers. Two 
pushdown stacks, three pointers and three 
LF utility routines are used. 


Push- D own Stacks 

LPDL used to store the linkage. 

PPDL used to store the value of the 

input pointer 


Point e rs 

PDLI A symbolic register used as a poin¬ 
ter to LPDL and PPDL. This pointer 
is moved by the routines BEGLF, 
EXTRUE, and EXFALS. 

PIN A symbolic register used as input 

pointer. 

POUT A symbolic register used as output 
pointer. 


lity Ro u tines 

The following 3 routines enable recursion 
during the syntactical scan (see flow 
charts HH and GT) . 

BEGLF Initiated upon entry into an LF. 

The current value of the input 
pointer PIN is saved and the lin¬ 
kage information contained in LINK 
is stored. 

EXTRUE Initiated if an LF yields TRUE. 

This routine fetches linkage infor¬ 
mation from LPDL, adds 4 to it, and 
returns to the resulting address. 

EXFALS Initiated if an LF yields FALSE. 

This routine restores PIN (i.e. 
fetches from PPDL the value which 
was stored there when the LF was 
initiated), fetches linkage infor¬ 
mation from LPDL, and returns to 
the provided address. 

N ote : After a TRUE exit, PIN points to the 

character following the examined syntacti¬ 
cal unit. After a FALSE exit, PIN points 
to the same character it was pointing to 
when the LF was initiated. 
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1. 

INTEG BAL 

UTIL,BEGLF 

Linguistic Utility Routine. 

2. 

ST 

PIN,INTEG1 

Store begin of integer. 

3. 

BAL 

LINK,DIGIT 

Digit? 

4. 

B 

EXFALS 

No. Return FALSE. 

5. 

INTEG2 BAL 

LINK,DIGIT 

Yes. Another digit? 

6. 

B 

INTEG3 

No. End of integer. 

7. 

B 

INTEG2 

Yes. Try again. 

8. 

INTEG3 L 

R1 ,PIN 

Compute the address of 

9. 

BCTR 

R1,0 

last digit of integer. 

10. | 

L 

R2,INTEG1 

Load start address. 

11. | 

BAL 

LINK,STORIT 

Call storing routine. 

12. ! 

B 

L 

EXTRUE. 

j 

Return TRUE 

L 

Step 

1: When initiating BEGLF, the symbolic register UTIL is used instead of LINK. 

This 

saves LINK. 



Steps 3-7 comprise the 

"linguistic 


expression". 




! ) 


Figure 2. Linguistic Utility Routine 


Example fo r Sy n tact ical Sc an 

An integer is assumed to be defined (using 
the Backus-Naur form (BNF) ) as follows: 

<intege r> < diq it>|< intege r><digit> 

This means an integer is a string consist¬ 
ing of more than 0 digits. The above BNF 
definition gives the base for the 
"linguistic expression" as illustrated in 
the program shown in Figure which scans 
an integer, notes the address of the first 
digit, the address of the last digit and 
calls another routine with these addresses 
as parameters. 

Note: Although the BNF definition of an 

integer is recursive, the routine shown in 
Figure 7 is not recursive. This is correct 
because the integer could be defined as 
<integer> :: = min 1 <digit> by using an 
extended BNF. Recursion has been avoided 
to improve the phase performance. 


one of these bits is set to 0, the asso¬ 
ciated phase is skipped. At the beginning 
of the syntax phase, all 5 bits are set to 
zero. The occurrence of specific state¬ 
ments causes the syntax phases to set the 
associated bit to 1 as shown below. 


Statement 


CLOSE 

DISPLAY 

FORMAr 

GET 

IF 

LOCATE 

OPEN 

READ 

REWRITE 


Bit No. Set to One: 


6 

6,7 

6 

4 

3 

6,7 

6 

6*7 

6,7 




DESCRIPTION OF ROUTINES 


Syntact ical De f ini ti on of Input and Output (Open) 
Stream 

The syntactical definition (metalanguage) 
of the input and output stream is given in 
Appendices A and B. 

S kippi n g of Ph a ses 

To save compilation time, certain phases 

following the syntax phase are skipped if 

the statement which they process does not 

occur in the source program. Skipping of 

phases is prepared and specified by the (Closed) 

syntax phases A60 and A65 as follows: 

Bits 3 to 7 of byte IJKMJT+3 specify 
skipping of certain subsequent phases. If 


A routine is called open if 
control is transferred to it 
by 

1. a simple B instruction, 
in which case control is 
also returned by a B 
instruction, or 

2. some in-line coding that 
requires a separate des¬ 
cription. 

A routine is called closed if 
control is transferred to it 
by a BAL instruction. Con¬ 
trol is returned by a BR 
instruction in this case. 


c 
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S YN1 — GM 

This routine is the "master program" of the 
phase. 


byte at 0 (PIN) is replaced with X'EF’ (key 
for "Keyword") and PIN is incremented by 3. 
BUBU is called. The routine returns TRUE 
to 4 (0 , LINK) . 



1. PIN and POUT are initialized and the 
four input buffers are filled. 

2. PDLI is reset. PIN is stored in 
CREAT1• PIN is moved until a statement 
identifier key (x'EO') is found. Then 
6 is added to PIN so that it points to 
the first character of the statement 
body. The statement-processing rou¬ 
tines are activated. 

3. If the statement returns TRUE (entry 
SyN166 = statement conforms with syn¬ 
tactical rules), it is tested whether 
PIN points to the end-of-statement 
(EOS) delimiter. 

4. If PIN points to the EOS delimiter, the 
last part of the statement (the start 
address is in CREAT1, the end address - 
1 is in PIN) is put out, and EOST is 
called. SYN1 continues with step 2. 

If PIN does not point to the EOS delim¬ 
iter, ERROR is called (the logical end 
of the statement body is not followed 
by an EOS) . The last part of the 
statement is put out, and PIN is moved 
until an EOS or the end-of-program mark 
(EOP) is detected. If an EOS is 
encountered, EOST is called. SYN1 
continues with step 2. If an EOP is 
encountered, TEPHA is called to termi¬ 
nate the phase. 

5. If the statement returns FALSE (the 
statement does not conform with syntac¬ 
tical rules, or is not processed in 
this phase), INPT is called. INPT 
moves PIN until an EOS or EOP is 
encountered. 


EOST, JEOSA1 (Closed) -- GQ 

Arranges the contents of the input buffers 
1 to 4. The currently scanned EOS is 
located in input buffer 1 (this is done by 
moving and by reading new records). Puts 
out the EOS and the error codes attached to 
it. kny additionally generated error codes 
are also put out. 

INPT (Open) — GN 

1. If PIN points to an EOS, control is 

passed to SYN157. (SYN157 is a label 

associated to SYN1 step 4 - see des¬ 
cription of SYN1) . 

2. If PIN points to an EOP, TEPHA is 
called. 

3. If PIN points to an E-key, PIN is 
incremented by 3. 

4. If PIN points to an F-key, the contents 
of the two bytes following this F-key 
are added to PIN. 

5. Otherwise, PIN is incremented by 1 and 
INPT starts again with step 1. 

JSLC A1 (Op en) — GU 

Tests the statement for excessive length. 
(The appropriate EOS must be located in the 
first 4 input buffers) . If the statement 
exceeds the permitted length, the statement 
body is deleted. The statement now con¬ 
sists of the statement identifier and the 
EOS attached with error codes. The next 
statement is positioned starting in input 
buffer 1. 


N ote: Whenever control returns from EOST, 

PIN points to the first byte of the next 
statement. 

BUBU (Closed) — GO 


JTR NA1 (Closed ) — GR 

Output routine. Register BYZ contains the 
number of bytes to be put out; register PIN 
contains the start address. 


Puts out a string. The start address of 
this string is in CREAT1, the end address 
-1 is in PIN. 

C ARFB (Closed) 


This routine is called by several linguist¬ 
ic functions. 

( x R1 contains the address of the 3-byte ele- 

j ment. If this element is not identical to 
that starting at 0 (PIN) , the routine 
returns FALSE to (LINK) . Otherwise, the 


One output buffer is used. 

1. If the (remaining) length of the output 
string does not exceed the available 
space of the output buffer, the com¬ 
plete (remaining part of the) string is 
moved into the buffer. The output 
pointer is updated by adding BYZ to 
POUT. 

2. If the length of the output string 
exceeds the available buffer space, an 
appropriate part of the string is moved 
to the buffer. The contents of the 
buffer are written onto the output 
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medium. POUT is reset to the start address 
of the buffer. BYZ is decremented by the 
number of bytes moved into the buffer. PIN 
is incremented by this number. JTRNA1 
starts again with step a. 


L KW (Closed) 


This routine is called by several linguist¬ 
ic functions. 


Assumed input: 

r - 1 

I — T-T T T T T T T T- I 

| ..|_| E1 | 03 | 61 |3D|3C] 01 | 05|. | 

|-X- J L L I | X x x X- I 

| AL->source pattern | 


1 PIN points to this character J 

L-*-.-J 

In this case LKW performs the following: 




Input parameters: 

R2: table address 

R3: address of the LF to be initiated if 

the search is successful. Must be 0 
if no LF is to be initiated. 

R4: length of source pattern 

R5: address of a 3-byte element 


Looks up the table (address defined by R2) 
for a pattern (length defined by R4) that 
is identical to that located in 0 (PIN) . 
Returns FALSE to 0 (LINK) if the search was 
unsuccessful. Otherwise, BUBU is called to 
put out a string. A 3-byte element is 
created by using the rightmost byte in R5 
as first byte and the "function value" of 
the table as second and third bytes. The 
3-byte element is put out. If R3 contains 
0, LKW returns TRUE to 4(0,LINK) . If R3 
contains an address of an LF, this LF is 
initiated and depending on the value of the 
LF, LKW returns TRUE or FALSE. 

Example: 



DS 

OF 




TABLE 

DC 

X* 2 f 

Length of pattern 


DC 

X' 5* 

Number of elements 




in ■ 

the table 



DC 

X'3A3A' 

1st 

argument 



DC 

X'OAFA' 

1st 

"function 

value 


DC 

X* 393C' 

2nd 

argument 



DC 

X'07EE 1 

2nd 

"function 

value 1 


DC 

X f 3E3C 1 


etc. 



DC 

X*07F1' 





DC 

X* 3D3 C* 





DC 

X* 07F2' 





DC 

X* 4040' 





DC 

X'03EA' 





DC 

X' O' 

end 

of table 



Parameters 

R2 

A (TABLE) 


R3 

A(0) 


R4 

A (2) 


R5 

X'OOOOOC 


The table lookup is successful. BUBU is 
called to put out a string ending at X’61'. 
A 3-byte element is created (X'E207F2') and 
put out. PIN points to X'01'. LKW returns 
TRUE. 

TARI1 (Closed) 

This routine is called by several linguist¬ 
ic functions. 

If the rightmost byte in R1 is identical 
with the byte at 0 (PIN) , BUBU is called. A 
3-byte element consisting of the leftmost 3 
bytes in R1 is put out. PIN is incremented 
by 1. TARII returns TRUE to 4 (0,LINK) . 
Otherwise, TART1 returns FALSE to (LINK) . 

TEPHA (Open) — GP 

Puts out the contents of the output buffer. 
Further actions depend on the utilization 
of TEPHA. 

If the routine is used in phase AGO, it 
returns control to the compiler control 
program, indicating the next phase to be 
initiated. This is A65 if one of the fol¬ 
lowing statements occurred in the source 
program: READ, WRITE, GET, PUT, FORMAT. 
Otherwise, phase BIO IS initiated. 

If the routine is used in phase A65, it 
returns control to the compiler control 
program, indicating that the next phase to 
be initiated is BIO. 

ERRO R X M) , JERRA1 (M) — GS 

This routine fills an error table with up 
to 8 errors per statement. If the same 
error is detected more than once for one 
statement, the error appears only once in 
the error table. 

Each detected error causes an error 
message to be generated, represented inter¬ 
nally as a one-byte number. This number is 
attached to the End-of-Statement delimiter. 
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In this phase f all declarations given 
explicitly in DECLARE statement parameter 
lists and label declaration lists are col¬ 
lected in a declaration pool. The pool is 
written on SYS001. 

De cl ara tion Po ol 

In the declaration pool all declarations 
belonging to one block are collected in a 
group which is written on SYS001 if the end 
of the block is reached. 

Three block levels are allowed. For 
each level a buffer is defined in the table 
area. The declarations are collected in 
the buffer indicated by the level counter. 
If a buffer overflows, it is written before 
the end of the block is reached. 

The first four bytes in each buffer 
contain special information concerning the 
block. 

byte 0: block number 
byte 1: block level 

byte 2: block number of the embracing block 
byte 3: mark if the record is the last of 
the block. 

This information is put in front of each 
record. In phase B20 the records of the 
pool which are on SYS001 are ordered by 
ascending block number and written on 
SYS002 or SYS003. 

The information entered in the declara¬ 
tion pool is classified in three groups: 

1. label declaration lists 

2. parameter lists 

3. DECLARE statements 

A label declaration list starts with an 
identifier key. A label constant or an 
entry name may be entered in such a list. 

A label constant consists of 4 bytes: 

byte 0 : identifier key 

bytes 1-2: user name (coded in phase A2 5) 

byte 3 : colon 

An entry name consists of: 

byte 0 : identifier key 

bytes 1-2: user name (coded in phase A2 5) 

bytes 3-4: attribute ENTRY (optionally, 

data attributes specified by the 
user as attributes describing 
the returned value) . 


PH &SE PL/IB10 (DECLARATION SCAN I) — HM 


The end of an entry name is indicated by 
an EOS key (6 bytes) . 

A parameter list starts with a parameter 
key (1 byte) . This key is followed by the 
internal representation of the left paren¬ 
thesis (3 bytes) . 

The user-defined parameter names follow 
(3 bytes each, coded in phase A25) sepa¬ 
rated by the internal representation of the 
comma (3 bytes) and closed by the right 
parenthesis (3 bytes) . 

A DECLARE statement starts with a 
declare key (1 byte). The whole statement 
follows. It is scanned syntactically in 
phase B20. 


DESCRIPTION OF ROUTINES 

Note: The routines JERRA1, MOVEA1, JCHAA1, 

and JTRNA1 are described in phase A50. The 
corresponding flow charts are FZ, F0, FI, 
and F3, respectively. 

Symb o ls used in flow charts : 

PCA : pointer for communication area 
EOS : end-of-statement key 
EOPR : end-of-program key 

STATAB: table of addresses of routines that 
process PROCEDURE, BEGIN, ENTRY, 
DECLARE, and END 
BLZ : block counter 
ERRCOD: error code 
LEV : level counter 
EOSC : end of record on SYS001 

Initi a lisation — HN 

JELAA1 — HO 

This routine scans the statement labels. 

If a label is found, it is entered in the 
declaration pool. 

Entry parameter: 

PIN = address of the first byte of a state¬ 
ment • 

Return parameter: 

PIN = address of the statement-identifier 
key. 

JSTBA1 — HP 

This routine scans the statement identifi¬ 
ers and searches for the identifiers PROCE¬ 
DURE, BEGIN, ENTRY, DECLARE, and END. If 
one of these identifiers is found, the 
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program branches to special routines that J0PTA1 — HR 

process these statements. All other state¬ 
ments are written unchanged. This routine processes the OPTIONS attri¬ 

bute. 


/A 

w 


Entry parameter: 

PIN = address of the statement-identifier 
key. 


J PCRA1 — HQ 

Secondary entry point: JPCRE1 

This routine, called in JSTBA1, processes 
the PROCEDURE statement. The PROCEDURE 
statement opens a new block. Therefore, 
the level and block counter are increased 
by 1. 

The following information is entered 
into the declaration pool: 

1. The last label is given the attribute 
ENTRY. 


JCPLA1 — HS 

This routine checks the parameter list for 
identical parameters. 

Entry parameters: 

HR4 = PIN = address of the left parenthe¬ 
sis. 

HR3 = 0. 

Return parameters: 

PIN = address of the right parenthesis. 

HR3 = length of the parameter list. 


JENTA 1 — HT 

This routine is called in JSTBA1 and proc¬ 
esses the ENTRY statement. 


2. If the procedure has data attributes, 
they are associated with the last 
label. 

3. The end of this attribute list is indi¬ 
cated by the EOS key. 

4. Four bytes of information concerning 
the block are entered in the declara¬ 
tion pool. 

byte 0: block number 
byte 1: block level 

byte 2: block number of embracing block 
byte 3: indicates last record of block 

5. If the PROCEDURE has a parameter list, 
a key is entered in the pool. The list 
follows unchanged. 

The PROCEDURE statement, with the excep¬ 
tion of the data attributes, is written 
unchanged. 

The first PROCEDURE statement in a 
source program may have the attribute 
OPTIONS followed by an option list in 
parentheses. The options in this list are 
separated by commas. 

The following options may appear: 


An ENTRY statement differs from a PROCE¬ 
DURE statement in that it does not open a 
new block. The entry name is internal to 
the embracing block. Therefore, the entry 
name is moved into the declaration pool of 
the embracing block. This is done in rou¬ 
tine JELA. 

Entry parameter: 

PIN = start address of the statement iden¬ 
tifier. 

Return parameter: 

PIN = address of the EOS key. 

JBEGA1 — HU 

This routine is called in JSTBA1 and proc¬ 
esses the BEGIN statement. For the scope 
of declarations, the BEGIN statement has 
the same function as the PROCEDURE state¬ 
ment. 

Entry parameter: 

PIN = start address of the statement iden¬ 
tifier. 

Return parameter: 

PIN = address of the EOS key. 

JDCSA1 -- HV 



MAIN: It specifies the MAIN procedure. 
ONSYSLOG: It specifies that object time 
diagnostics will be written on SYSLOG. 

If these options appear, special bits in 
the communication area are set. 

A PROCEDURE statement with the attribute 
OPTIONS must not have a parameter list or 
data attributes. 


This routine is called by JSTBA1 and proc¬ 
esses the DECLARE statement. The entire 
statement is moved unchanged into the dec¬ 
laration pool. 

JENDA1 — HW 

This routine is called by JSTBA1 and proc¬ 
esses the END statement. An END statement 
closes a block. 
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The level counter (LEV) is decreased by 
one. When the end of a block is reached, 
three bytes containing X'FFFFFF* are moved 
into the declaration pool for that block, 
and the declaration pool is written on a 
work file. 

Entry parameter: 

PIN = start address of the statement iden¬ 
tifier. 

Return parameter: 

PIN = address of the EOS key. 

JSLCA1 — HX 

This routine checks the length of a state¬ 
ment. A statement must not be longer than 
3 buffers. If a statement with an error 
message is detected, the statement is 
deleted except for the statement-identifier 
key and the EOS key. 

Entry parameter: 

PIN = address of the statement identifier. 

Return parameter: 

PIN = unchanged. 

Registers used: 

HRO, HR 1, HR2, HR4. 

JE0SA1 — HY 

This routine is called at the end of each 
statement. The error indicator contained 
in the EOS key is tested to determine if an 
error exists. An error list is written, if 
necessary. 

When JE0SA1 is called, PIN points to the 
first byte of the EOS key. The statement 


itself except for the EOS key is already on 
the output medium or in the output buffer. 


When returning, PIN points to the first 
byte of the new statement. If no other 
statement follows, i.e., if the end of the 
source text is reached, PIN points to the 
end-of-source-text key. 

The program uses four buffers for the 
input stream. If PIN is beyond the first 
buffer, the remainder of the input stream 
is moved to the left, and a new record is 
read into the last buffer. 

Entry parameter: 

PIN = address of the first byte of the EOS 
key. 

Return parameter: 

PIN = address of the first byte of the new 
statement. 


Subro u tine JDEPA1 — HZ 

This routine checks the length of the dec¬ 
laration pool. If necessary, the declara¬ 
tion pool is written onto the work file. A 
record counter is increased by 1. 

Entry parameters: 

HR1 = start address of the information to 
be transferred into the pool. 

BYZ = number of bytes to be transferred. 

PTA = address of the first free byte 
in the pool. 

Return parameter: 

PTA = address of the next free byte in the 
pool. 
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P HASE PL/IB15 (DECL ARATION SCA N II) — IM 


This phase scans the DECLARE statements for 
syntactical errors. In phase BIO, all 
declarations were collected in a declara¬ 
tion pool and written on a work file. 

Phase B15 reads the pool, sorts the records 
according to ascending level numbers, and 
scans the DECLARE statements. The output 
is written onto TXTIN of the previous 
phase. 

For some declarations, special state¬ 
ments are generated in the source text (see 
items 1 to 3 below) . The previous phase 
leaves the last record of the source text 
in the output buffer. The output medium is 
not rewound. Therefore, the statements 
generated in this phase are attached to the 
end of the last record. 


DESCRIPTION OF ROUTINES 

Symbols used in flow charts 

PCA :pointer communication area 
FINO :current file number 
ZI :integer constant 
ERRCOD:error code 

Note: The following routines used in this 

phase are described as follows: 

M0VEA1 A50 JCHAA1 A50 
JERRA1 A50 JTRAA1 B90 

Initialization — IN 

JSRTA1 — 10 


k s 


1. ARRAY 


ASK 

= array statement key 


(6 

bytes) 

VN 

= variable name. 


(3 

bytes) 


If the array is a part 

of a 




structure, a full qualifi- 




cation is made. 




CAN 

= current array number 


(3 

bytes) 


bounds 


(9 

bytes) 

EOS 

= end-of-statement key 


(6 

bytes) 

2. 

FILE 




FSK 

= file statement key 


(3 

bytes) 

VN 

= variable name 


(3 

bytes) 

CFN 

= current file number 


(3 

bytes) 

file description 


uncoded 

EOS 

= end-of-statement key 


(6 

bytes) 

3. 

INITIAL 




ISK 

= initial statement key 


(6 

bytes) 

VN 

= variable name 


(3 

bytes) 


If the initial item is 

a 




part of a structure, a 
qualification is made. 

full 



LIL 

= length of list 


(3 

bytes) 


initial list 


uncoded 

EOS 

= end-of-statement key 


(6 

bytes) 


There are two ISK's, one for scalar and 
one for array initialization. 


The following is entered in the declara¬ 
tion pool: 


This routine sorts the declaration pool. 

The sorted records are moved into the table 
area. After the syntactical scan of the 
DECLARE statements, they are written on the 
input work file of the previous phase. 

Each record starts with a special word: 

Byte 0: block number 
Byte 1: level number 

Byte 2: block number of the embracing block 
Byte 3: indicates if the record is the last 
of the block. 

The records are sorted in ascending 
order of level numbers. 

LVA = actual level number 
LVM = maximum level number 

JSCNA1 — IP 

This routine scans the declaration pool. 

The information entered in the declaration 
pool is classified in three groups: 

1. label declaration lists 

2. parameter lists 

3. DECLARE statements 

A label declaration list starts with an 
identifier key. A label constant or an 
entry name may be entered in such a list. 

A label constant consists of 4 bytes: 
byte 0 : identifier key 
bytes 1-2: user name (coded in phaseA25) 
byte 3 : colon 



1. ARRRAY - The array attribute followed 
by the current array number and the 
number of contained elements. 

2. FIL E - The file attribute followed by 
the current file number. 

3. INITIAL - The initial attribute only. 


An entry name consists of: 

byte 0 : identifier key 

bytes 1-2: user name (coded in phase A25) 

bytes 3-4: attribute $NTRY 

(Optionally) : data attributes specified by 
the user as attributes describing the 
returned value. 
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An entry name is always closed by an EOS 
key (6 bytes) . 

A parameter list starts with a parameter 
key (1 byte) • This key is followed by the 
internal representation of the left paren¬ 
thesis (2 bytes) . 

The user-defined parameter names follow 
(3 bytes each, coded in phase A25) , sepa¬ 
rated by the internal representation of the 
comma (3 bytes) and closed by the right 
parenthesis (3 bytes) . 

A DECLARE statement starts with a 
declare key (1 byte) which is followed by 
the declaration. It is scanned for syntac¬ 
tical errors in routine JDECA1• 

Entry parameter: PST = start address of the 
pool. 

J DECA1 — IQ-I W 

This routine is called in JSCNA1 and scans 
the DECLARE statement for syntactical 
errors. The identifiers are separated in 
programmer-defined names and attributes. 
Attributes are coded internally. Parenthe¬ 
ses are separated in such that mark factor¬ 
ization and such that include precisions or 
lists. Some attributes get a special 
treatment (see flow charts IQ-IW). If a 
syntactical error is detected, a NOP state¬ 
ment followed by an error message is gener¬ 
ated in the source text. 

Entry parameter: 

PST = address of the first byte to be proc¬ 
essed. 

Return parameter: 

PST = address of the first byte after the 
end-of-statement key. 

The syntactical scan is performed by 
means of a two-dimensional matrix of 
addresses. Depending on the preceding 
symbol, the routine branches to correspond¬ 
ing routines at a new symbol (see Figure 
1) . The following routines may be called: 

JDE1A1 JDE1A4JE0DA1A1 
JDE1A2 JDE2A1 JSEFA1 
JDE1A3 JDE2A3 JDCDA1 

S ubroutine JAT R A1 -- IX 

This subroutine recognizes the attributes 
and sets the internal representations of 
the attributes into the declaration pool. 

The external representation of all 
attributes is stored in a table (ATTAB) . 
After each attribute there is a byte with 
the internal coding. This byte with a 
common attribute key is moved into the 
declaration pool. 


All data attributes have a 1 in the 
first four bits of the internal coding. 

Entry parameter: 

PST = start address of the attribute. 
Return parameters: 

PST = address of the first character after 
the attribute. 

ATKEY + 1 = internal coding of the actual 
attribute. 


Subroutine JSIPA1 — IY 

This subroutine searches for the end of a 
parenthesized expression; all internal 
pairs of parentheses are skipped. 

Entry parameter: 

PST = address of the first left parenthe¬ 
sis. 

Return parameters: 

PST = address of the next byte after the 
last right parenthesis. 

HRO = PST old. BYZ = PST new - PST old. 


JTRIA1 — IZ 

This routine moves information into the 
output buffer and controls the pointer for 
this buffer. If the pointer exceeds the 
scope of the buffer, the contents of the 
buffer are written on the actual input work 
file. The output is made in the non- 
overlapped mode. 

Entry parameters: 

HR 1 = start address of the information to 

be written. 

BYZ = length of the information. 

PIT = next available address in the output 
buffer. 

BUFI = end address of the output buffer. 
POUTI= start address of the output buffer. 

Return parameters: 

PLT = next available address in the output 

buffer 

BYZ = 0. 

HR 1 = HR1 old + BYZ old. 

JCVTA1 — JA 

This routine converts an unpacked decimal 
integer constant to binary representation. 
The decimal number may have up to 9 digits. 

Entry parameters: 

HR1 = start address of the decimal 
constant. 

Return parameters: 

HR 1 = value of the converted constant. 

HR2 = number of digits in the decimal con¬ 
stant. 
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Figure 1• Two-dimensional Matrix of Addresses (SWITAB) 
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PHASE PL/IB 2 0 (SYMBOL TABLE CONSTRUCTION I) — KA 


This phase constructs the symbol table for 
all explicitly declared variables and label 
constants. The input for this phase is the 
declaration pool constructed in phase B15. 


r- 1 

I I 

I I 

| Bytes Q - 1 : j 


S ymbol Table 

The symbol table consists of n+1 parts, 
where n is the number of blocks in the 
source program. Each part is attached to 
one block and contains all items declared 
explicitly. The last part contains all 
items declared contextually and implicitly. 
This part is constructed in phases B70 and 
B80. 

The parts of the symbol table are sepa¬ 
rated from each other by a scope chain 
which contains the number of the embracing 
block. The start addresses of the parts 
are entered in the scope table. If the 
symbol table is written on a work file, 
each part starts with a new record. The 
first record number of each part is also 
entered in the scope table. 

For each programmer-defined variable or 
label constant an entry of 20 bytes is made 
in the symbol table. The format of this 
entry is shown in Figure 1. The entries 
are used in phase B90 to build the state¬ 
ment attribute table. 

Scope Table 

An entry of 6 bytes is entered in the scope 
table for each block. The format of this 
entry is as follows: 

Byte 0 : Number of records belonging to 
this block. 

Bytes 1-3: NOTE information of the record 
in which the symbol table for 
this block starts. 

Bytes 4-5: If the symbol table is in core 
storage, relative start address 
of the symbol table for this 
block. 

If a block has no declarations, the 
entry is given the data for the embracing 
block. Since the number of records belong¬ 
ing to one block is restricted to 255 and 
each record contains the declarations for 
12 variables, the total number of declared 
variables for one block is restricted to 
3060. This restriction is valid only for 
the minimum configuration. If the table 
space and the buffer area are increased, 
the number of declared variables increases 
at the same rate. 


| User-defined name (coded in phase A30) 

i-- 

I Bytes 2-3 : 

I 

|Internal representation of the name 

I*- 

1 Byte 4: 


Bits 0-3: Reserved 

Bits 4-7: Internal length of the variable 


r 

j Byte 5: 

i 




- l 

| Bit 

0: 

1 

= 

STATIC 

0 = AUTOMATIC 

| Bit 

1 : 

1 


CONTROLLED 


j Bit 

2 : 

1 

= 

POINTER 


| Bit 

3: 

1 

= 

EXTERNAL 

0 = INTERNAL 

1 Bit 

4: 

1 

= 

DEFINED 


j Bit 

5: 

1 

= 

PARAMETER 


| Bit 

6: 

1 


BUILTIN 


j Bit 

7: 

1 

= 

CONSTANT 

0 = variable 

| Bit 

1 

7: 

1 

= 

contextual 

ENTRY 

0 = declared ENTRY 

j 


Byte 6: 


Bits 0- 

1:00 = 

not a structure element 


01 = 

structure element 


10 = 

minor structure 


11 = 

major structure 

Bit 2 

1 = 

PACKED 0 = ALIGNED 

Bit 3 

1 = 

Array 

Bit 4 

1 = 

FILE 

Bit 5 

1 = 

LABEL 

Bit 6 

1 = 

ENTRY name 

Bit 7 

1 = 

zoned decimal (T) 

Byte 7: 



Bit 0 

1 = 

PICTURE 

Bit 1 

1 = 

sterling 

Bit 2 

1 = 

arithmetic data 

Bit 3 

1 = 

string data 

Bit 4 

1 = 

bit string; 



0 = character string 

Bit 5 

1 = 

FIXED; 0 = FLOAT 

Bit 6 

1 = 

BINARY; 0 = DECIMAL 

Bit 7 

1 = 

zoned decimal 

If it is a structure, bits 4-7 contain 

the lefthang. 



1 


I 

j 


Figure 1• Entries in the Symbol Table for 
Programmer-defined Variables and 
Label Constants (Part 1 of 2) 
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r- 1 

1 Byte 8: 

I If string : 

| Bits 0-*7: length of the string 
I if arithmetic: 

|scale FLOAT 

jor FIXED BINARY: bits 0-7: w 

|scale FIXED DECIMAL: bits 0-3: w 
j bits 4-7: d 

t--H 

I Byte 9; 

| Bits 0-1: block level 
jBits 2-7: block number 

I-- j 

I Byte 10: 

|if structure or element of structure: 
jlevel number 

F- 

I Byte 11: 

jif structure: boundary of the structure 
jif array : current array number 
jif FILE : current file number 

h-^ 

I Bytes 12-13 : 


|If array : number of array elements | 
jif structure: length of the structure | 

I--^ 

I Bytes 14-15 : j 

|if DEFINED : name of the base variablej 
jif BASED : name of the pointer | 

I I 

|if minor structure or structure element | 

j : origin relative to the j 

| major structure j 

|.---^ 

I Bytes 16-17 : j 

I I 

|if numeric field: offset of the | 

| picture string j 

t -< 

I Byte 18: j 

I I 

|if numeric field: length of the data | 

f-4 

j Byte 19: j 

I I 

|Number of actual block (only for checking) 

|entry names in phases B30 and B40. It j 

j will not appear in the attribute table) • j 

i---j 

Figure 1. Entries in the Symbol Table for 
Programmer-defined Variables and 
Label Constants (Part 2 of 2) 

M ask Table MSKTAB 

For each PL/I attribute, the mask table 
contains a mask of 8 bytes. Each mask is 


divided into two parts. The first part 
declares which bits in the symbol table are 
to be set on or off if a variable is 
declared with some attribute. The second 
part is used to check conflicting attri¬ 
butes, It contains a 1 in each position 
where a specific attribute may not appear. 


The mask-table is used as follows: The 
corresponding mask of an attribute is put 
together with all other masks of the attri¬ 
butes previously declared for the same 
variable. The first part of a mask is put 
together by an OR instruction in register 
R1, the second part in register R2, If the 
declaration of a variable is complete, 

i.e., if all given attributes are composed, 
the mask parts in R1 and R2 are 'anded'. 

The result is 0 if no conflicting attri¬ 
butes have occurred. 

The format of the mask table is shown in 
Figure 2, The masks are shown in hexadeci¬ 
mal notation. 


Treatment of Errors in Variable 

Declarations 

If an error occurs in a declaration, it is 

treated in the following manner: 

1. The name is given the value 00 as 
internal representation. 

2. If the name in the source text is 
replaced by the internal representation 

(see phase B80) , all statements in 
which the name occurs are flagged. 

3. The name gets an error message in the 
symbol table listing (see phase COO) . 
This message is entered in byte 11 of 
the symbol table. 


DESCRIPTION OF ROUTINES 
JSCQA1 — KC 

This routine processes the block heading. 

It is called if a new part of the symbol 
table is opened. In the declaration pool, 
constructed in phase B15, all declarations 
belonging to one block are collected in a 
group. Each group starts with a new record 
and may contain more than one record. At 
the beginning of each group, there are four 
bytes containing the following information: 

byte 0: block number 
byte 1: block level 

byte 2: block number of the embracing block 
byte 3: mark if the record is the last of 
the group. 
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r - T — T - T -1 

III I Mask I 


K-t— -H 



i 

Attribute 

j First 

Part 

j Second Part 

— 

+- 

— 

+—T— 

T-T- 

| — 

T- 

T- 

T- 

0 

| 00 

parameter 

| 00 

04 

100 

00 

1 oi 

j 9A 

| 00 

| 00 

8 

| 01 

FILE 

100 

00 

| 08 

00 

1 oi 

j EA 

|F6 

|FF 

16 

102 

INITIAL 

| 01 

00 

100 

00 

| 00 

| 6E 

ICE 

| 00 

24 

| 03 

DEFINED 

| 00 

08 

| 00 

00 

| 01 

|D6 

| 0E 

| 00 

32 

| 04 

dimension 

| 00 

00 

| 10 

00 

| 00 

(02 

| 8A 

| 00 

40 

| 05 

CONTROLLED 

| 00 

40 

| 00 

00 

1 oi 

| AA 

| 08 

| 00 

48 

1 06 

POINTER 

| 00 

20 

| 00 

00 

| 00 

| 42 

j 2C 

|FF 

56 

| 07 

colon 

| 00 

01 

| 00 

00 

| 00 

| 00 

| 33 

| 00 

64 

| 08 

LABEL 

| 00 

00 

| 04 

00 

1 01 

j 2A 

| AA 

|FF 

72 

| 09 

PICTURE 

| 00 

00 

100 

80 

| 00 

| 22 

| 8C 

| 08 

80 

1 0A 

ALIGNED 

| 00 

00 

10 0 

00 

| 00 

| 22 

| 2E 

|E7 

88 

| 0B 

ENTRY 

| 00 

00 

| 02 

00 

| 01 

j 4A 

j FC 

| 00 

96 

|0C 

BUILTIN 

| 00 

02 

10 0 

00 

I 01 

j FC 

j FD 

|FF 

104 

| 0D 

INTERNAL 

| 00 

00 

100 

00 

| 00 

| 16 

| 08 

| 00 

112 

|0E 

EXTERNAL 

| 00 

10 

| 00 

00 

| 00 

| 06 

| 00 

| 00 

120 

j OF 

PACKED 

| 00 

00 

| 20 

00 

| 00 

1 22 

( 0E 

|E7 

128 

| F0 

BINARY 

| 00 

00 

| 00 

22 

| 00 

| 22 

| oc 

| 58 

136 

j FI 

DECIMAL 

| 00 

00 

100 

20 

| 00 

| 22 

1 oc 

|1A 

144 

| F2 

FIXED 

| 00 

00 

100 

24 

| 00 

| 22 

I oc 

j 18 

152 

|F3 

FLOAT 

| 00 

00 

| 00 

20 

| 00 

| 22 

| oc 

1 5C 

160 

| F4 

BIT 

| 00 

00 

100 

18 

| 00 

| 22 

| oc 

|E7 

168 

|F5 

CHARACTER 

| 00 

00 

| 00 

10 

| 00 

| 22 

1 oc 

j 6F 

176 

| 16 

STATIC 

| 00 

80 

100 

00 

| 00 

j 4E 

1 08 

| 00 

184 

| 17 

AUTOMATIC 

| 00 

00 

| 00 

00 

| 01 

j DE 

| 08 

| 00 

192 

| 18 

precision 

| 02 

00 

| 00 

00 

| 00 

| 00 

| 00 

| 00 

200 

11 9 

ERROR 

| 10 

00 

| 00 

00 

|FF 

|FF 

|FF 

|FF 

208 

1 1A 

null 

I 00 

00 

| 00 

00 

| 00 

| 00 

| 00 

| 00 

216 

j IB 

ZONED 

| 00 

00 

| 00 

01 

| 00 

| 22 

| 8C 

1 18 

224 

| 1C 

ZONED (T) 

| 00 

00 

| 0 1 

00 

| 00 

| 22 

| 8C 

| 18 

232 

1 ID 

STERLING 

1 00 

00 

| 00 

CO 

| 00 

| 22 

| 8C 

| 18 

240 

| IE 

major 

structure 

1 

| 00 

00 

|C0 

00 

| 01 

| 02 

| IE 

|FF 

248 

| IF 

minor 

structure 

1 

| 00 

00 

| 80 

00 

| 01 

|F2 

1 7E 

|FF 

256 

| 20 

element of 
structure 

1 

| 00 

00 

| 40 

00 

| 00 

|D2 

| A8 

[00 



arithmetic 
erase data 

| 00 

1 

00 

100 

20 







attribute 

j FD 

DF 

| F0 

00 







precision 

| 02 

00 

| 00 

00 





__ 


X-X- 

x_x_ 

X_ 

X- 

x_ 

X- J 


Figure 2. Format of Mask Table 

These four bytes are stored in an inter¬ 
mediate storage SSCOPE. 

The actual position of the pointer PST 
pointing to the symbol table is entered 
into the scope table. 

Abbreviations: 


A statement label has the form: 


Identifier (3 bytes) 

Colon (1 byte) 

An entry name has the form: 

Identifier (3 bytes) 

Attribute ENTRY (2 bytes) 

Optional data attributes: 

EOS key (6 bytes) 


JDCLA1 — KF 

Secondary entry points: JDCLD2, JDCLK2 

This routine processes the DECLARE state¬ 
ment. Since attributes may be nested, a 
DECLARE statement is first scanned to the 
EOS key. At this time an intermediate 
table AHSTAB is constructed. The data is 
entered starting at the end of the table in 
range of its appearance. 

The following information may appear: 

1. User-defined names: 

Starting with the identifier key, 
length 3 bytes. Processing: (see Sub¬ 
routine JNAMA1) . 

2. Structure level: 

Starting with a number, length up to 3 
bytes. Processing: The integer is 
converted from decimal to binary and 
saved in a current level storage. 

3. Attributes: 

Starting with an attribute key, length 
2 bytes. Processing: The two bytes are 
entered into AHSTAB. 

4. Precision: 

Starting with a left parenthesis. 
Processing: The precision is converted 
and entered into AHSTAB (see JPREA1) . 

5. Left parenthesis: 

Special key, length 1 byte. Process¬ 
ing: A parenthesis counter is 
increased. The current level is stored 
in the internal buffer LEVPDS. The key 
is entered into AHSTAB. 


PARAM = parameter-list key 
PARZ = counter for parameters 
LAREC = key for last record 
EOREC = end-of-record key 


(1 byte) 
(2 bytes) 
(1 byte) 
(3 bytes) 


6. Right parenthesis: 

Special key, length 1 byte. Process¬ 
ing: The parenthesis counter is 
decreased. The key is entered into 
AHSTAB. 



J LABA1 — KE 

This routine processes the statement-label 
constants and the entry names. 


7. Comma: 

Special key, length 1 byte. Process¬ 
ing: The actual level is reloaded from 
the internal buffer. 
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8. End of statement: 

Starting with an EOS key, length 6 
bytes. Processing: See JATAA1 . 


J SATA1 -- KH 

This routine scans the attributes. Normal¬ 
ly, only the attributes are entered into 
AHSTAB; however, some attributes are given 
a special treatment: 

1. ARRAY: code X'04' 

Four bytes following the attribute are 
entered in AHSTAB. 

2. FILE: code X'OI* 

One byte following the attribute is 
entered in AHSTAB. 

3. PICTURE: code X'09* 

Nine bytes following the attribute are 
entered in AHSTAB. 

4. CONTROLLED: code X f 05* 

Five bytes following the attribute are 
entered in AHSTAB. 

5. DEFINED: code X'03' 

Three bytes following the attribute are 
entered in AHSTAB. 


J PREA1 — KI 

This routine converts the precision given 
in the source text to a 2-byte form and 
stores it in the intermediate table AHSTAB. 

A precision has one of the following 
f orms: 

(w) or (s) or (s,d) 

where w, s, and d are unsigned decimal 
integer constants having the following 
range of values: 

1 < w < 255, 0 < s, d < 15. 

The result of the conversion has the 
following form: 

Byte 0: precision key 

Byte 1: binary value of the precision. 

The last bit of the key (byte 0) 
declares the form of the precision. If the 
form is (w) or (s) , the bit = 0. If the 
form is (s,d) , the bit = 1. 

Entry parameter: 

PIN = address of the left parenthesis of 
the precision. 

Return parameter: 

PIN = address of the byte after the right 
parenthesis. 


JATAA1 -- KJ - KN 

This routine processes the intermediate 
table AHSTAB and generates the symbol table 
SYMTAB. The items which may be entered in 
AHSTAB and their processing are described 
below. 


1. Attributes 

Representation: 2 bytes 

byte 0 = attribute key 

byte 1 = specification 

Byte 1 addresses an entry in a mask 
table MSKTAB (see Figure 2 in phase 
B20). Parts 1 and 2 of the mask are 
taken from MSKTAB and added with an OR 
instruction to the already existing 
information in registers 1 and 2. 

Some attributes get additional treat¬ 
ment. 

a. Dimension 

Representation: additional 4 bytes 

byte 2 = reserved 

byte 3 = current array number 

bytes 4-5 = number of array 

elements 

Bytes 3-5 are stored in a special 
location. 

b. FILE 

Representation: additional 1 byte 

byte 2 = current file number 

Byte 2 is stored in a special loca¬ 
tion. 

c. PICTURE 

Representation: additional 9 bytes 

byte 2 = left parenthesis 

byte 3 = binary length of data 

byte 4 = right parenthesis 

byte 5 = string constant key 

bytes 6-7 = offset of the string 
constant 

byte 8 = string constant key 

bytes 9-10= length of the string 
constant 

Bytes 3, 67, and 10 are stored in 
a special location. 

d. CONTROLLED 

Representation: additional 5 bytes 

byte 2 = left parenthesis 

byte 3 = identifier key 

bytes 4-5 = name of the pointer 

coded in phase A30 
byte 6 = right parenthesis 
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Bytes 4 and 5 are stored in a spe¬ 
cial location. 


e. DEFINE D 

Representation: additional 3 bytes 


byte 2 = identifier key 

bytes 3-4 = name of the base 

variable 


Bytes 3 and 4 are stored in special 
location, 

2 • Precis ion 

Representation: additional 2 bytes 

= byprecision key 
= byprecision in binary 
form 

There are two different keys. If 
the precision is of the form (w) , 
bit 7 of the key is 0, If the form 
is (s, d) , bit 7 is 1, 

3, Name 

Representation: additional 4 bytes 

byte 0 = identifier key 

bytes 1-2 = user-defined name 

coded in phase A30 
byte 3 = current structure 

level 1. 

First / if necessary, the default attri¬ 
butes are added in routine JDFAA1• A 
test on conflicting attributes follows. 
If there are no conflicts, the entry in 
the symbol table is constructed. 
Finally, registers 1 and 2 are reloaded 
from the internal buffer. 

4. Right parenthesi s: 

Representation: 1 byte 

A parenthesis counter is increased and 
the contents of registers 1 and 2 are 
moved into the internal buffer. 

5. Left parenthesis : 

Representation: 1 byte 

The parenthesis counter is decreased 
and the contents of registers 1 and 2 
are restored from the internal buffer. 

At points 4 and 5, the functions of the 
right and left parenthesis are reversed, 
because construction of AHSTAB in routine 
JDCLA1 begins at the bottom of the table 
and the processing sequence is inverted. 

Entry parameter: 

PAHS = address of the first byte in AHSTAB 
to be processed. 


JTRLA1 — KO 

This routine processes the block trailing. 
It is called if a part of the symbol table 
is closed. 

If the end of a group in the declaration 
pool is reached, 4 bytes are moved into the 
symbol table. The first 2 bytes get a mark 
specifying the end of the part. The second 
2 bytes contain the number of the embracing 
block. 

If the source text contains file dec¬ 
larations, or if a table overflow occurs, 
the part of the symbol table is written on 
a work file. 

Abbreviations used in this routine: 

PST = Pointer symbol table 
IJKMTS = Start address of table area 
SWTOV = Switch table overflow 
IJKMBC = Block counter 

SSCOPE = Storage for scope information 
BSCOPE = Scope chain 

TTEXT = Relative TABTAB entry for external 
table 

SCOTAB = Start address of scope table 
IJKMTT = Start address of master table 
TABTAB. 

Subroutine JNAMA1 — KP 


This subroutine moves the user-defined name 
and the current level number into AHSTAB. 

If no structure level is given, zero is 
inserted. 

Entry parameter: 

PIN = start address of the name. 

Return parameter: 

PIN new = PIN old + 3. 

Note: The total number of names declared 

in one DECLARE statement is restricted to 
65. This restriction is valid for the 
minimum machine configuration. If the 
table space is increased by 20 bytes, the 
number is increased by 1 name. 

Subroutine JAHSA1 — KQ 


This subroutine transfers information to an 
intermediate table AHSTAB and controls the 
pointer PAT for this table. 

The table is built in the buffer area 
and uses three buffers. Construction of 
the table starts at the end. 

Since a DECLARE statement cannot be 
longer than three buffers and the AHSTAB 
cannot contain more than one statement, an 
overflow cannot occur. 
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Entry parameters: 

PIN = start address of the information to 
be transferred, 

BYZ = number of bytes 

Return parameter: 

PIN new = PIN old + BYZ. 

Subroutine JPC0A1 — KR 

This subroutine controls the input pointer 
PIN and inserts a new record in the dec¬ 
laration pool, if necessary. 

Generally, it is possible to process the 
information sequentially. But because 
identifiers or correlated expressions must 
not be divided by the buffer end, two input 
buffers are used. When pointer PIN reaches 
the second buffer, the contents of the 
second input buffer are moved into the 
first and a new record is read. 

J PUTA1 — KS 

The routine writes the symbol table. It is 
called if a table overflow occurs or if the 
current source text contains a file dec¬ 
laration. The symbol table is divided into 
parts. Each part contains all declarations 
given for one block of the source program. 

The scope table SCOTAB contains an entry 
for each part. 


SCOTAB+4 = relative start address of a part 
SCOTAB+2 = relative end address of a part 


If the symbol table is written, each 
part starts with a new record. The follow¬ 
ing information is moved into the scope 
table: 


SCOTAB+0 = number of records belonging to 
this part (1 byte) • 

SCOTAB+1 = record identification for the 
record (3 bytes) 

SCOTAB+ 4 = 00 (2 bytes) 


JCWTA1 — KT 

This routine converts an unpacked decimal 
integer constant to binary representation. 
The decimal number may have up to 9 digits. 


Entry parameter: 

PIN = start address of the decimal con¬ 
stant. 

Return parameters: 

HR1 = value of the converted constant. 

HR2 = number of digits of the decimal con¬ 
stant. 

PIN = address of the first byte after the 
decimal constant. 
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PH ASE PL/TB25 (FILE DECLARATIONS) — L$ 


This phase has the following functions: 

1. to perform the syntactical scan of the 
file declarations; 

2. to test the file declarations for con¬ 
flicting or missing attributes and 
options; 


3. to build up the file table FILTAB and 
to replace the file declaration state¬ 
ments by NOP statements. 


Notes: Phase B25 is skipped if there are 

no file declarations in the source program. 
The information required to point to the 
third record of NAMTAB has been stored in 
IJKMIP+4 in phase A30. The internal name 
of the first file has been stored in IJKMIP 
in phase B20. 


P hase Input an d Ou tput 

The input is a string of 3-byte elements 
and/or elements of variable length. 


The file declaration statements have the 
following format: 


r - T -T-T- T-1 

| FSK | VN | CFN | file description! EOS j 

L-X_X_X-X_J 


where FSK = file statement key = X'E00043' 
(3 bytes) 

VN = variable name (3 bytes) 

CFN = current file number (3 bytes) 
EOS = end-of-statement key (6 bytes) 

The output differs from the input only 
in that the file declaration statements 
have been replaced by NOP statements. 


The File Table 


This table (FILTAB;ZTAB03) is written on 
SYS001 (recordsize = length of one entry = 
20 bytes) . Each entry has the format shown 
in Figure 1. 


BYTE 

0-1 


+- 


MEANING 


internal name 




bit 

bit 

bit 

bit 

bit 

bit 

bit 

bit 


RECORD, 0 

INPUT 

OUTPUT 

UPDATE 

PRINT 

STREAM 

KEYED 

BACKWARDS 


STREAM 


bit 0 
bit 1 
bit 2 
bit 3 
bit4-6 
bit 7 


1 = DIRECT, 0 = SEQUENTIAL 
1 = CONSECUTIVE 
1 = REGIONAL (1) 

1 = REGIONAL (3) 
not used 
1 = UNBUFFERED, 

0 = BUFFERED 


bit 

bit 

bit 

bit 

bit 

bit 

bit 

bit 


KEYLENGTH 

F 

V 

U 

BUFFERS (2) 
BUFFERS (1) 
LEAVE 
NOLABEL 
VERIFY 


keylength 


000 - 244 = SYS000 - SYS244 
2 51 = SYSIPT 

252 = SYSLST 

253 = SYSPCH 


' 10 * 
MV 
' 12 ' 
M3' 
' 20 * 
' 21 ' 


O' = 


2540 

(card reader 

or 

punch) 

1442 

(card reader 

or 

punch) 

2520 

(card reader 

or 

punch) 

2501 

(card reader) 



1403 

(printer) 



1404 

(printer) 



1443 

(printer) 



1445 

(printer) 



2400 

(tape) 



2311 

(disk) 




8 - 9 
10-11 
12-19 


blocksize 
recordsize 
not used 


Figure 1. Format of File Table Entries 
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To scan the file declarations for con¬ 
flicting attributes and options, every 
attribute is assigned to a bit position of 
a bit string of 32 bits. The mapping is 
identical to bytes 2-4 of the file table. 


The last byte contains the following 

bit 0 

1 = F with recordsize 

bit 1 

1 = card reader or punch 

bit 2 

1 = printer 

bit 3 

1 = tape 

bit 4 

1 = disk 

bit 5 

not used 

bit 6 

1 = ENVIRONMENT 

bit 7 

1 = MEDIUM 


In addition, every attribute and option 
is assigned to a bit string consisting of 
two substrings of 32 bits. In the first 
substring, all bits except that of the 
characteristic bit position, which may be 0 
or 1, are zero. In the second bit string, 
a bit is set to 1 only if it is the charac¬ 
teristic bit position of a conflicting 
attribute or option. All the bit strings 
of attributes and options appearing in the 
file declaration are OR-ed. 

If the logical product (AND) of the 
resulting two substrings is * 0, the file 
declaration contains conflicting attributes 
and/or options. Conflicts in attributes 
and/or options are illustrated in Figure 2 
(X means conflict) . 


E rrors 

Errors found in this phase may cause one of 
the error messages 188-216. For the indi¬ 
vidual messages, refer to the SRL publica¬ 
tion IBM System/360, Disk and Tape Operat¬ 
i ng Systems, PL/I Programmer's Guide , Form 
C24-9005. 

The name of a file is set to 0 in the 
file table if the corresponding file dec¬ 
laration contains an error of the severity 
T. Statements in which incorrect file 
names occur are not flagged. 


I nitialization — LA 

This is the beginning of the main routine. 
It initializes pointers, switches, etc. , 
and reads input text into 4 buffers. 


FSCN — LB 

This is part of the main routine. It per¬ 
forms the general scan over the source 
text. 


N ote: A file declaration statement is not 

preceded by any label. 


FFIL — LC 

This is part of the main routine. It scans 
the file-declaration statement for accepta¬ 
ble attributes by means of an attribute 
table that has the following format: 

r-T-T-T- 

I K I 0000 B I B I 

L-X-i-X-J 

where K = last two bytes of the 3-byte key 
the keyword is represented by; 

B = bit string (see the section The 
File Table) . 

The table is terminated by X'FF'. When 
the routine is entered, the general reg¬ 
isters R4 and R5 are cleared. They are 
then OR-ed with every bit string of a file 
attribute found in the statement. Any 
element that is not a file attribute is 
ignored. FERR is called to note error 
message 189. If the ENVIRONMENT attribute 
is found, control is passed to FENV. 
Reaching the EOS key causes control to be 
transferred to EFIT. 

FENV — LD 

This is part of the main routine. It scans 
the options of the ENVIRONMENT attribute by 
means of an options table that has the 
following format: 

r - T -r- T ----— i 

| K | A | B | B | 

L X_X-X---J 

where K = last two bytes of the 3-byte key 
the keyword is represented by: 

A = address relative to FENV of the 
routine processing the option, 

i.e., 

FBUF for BUFFERS 
FMED for MEDIUM 
FFIX for F 
FUVN for U/V 
FREG for REGIONAL 
FKEL for KEYLENGTH 

B = bitstring (see the section The 
File Table) . 

The table is terminated by X'FF*. 

The bit strings of the option found are 
OR-ed into general registers R4 and R5. 

Then control is transferred to one of the 
abovementioned routines. Any element that 
is not an option found before reaching the 
right parenthesis of the ENVIRONMENT attri¬ 
bute is ignored. FERR is called to note 
error message 189, and control is trans¬ 
ferred to FNOP to bypass a possibly follow¬ 
ing specification* e.g., (14). 
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FSPE -- LE 

Secondary entry points: FSPE02, FSPE03 

This subroutine performs the syntactical 
scan of the options that must be followed 
by an integer enclosed in parentheses, 
e.g., KEYLENGTH (10) . The integer is con¬ 
verted to binary and returned in general 
register R3. 

If the option is not followed by a left 
parenthesis and a decimal digit, the rou¬ 
tine returns false to (LINK) , otherwise 
true to 4 (LINK) . 


FINT — LF 


Input parameter: 

PIN: points to the first digit of the deci¬ 
mal integer to be converted to binary. 

Output parameters: 

R3: converted integer, 

PIN: points to the first byte following the 
integer. 

This subroutine converts a decimal inte¬ 
ger to binary. If the integer consists of 
more than 9 decimal digits, R3 is set to 
32,768 = maximum blocklength + 1, 


FBUF — LG 

This is part of the main routine. It scans 
the BUFFERS option and OR-es the bit 
strings of BUFFERS (1) or BUFFERS (2) into R4 
and R5, 


F MED — LK 

This is part of the main routine. It scans 
the MEDIUM option and inserts the number of 
the logical device and the key for the 
physical device type into the file table. 


FSYS — LL 


FPDT — LM 

This subroutine tests the number specified 
for the physical device type and inserts 
the respective device code into the file 
table. It OR-es the corresponding bit 
strings into R4 and R5. 

FBLO — LN 

Secondary entry point: FBL002 
This subroutine checks whether the block- 
size specification is greater than 32,767 
and inserts it into the file table if it is 
less or equal. 

FFIX — LO 

This is part of the main routine. It scans 
the F option and OR-es the corresponding 
bit strings into R4 and R5 if blocksize and 
recordsize are specified. 

FUVN — LP 

This is part of the main routine. It calls 
FBLO to test the blocksize specification of 
the U or V option. 

FREG — LQ 

This is part of the main routine. It scans 
the REGIONAL option and OR-es the corres¬ 
ponding bit strings into R4 and R5 if 
REGIONAL (1) or REGIONAL (3) is specified. 

FKEL — LR 

This is part of the main routine. It 
checks whether the KEYLENGTH specification 
is greater than 255 and inserts it into the 
file table if it is less or equal. It 
inserts 255 if it is high and notes error 
message 194. 

FNOP — LS 

Input parameter: 

OLP : number of open left parentheses. 

This is part of the main routine. It 
searches for right parenthesis (if OLP # 0) 
to transfer control to FENV10. 


/iT> 



Input parameters: 

PIN : points to the 3-byte key the logical 
device name has been replaced by. 

RSTNAM: number of a name table record that 
has already been read into storage 
(initialized with 0) . 

Output parameters: 

PIN : = PIN+3. 

Rl: points to the name-table entry of the 
logical device name. 

This subroutine retrieves the logical 
device name from the name table. 


If the end-of-statement key is found before 
a right parenthesis is detected* control is 
transferred to FFIT. 

FFIT — LT, LU, LV, LW, LX 

This is part of the main routine. It adds 
default attributes or options, if neces¬ 
sary, and builds up bytes 2-4 of the file 
table. It tests for: 

1. conflicting attributes or options by 
forming the logical product of R4 and 
R5; 
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2. missing attributes or options; the file name is set to 0. A NOP key is 

moved into the output buffer for the file 

3. conflicts that cannot be detected by declaration. Control is then transferred 

the general method; to FSCN35 to continue the general scan. 


4. unpermitted combinations of function 
attributes or physical devices with 
logical system units; 

5. blocksize specifications that are out¬ 
side of device depending limits or 
incompatible to the rules concerning 
division by recordsize or 8, respective 
ly. 

At the end of the routine, FEOS is 
called. 


JEOS -- LI 

This subroutine positions the contents of 
input buffers 1-4 so that the currently 
scanned EOS is in input buffer 1 (this is 
done by moving and by reading in new 
records). It puts out the EOS and the 
error codes attached to it. If additional 
error codes have been generated, they are 
also put out. 

JTRN — L2 


F ERR - LY 

Input parameter: 

R0 : error number 

This subroutine inserts the error number 
into the error table. After seven numbers 
have been inserted, error 215 with the 
severity code T is noted as 8th error. The 
end of statement is searched for, and con¬ 
trol is transferred to FEOS. 

FEOS — LZ 



This is part of the main routine. It 
inserts the file name into the file table 
and writes the table on SYS001. If errors 
of the severity code T have been detected. 


Input parameters: 

PIN : pointer of source text. 

POUT : pointer of output buffer. 

BYZ : number of bytes to be moved. 

Output parameters: 

PIN : = PIN + BYZ. 

POUT: address of next free byte within the 
output buffer. 

If not all the bytes to be moved fit into 
the output buffer or if they do exactly 
fit, the buffer is filled with the first 
part of the text to be moved. The buffer 
contents are written on a work file and the 
remaining bytes, if any, are moved to the 
begin of the buffer. 
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P HASE PL/IB30 (SYMBOL TABLE CONSTRUCTION II) — MA 


This phase checks the symbol table con¬ 
structed by phase B20. Each variable in 
the symbol table is tested for multideclar¬ 
ation. 

Secondary entries in function procedures 
are tested to determine if they have the 
same attributes for return values as the 
main entry. 

If the attribute CONTROLLED or DEFINED 
is given, the internal representation of 
the pointer variable or base variable, 
respectively, is set into the symbol table. 


DESCRIPTION OF ROUTINES 

N ote: The routines JTRNA1 and M0VEA1 are 

described in phase A50. The corresponding 
flow charts are F3 and FO. 

I nitialization — M B 

Phase B20 constructs the scope table SCOTAB 
(see phase B20) . 

If the source program has no file dec¬ 
larations, i.e., if phase B25 is skipped, 
phase B20 leaves the scope table in the 
buffer area IJKMBS. Otherwise, the scope 
table is written onto a work file. 

JRSTA1 — MC 

Secondary entry point: JRSTD2 
Phase B20 has constructed the first version 
of the symbol table. If no symbol table 
overflow occurred, the symbol table is 
still in storage and the routine only ini¬ 
tializes the pointer PST with the start 
address of that part of the symbol table 
that belongs to the block to be processed. 
Otherwise, this routine reads in part of 
the symbol table and loads the start 
address into PST. 

Entry parameters: 

BLZ = number of block to be processed 
SCOTAB = scope table (see phase B20) 

Return parameter: 

PST = symbol table start address 
JCSTA1 — M E 

This routine checks the symbol table. If a 
variable has the attribute CONTROLLED or 
DEFINED, the internal representation of the 
pointer variable or base variable, respec¬ 
tively, is moved into the symbol table. 


For testing multi-declaration, each 
entry of the symbol table is compared with 
all other entries belonging to one block of 
the source text. Multi-declaration is 
given if two entries have the same name. 

In this way the internal representation of 
the pointer or base variable is set into 
the entry of the CONTROLLED variable and/or 
DEFINED variable, if both entries are in 
the table area at the same time. 

This is done in the following manner: 
Assume the variable compared with all oth¬ 
ers is named A. The other is named B. If 
B has the attribute CONTROLLED, it is det¬ 
ermined if A is the corresponding pointer. 
This is possible if the pointer is declared 
in the same block earlier than the con¬ 
trolled variable and the part of the symbol 
table belonging to this block is not longer 
than the table area. In this case, the 
internal representation is moved in and the 
movement is marked by a special bit. In 
the other case, if A has the attribute 
CONTROLLED and the entry is not marked, the 
pointer is searched by reading the symbol 
table for the current and the embracing 
blocks successively in a special area (in 
routine JSP0A1) . 

Entry parameters: 

PST = address of the actual entry in the 
symbol table. 

HR4 = number of records in the table area 
which have not yet been read. 


JNSTA1 — MF 

This routine reads the next record of the 
symbol table if the whole table belonging 
to one block of the source text is not in 
the table area. 

Entry parameters: 

HR1 = address of the actual variable B (see 
Routine JCSTA1, Phase B3Q ) . 

GRADR = limiting address of the area con¬ 
taining the symbol table. 

NOTES = note information for the first 
record not yet read. 

HR4 = number of records not yet read. 

Return parameter: 

HR 1 = address of the next variable B. 
Subroutine JSP0A1 — MG 

This subroutine searches for the pointer 
variable or base variable if they are not 
declared in the same block and earlier than 
the CONTROLLED or DEFINED variable, or if a 
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table overflow occurs due to the number of 
declarations. 

Entry parameter: 

PST = address of variable A. (see Routi ne 
JCST) . 

JM DCA1 — M H 

This routine checks for multi-declaration. 
This is given if two or more identical 
names appear in one block. An exception 
from this rule is qualified names. It is 
possible for a name to refer to more than 
one variable or data aggregate if the iden¬ 
tically named items are parts of different 
structures. In order to avoid any ambigui¬ 
ty in referring to these identically named 
items, it is necessary to create a unique 
name. This is done by forming a qualified 
name. This means that the name common to 
more than one item is preceded by the name 
of the structure in which it is contained. 
This, in turn, can be preceded by the name 
of the structure in which it is declared, 
and so on. Multiple declaration for quali¬ 
fied names is given if they have identical 
qualifications. The qualification for the 
first name compared is made in routine 
JQULA1 and stored in area QUALF1. For the 
second name, the qualification is stored in 
QUALF2. 

Entry parameters: 

PST = address of the first name compared. 
HR; = address of the second name. 

JCHEA1 — M I 

Secondary entry point: JCHED1 

This routine checks the ENTRY attribute. 


The first entry name in the outermost pro¬ 
cedure has the block level 0. All secon¬ 
dary entry names have level 1. 


JQULA 1 — MJ 

This routine assigns qualifications to 
structure items (see Routine JMDCA1) . 

A test is performed to determine if all 
bit string data contained in the data 
aggregates, i.e., arrays or structures, 
have the attribute ALIGNED. 

Entry parameter: 

PST = address of the name to be qualified. 

Return parameter: 

QUALF1 = qualification. 

JCCBA 1 — MK 

Secondary entry point: JCCBB2 

This routine checks the base identifier and 
changes the name of the base identifier or 
pointer into the internal representation. 
The program has two entries: 

Entry parameters: 

Main entry: 

HR1 = address of the defined identifier 
PST = address of the base identifier 

Secondary entry: 

PST = address of the defined identifier 
HR 1 = address of the base identifier 

Return parameters: 

HR 1 = unchanged. PST = unchanged. 
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PH ASE PL/IB40 (STRUCTURE MAPPING) -- MZ 


This phase calculates the storage require- 
ments of structures. This calculation is 
referred to as structure [napping. 


A structure is a data aggregate contain¬ 
ing items of different types that are 
grouped in a given order and in such a way 
that the overall storage requirement is a 
minimum. The individual structure items 
have different and independent requirements 
of length and positioning with respect to 
hardware boundaries. 


Each element of a structure has three 
mapping parameters: the alignment A, the 
length L, and the lefthang H. The values 
of the parameters depend on the declaration 
of the structure as shown in Figure 1. The 
alignment is identical to the hardware 
boundary requirement of the respective 
structure element. In DOS/TOS PL/I, there 
are three possible alignments levels: 1 = 
byte boundary, 4 = word boundary, and 8 = 
double-word boundary. The length is the 
length in bytes of the element. Data items 
are stored right-adjusted to their bounda¬ 
ry. This implies the use of a third pro¬ 
perty: the lefthang. The lefthang is the 
number of bytes of an element (or a combi¬ 
nation of elements) that are to the left of 
the alignment point of that element. 


r 

1 Data type 

l.. .. .... 

h- 

\> 

— 

L 

T I 

lfi| 

+H 

| 0 I 

|Numeric field 

T T 

Ml 

n 

|Float decimal short 

Ml 

4 

I 0 I 

j Float decimal long 

1 8 | 

8 

| 0 1 

(Float binary short 

Ml 

4 

1 0 1 

(Float binary long 

1 SI 

8 

| 0 I 

j Fixed binary 

Ml 

4 

| 0 I 

1 Fixed decimal numeric | | 


1 1 

| Field 

Ml 

n 

| 0 1 

j Fixed decimal (p, q) 

| 1 | Floor 

( (P+2) /2) 

| 0 1 

j Bit string 

1 IMeil 

(n/8) 

| 0 I 

j Character string 

Ml 

n 

| 0 I 

j Pointer 

Ml 

3 

| 3 I 

j Label variable 

Ml 

8 

| 0 I 

L 

r r __ 


.-L_J 


Figure 1. A, L, and H for Structure Items 


Assume the following structure: 

1 s , 

2 SI CHARACTER (5) , 

2 S2 FLOAT (16) , 

2 S3 CHARACTER (2) ; 


Figure 2 then shows the relationship 
between A, L, and H after the structure has 
been mapped. 


I 1 

j <-L-> | 

I I I 

| <-h->| 

I I 

I I 

j.-1- T - T - 

| SI j S2 I S31 

L-+-+— L - I 

| <-A->|<-A >| 

I I I 

alignment alignment alignment 

point point point 


Figure 2. Relationship between A, L, and H 
after Mapping of a Structure 


Figure 2 shows that L is independent of 
A and H. The value of A has two meanings: 


1. The actual storage address of the byte 
immediately to the right of an align¬ 
ment point (boundary) must be divisible 
by A? 


2. The number of bytes between two align¬ 
ments points (a boundary interval) is 
equal to A. 


The value of H is made unambiguous by 
the condition 

0 <H <A 

To completely map a structure, all minor 
structures, if any, that contain only elem¬ 
entary items or arrays must be mapped 
first. (Refer also to the discussion of 
structure mapping in the DOS/TOS PL/I 
Programmer's Guide.) The mapping begins 
with the first (leftmost) element, whose 
mapping parameters are taken from Figure 1. 
The next element is appended to the right. 
Assume that the mapping parameters of the 
left and the right element are A*, L*, H n 
and A 2 , L 2 , H 2 , respectively (see Figure 3, 
step 1) . Different situations will then 
occur depending on the relationship between 
the two sets of mapping parameters, and a 
resulting set of parameters A 3 , L 3 , H 3 is 
generated that describes the mapping of the 
two elements as one compound item. 


86 















PL/I PLM 8 


IBM Confidential 


< 


DECLARE 1 M, 

2 V, 

3 X 
3 Y 
3 Z 
2 W, 

3 I 
3 J 
3 K 


POINTER, 

BINARY FIXED (31) 
BIT (16) 

CHARACTER (3), 
DECIMAL FLOAT (16), 
CHARACTER (3); 


Step 1. Mapping 

of the 

«v= 3 ' 

individual minor structures V and W results 

A =4, L =9 

V ' V 

J 

in: 

H w= 3 ' A w= 8 ' V 14 

□ 


Y 

1 Z 

( L 

I 

J 

K 

1 

0 

i 

8 

; 

12 0 4 

F 

t 16 


The new alignment requirement of M (V and T'7 mapped together) is: 


A =MAX(A ,A )=MAX(4,8)=8 A_ = 8 

m v w ' m 

Step 2. To map V and W, V is put to the left of W at A =8. Since only the alignment boundary 
■ and not the actual storage position is examineS, the actual location in storage is of 
no interest as long as the boundary reauirements are observed. In the following example, 

A is assumed to* be at byte 8 and A,, at byte 32. 
v w J 




PAD X = PAD - R = 15 - 12 = 3 

L = L + PAD, + L tt = 9 + 14 + 3 = 26 L = 26 

m v 1 w _m_ 

Step 3 . This results in the following structure map for M: 


Figure 3. 


? 

X 

Y 

Z 

PAD 1 

I 

J 

K 



-2C 

) 2‘ 

5-- 3: 

2 40 

44 


Structure Mapping Example 


with the parameter set: 


A = 8 
m 

H = 7 
m 

L - 26 
m 


1. Since items with lower boundary 

requirements can also be aligned at a 
higher boundary, but not vice versa, 
the following formula applies: 


A 3 = MAX (A-, ,A 2 ) 

2. It may happen that the two items so 
mapped are not contiguous, e.g., 

1 X, 

2 B BINARY FIXED, 

2 C POINTER; 

In this case, there is a slack byte S 
between B and C (see Figure 4) . The 
area occupied by the slack byte must 
then be added to the resulting length 

C La: 

L 3 = L„ + L 2 + PAD 


where PAD is in the region 


0 < PAD < A 3 

S| I I 

F--1— T -H 

I B I s I C | 

(.-1--L-^ 

I I I 

A=4 A A 

Figure 4. Inclusion of a Slack Byte S 

3. If padding, i.e., inclusion of slack 

bytes, becomes necessary and A«, is less 
than A 2 , padding can possibly be minim¬ 
ized by moving the left element to the 
right as close as possible to the right 
element. After the shift, boundary 
requirement Amust still be satisfied 
for the left element. 
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This process can be described as fol¬ 
lows: R is the amount of the right 
shift. Before shifting, the left ele¬ 
ment can be assumed to be on boundary 
A 3 with its (unmodified) lefthang H ^ 
(see Figure 3, stept 2) . If the left 
element is then shifted R bytes to the 
right, the lefthang becomes: 

(1) H 3 = H, - R 

If H fl is less than R, one boundary 
interval (A 3 bytes) on the left becomes 
unused and may now be disregarded. The 
lefthang is computed instead from the 
next boundary to the right by increas¬ 
ing Hi by A 3 . For Hi < R, the new 
lefthang is: 

(2) H 3 = Hi - R + A 3 

Formulas (1) and (2) can be combined to 

(3) H 3 = Hi - R + n*A 3 

where n is 1 if Hi is less than R; 
otherwise n is zero. 

To have the left element adjusted at 
its proper boundary, R must fulfill the 
requirement: 

(4) MOD (R, Ai) = 0 

The next formula gives the resulting 
padding reduction: 

(5) 0 < PADi = PAD - R < Ai 

where PAD is the originally required 
padding (as described under item 2 
above) and PADi is the (reduced) pad¬ 
ding after the right shift. The formu¬ 
la for L 3 then changes to 

L 3 = Li + L2 + PADi 

This is illustrated in step 3 of Figure 

3. 

The amount of padding (PAD or PADi) can 
also be formalized. The offset 0, of 
the leftmost byte of the left element 
to the nearest boundary A 3 is 

Oi = Li — Hi — ni*A 3 

where n n must be suitably chosen to 
satisfy 

0 < Oi < A 3 

(Multiples of A 3 are of no interest 
because of the minimum condition 
PAD < A 3 •) 

The padding PAD is then the difference 
between A 3 - Oi (the number of unused 


bytes up to the next boundary A 3 ) and 
H 2 • If H 2 is larger than A 3 - Oi, PAD 
becomes negative, i. e., there is not 
sufficient space to start the right 
element in the same boundary interval 
so that it must start in the same rela¬ 
tive position in the next boundary 
interval to the right. This means that 
A 3 is added to PAD. 

The multiples of A 3 can be extracted by 
using modulo arithmetic. This results 
in 

PAD = -Oi - H 2 (modulo A 3 ) 

= -Li + Hi - H 2 (modulo A 3 ) or 

(6) PAD + L fl - Hi + H 2 = 0 (modulo A 3 ) 
From formula (5) above we obtain 

(7) PADi + Li - Hi + H 2 = 0 (modulo A n ) 

The value R defined by formula (3) can 
also be explained in modulo arithmetic. 
For convenience, its complement 

(8) T = H 3 - Hi 

is developed here. Starting from for¬ 
mulas (5) and (6) we obtain 

PADi+R+Li-Hi+H 2 =0 (modulo A 3 ) 
or, by applying formulas (3) and (8), 

(9) PADi -T+L fl -Hi +H 2 =0 (modulo A 3 ) 

Since A 3 is divisible by Ai, comparison 
of (9) and (7) yields 

-T = 0 (modulo Ai) 

which is equivalent to the auxiliary 
condition (4) . 

The next element to the right can now be 
mapped by taking the previously mapped 
compound item as the left element and so 
forth until all elements of the containing 
minor (or major) structure have been 
mapped. The structure itself is thereby 
reduced to a compound item. When all minor 
structures of the lowest level have so been 
reduced to compound items, mapping of the 
next-higher-level structure (which now 
contains elements and compound items only) 
can be started. This procedure is contin¬ 
ued until the major structure has been 
mapped. 

Arrays are handled in a special way. If 
an array is not of type POINTER, A is as 
shown in Figure 1, H is zero, and L taken 
from Figure 1 is multiplied by the number 
of array elements. The array is then 
mapped in one single step like an elementa¬ 
ry item. 
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POINTER arrays differ due to their 
lefthang. Each element of a POINTER array 
except the first one must be preceded by a 
slack byte to satisfy the proper boundary 
requirements. This results in A = 4, H = 

3, and L = 4 *K-1, where K is the number of 
array elements. 


Structure mapping starts with elementary 
items and arrays and proceeds upwards to 
the major structure. Structure declara¬ 
tions , however, are organized in the rev¬ 
erse direction, starting with the major 
structure and going down to its elements. 
For this reason, the structure mapping 
algorithm described in Figure 5 must also 
start at the major structure. If the dec¬ 
laration to be processed is not an elemen¬ 
tary item or an array, the routine MAPP is 
called recursively to handle the next lower 
level (blocks B3 and B2 of Figure 5) . On 
return from this recursive call, the 
appropriate structure has been reduced to a 
compound item. The routine MAPP has one 
input and four return parameters. The 
input parameter is a pointer S to the 
structure (major or minor) to be mapped. 

The return parameters are A, L, H, and the 
number of items N at any level contained in 
this structure. 


With each call of MAPP, initial values 
for A, L, and H are generated for accumula¬ 
tion during the mapping process (blocks A2, 
HI, and H4) . This initialization allows to 
program the mapping algorithm as an itera¬ 
tive process. It is equivalent to adding a 
dummy element with length zero, lefthang 
zero, and minimum boundary requirements to 
the left of each structure (minor or 
major) . 


When the routine is called recursively, 
the old values A, L, H, and N are stacked. 
They are available again (unchanged) after 
return from the recursive call. A, L, and 
H serve for the sets A-, , L 1 , H fl and A 3 , L 3 , 
H 3 in the above description of the process, 
while AA, LL, HH work as right-side element 
sets A 2 , L 2 , H 2 • A global variable LV is 
used in this process; it contains the level 
at which mapping is momentarily being per¬ 
formed. One variable PAD is used for both 
PAD and PAD!. The distinction between PAD 
and PAD* is made by a branch in block F2. 

Besides A, L, and H, the mapping algor¬ 
ithm must provide the symbol table with the 
origin of each minor structure, array, and 
element relative to the beginning of the 
structure (block H2) . Since all minor 
structures at the lowest level have been 
mapped independently, the relative origin 
of each such minor structure starts at 
zero. The relative origins must therefore 


be adjusted when minor structures are 
mapped as compound items (block J3) . NN in 
block J4 is equal to the number of all 
items contained in a structure. 


DESCRIPTION OF ROUTINES 

Note: Subroutine MOVEA 1 is described in 

phase A50. 

JRSYA1 — NC 

This routine updates the symbol table. The 
respective entry is pointed to by PST. If 
the entry is a single item, the length of 
the item, i.e., the number of bytes occu¬ 
pied at object time, is entered into the 
symbol table. If the entry is a structure, 
it is mapped. 

JPRSA1 — ND 

This routine checks whether the entire 
structure is in storage. If required, it 
reads in the remaining part. After calling 
JMAPA1 which performs the actual structure 
mapping. A, L, and H are entered into the 
symbol table. All symbol table entries 
pertaining to the structure are put out. 

JP0SA 1 — NE 

Secondary entry point: JP0SA5 

This subroutine controls two output 
buffers. If the buffers are full, they are 
written out in overlapped mode. 

The secondary entry is used if a block 
end in the symbol table is reached. In 
this case, the buffer contents are written 
regardless of whether or not the buffer is 
full. 

The NOTE information of the first record 
of a block is entered into the scone table 
if the main entry is used for the first 
time and after each block end. 

Entry parameters: 

PST = start address of symbol table to 
be written 

BYZ = number of bytes to be written 
POUT = output area pointer 
BUFST1 = start address of first buffer 
BUFST2 = start address of second buffer 
BUFLIM = limiting address of buffer cur¬ 
rently used 

STRECL = symbol table record length 

Return parameter: 

PST new = PST old + BYZ 

JMAPA1 — NF 

This routine calculates the mapping of 
structures. It may be called recursively. 
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An internal buffer is used for storing 
and returning parameters. It consists of 
four 32-byte sections referred to as PCJSHI 
-PUSH4• Each buffer entry has a length of 
four bytes. The eight entries per buffer 
section represent the levels of the struc¬ 
ture. Thus, each structure level has an 
entry in each of the four buffer sections. 
The entries have the following format: 


PCJSHI 

byte 

1 

alignment (A) 

bytes 

2-4 

return address (LINK) 

PUSH2 

byte 

1 

lefthang (H) 

bytes 

PCJSH3 

2-4 

start address of the structure 
(S) being processed 

bytes 

1-2 

length (L) of the item being 
processed 

bytes 

3-4 

number of items (N) contained in 
the item being processed 

PUSH4 

bytes 

1-2 

number of the item (I) being 
processed relative to the 
embracing structure 

bytes 

3-4 

reserved 


Level counter LV is used for addressing 
the internal buffer. 


Entry parameter: 

PST = start address of 
structure to be 
mapped 

Return parameters: 

PCJSHI (4*LV) = alignment (A) 

PUSH2 (4*LV) = lefthang (H) 

PCJSH3 (4*LV) = length of structure (L) 

PCJSH3 (4+LV+2) = number of items (N) con¬ 
tained in item being proc¬ 
essed 


JP ADA1 — N G 

This routine calculates the padding and the 
lefthang of a structure. The padding PAD 
is defined as 

0<PAD<A and 


(PAD+HH+L-H) modulo A = 0 

If HH+L-H = X, PAD can be defined as fol¬ 
lows: 

(PAD+X) /A=CEIL (X/A) 

PAD=A*CEIL (X/A) -X 
PAD=A* FLOOR ( (X+A-1) /A) -X 

The increment T of the lefthang H is 
defined as 

0<T<AA and 

(PAD+HH+L-H-T) modulo AA = 0 

If Y = PAD+HH+L-H = PAD+X, T can be defined 
as follows: 


(Y-T) /AA=FLOOR (Y/AA) 
T=Y/AA* FLOOR (Y/AA) 


Entry parameters: 


PUSH3 (BYZ) 

= L 

= length of embracing 
structure 

PUSH2+4 (BYZ) 

= HH 

= lefthang of item being 
processed 

PUSH2 (BYZ) 

= H 

= lefthang of embracing 
structure 

PUSH1 + 4 (BYZ) 

= AA 

= alignment of item being 
processed 

PUSH1 (BYZ) 

= A 

= alignment of embracing 
structure 

BYZ 

= 

(LV-1) *4 


JCANA 1 — NH 

This routine calculates the number of items 
contained in a structure at any level. The 
symbol table entries for all structure 
items are assumed to be stored in the table 
area. 

Entry parameter: 

PST = address of structure to be mapped 

Return parameters: 

PST = unchanged 

N = number of items (bytes 3-4 in PUSH3) 
JALHA1 — NI 

This subroutine calculates A, L, and H. 
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Figure 5. Structure Mapping Algorithm 
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PH ASE PL/IB7Q (CONTEXTUAL DECLARATIONS) -- OA 


Phase B70 adds all contextually declared 
identifiers to the symbol table SYMTAB. 

All identifiers that either occur in a CALL 
statement or precede a PROCEDURE statement, 
an ENTRY statement, or a parenthesized list 
are replaced in the text string by their 
internal representation• 

All identifiers that are built-in func¬ 
tions with arguments are replaced with the 
internal representation of the built-in 
functions in the text string. 

P hase Input 

1. Text string on TXTIN. All identifiers 
are identified by an El-key. 

2. Symbol table SYMTAB on SYS001. For 
each explicitly declared identifier, 
SYMTAB contains an entry with the dec¬ 
larations of the identifier and its 
internal representation. 

Phase Output 

1. The text string on TXTIN contains all 
identifiers that occur in a CALL state¬ 
ment, or precede a PROCEDURE statement, 
an ENTRY statement, or a parenthesized 
list characterized by an EE-key and 
replaced by its internal representa¬ 
tion. All built-in functions with 
arguments are characterized by an EC- 
key and replaced by their internal 
representation. All remaining 
identifiers are characterized by an 
El-key. 

2. For each contextually declared iden¬ 
tifier, block n+1 of SYMTAB in storage 
and/or on SYS001 contains an entry with 
the declaration of the identifier. 


COMMUNICATION WITH OTHER PHASES 
Scope Table 

The scope table SCOTAB (built and described 
in phase B20) contains an entry for each 
block of the symbol table. The format of 
this entry is as follows: 

Byte 0 : Number of records of the block. 

Bytes 1-3 : Note key of the block on 
SYS 001• 

Bytes 4-5 : Address of the block in storage 
relative to the beginning of 
the table space. If the block 
is not in storage, bytes 4-5 
are zero. 


IJKMIP 

If bit 0 of IJKMIP is on, all blocks of 
SYMTAB are in storage. If bit 1 of IJKMIP 
is on, some blocks of SYMTAB are in stor¬ 
age. These blocks are in storage from the 
beginning of phase B70. 


WSLIS T 


WSLIST is a list with an entry for each 
possible block level (3 entries). If block 
X with level number N is read, entry N of 
WSLIST contains: 


Byte 

0 

Byte 

1 

Bytes 

2- 3 

Bytes 

4- 7 

Bytes 

8-11 

Bytes 

12-15 


Number of records of block X 
which are in storage. 

Number of records of block X 
which are not in storage. 
Entry of block X in the scope 
table. 

Begin address of block X in 
storage. 

End address of block X in 
storage. 

Note key of the part of block 
X which is not in storage. 

If the entire block X is in 
storage, bytes 12-15 are 
zero. 


The scope table and WSLIST contain the 
information on the location of the blocks 
of SYMTAB. If either one of the first two 
bits of IJKMIP is on, information is 
retrieved from the scope table only. As 
soon as a block that is not in storage is 
required in phase B70 or B80, bit 1 of 
IJKMIP is reset and the control of blocks 
in storage passes to the entries in WSLIST. 


Class i fying of Table Space 

At the beginning of phase B70, the table 
space is classified for storing blocks of 
SYMTAB in phases B70, B75, and B80. 

The table space is divided into three 
sections. The first section is used for 
storing blocks of SYMTAB. The number of 
records of SYMTAB that can be stored here 
is called MO. 

The second section (starting with AN1) 
is used to build up block n+1. Its length 
is equal to the record length of SYMTAB if 
not all blocks of SYMTAB (except block n+1) 
are in storage. If all blocks (except 
block n+1) are in storage, the free table 
space is used to build up block n+1. 
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The third section (starting with ABS 1) 
is called BS. This area consists of two 
buffers called BS1 and BS2. The length of 
each buffer is equal to record length of 
SYMTAB. BS is used for reading and scan¬ 
ning records of SYMTAB if a block, or part 
of a block, cannot be stored in the first 
MO buffers of the table space without des¬ 
troying other blocks that are also required 
for scanning. If the entire SYMTAB (except 
block n+1) is in storage, BS is also used 
to build up block n+1. 


The following terms are used for classify¬ 
ing table space: 


MO 


K 


AN 1 

ABS1 
ABS2 
AEBS2 
PSE 

AO 


Number of records of SYMTAB that 
can be stored in the first section 
of the table space. 

Number of buffers in the table 
space that are used to build up 
block n+1. Normally, K = 1. 
Address of the area in which block 
n+1 is built up. 

Address of BS and BS1. 

Begin address of BS2. 

End address of BS2. 

Points to the location where the 
next entry of block n+1 is stored. 
Address of table space. 


buffer to which the next output will 
be moved. 

PSY : points to the entry of SYMTAB which 
is scanned. 

Switch MS = Bit 0 of WSWIMS. Switch MS is 
set if an entry of the identifier is 
found in SYMTAB and the identifier 
is declared in this entry as a minor 
structure or as an element of a 
structure. If the identifier is 
declared as an array, the internal 
representation of it is stored. 
Scanning of the same block is con¬ 
tinued, but embracing blocks are not 
scanned. 

LVLPT: points to the WSLIST entry for the 
required SYMTAB block. 

Scope pointer: points to the SCOTAB entry 
for the required SYMTAB block. 

The following tables are used: 

WBTAB is used to indicate the appearance of 

not explicitly declared built-in functions. 

If a not explicitly declared built-in func¬ 
tion is found in the text string, the cor¬ 
responding bit in WBTAB is set. 


W BSEN 

Byte WBSEN contains the number of a block 
which is completely stored, or of which the 
last records are stored, in BS. If byte 
WBSEN is zero, no records are stored in BS. 


WTAB contains the masks for setting bits in 
WBTAB and WCTAB. 

WNRNR contains the number of the block and 
the number of the embracing block of the 
statement being tested. 


Bi t 20 of IJKMJT 

Bit 20 of IJKMJT is set if a built-in func¬ 
tion is detected in this phase. 

E rror Code X'4 5' 

If an incorrectly declared identifier is 
found in this phase, the error code X'45* 
is inserted into the text string after the 
statement in which the incorrectly declared 
identifier is found. 


Inpu t/ Output of Text String 

Three contiguous buffers are used for read¬ 
ing and writing of the text string. The 
first buffer is used as output buffer. The 
second buffer is the first input buffer; 
its address is contained in BUFB1. The 
third buffer is the second input buffer; 
its address is contained in BUFB2• The end 
address of the second input buffer is con¬ 
tained in BQFEND• 


W CTAB and Swit ch B75 

Table WCTAB is used to indicate built-in 
functions coded in the text string as 
built-in functions, but declared by the 
user. If such a function is found, its 
matching bit in WCTAB and switch B75 are 
set, i.e., phase B75 will not be skipped. 

I nternal Pointers, Switches, and Tables 

The following pointers and switches are 
used: 

PIN : points to the element in the input 
buffer which is scanned. 

POUT : indicates the address in the output 


Output is performed under control of the 
output pointer POUT by the output routine 
JTRNA1 as described in phase A50. 

The input pointer PIN points to the text 
string element to be scanned. After scan¬ 
ning, PIN is increased by the length of the 
element. If PIN points to an element not 
contained in the first input buffer, output 
of the first input buffer is performed by 
JTRNA1. The contents of the second input 
buffer are moved to the first input buffer. 
PIN is decreased by the buffer length and 
the next record is read into the second 
input buffer. If PIN points to an element 
in the first input buffer, scanning is 
continued. 
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Functional Descrip tion 

The following cases are checked in this 

phase by scanning the text string: 

1. An identifier precedes a PROCEDURE or 
ENTRY statement: This identifier is 
declared explicitly* Its entry is 
retrieved from SYMTAB and its internal 
representation is inserted into the 
text string. 

2. An identifier occurs in a CALL state¬ 
ment: SYMTAB is searched for an entry 
of this identifier. If an entry is 
found, the identifier must be declared 
as an entry name, and its internal 
representation is inserted into the 
text string. If it is not declared as 
an entry name, X*EE0000* and an error 
message are inserted into the text 
string. 

If the identifier is not declared, it 
will be declared as an external entry 
name in block n+1 of SYMTAB, and its 
internal representation is inserted 
into the text string. If the name of 
such an identifier is equal to a built- 
in function, and this built-in function 
is noted in WBTAB, i.e., the built-in 
function was previously used in the 
text string, it is also noted in WCTAB 
and switch B75 is set, i.e., phase B75 
will not be skipped. 

3. An identifier followed by a 
parenthesized list occurs. SYMTAB is 
searched for an entry of this identifi¬ 
er. If an entry is found, the iden¬ 
tifier must be declared as entry name, 
array, or built-in function, and its 
internal representation is inserted 
into the text string. If the declara¬ 
tion is not of this type,X*EE0000 1 and 
an error message are inserted into the 
text string. If the identifier is not 
declared, it is checked whether or not 
it is a built-in function. If it is, 
the identifier is replaced in,the text 
string by the internal representation 
of the built-in function, and its 
appearance is noted in WBTAB. If the 
identifier is not a built-in function, 
it will be declared as an external 
entry name in block n+1 of SYMTAB, and 
its internal representation is inserted 
into the text string. 


DESCRIPTION OF ROUTINES 

Note: The following subroutines are used 

in this phase but are described elsewhere: 

JERRA1 and JTRNA1 are described in phase 
A50. All of the remaining routines are 
described in phase B80: 


WBS0C1 WELST3 
WCAM1 WGT21 
WCLEAR WGT22 
WELST1 WSETSP 


Initi a lization — OB 

Output pointer POUT is set to the beginning 
of the output buffer. Input pointer PIN is 
set to the beginning of the first input 
buffer. The first two records of the text 
string are read into the input buffers. 

The begin addresses of the first and second 
input buffers and the end address of the 
second input buffer are stored in BUFB1, 
BUFB2, and BUFEND. 

The table space is classified as des¬ 
cribed in the section Classifying of Table 
Space . MO, AN1, ABS1, ABS2, and AEBS2 are 
stored in WMO, WAN1, WABS1, WABS2, and 
WAEBS2, respectively. 

If there are blocks in storage from 
previous phases, bit 1 of IJKMIP is set. 

If there are blocks in storage that exceed 
the first MO buffers of the table space, 
the addresses of these blocks are cleared 
in the scope table. It is tested whether 
all blocks of SYMTAB are in storage. If 
they are not, K = 1. If all blocks are in 
storage, the address of the free table 
space is equal to AN1, K is equal to the 
number of free buffers, and ABS1 is equal 
to the address of the end of the table 
space. Pointer PSE is set to the beginning 
of the area used to build up block n+1. 

Search for Identifier in Source Text--QC 

The text string is scanned for begin of 
statement (statement identifier) f identifi¬ 
er, and end of statement. 

If a begin of statement is found, the 
number of the block and the number of the 
embracing block of this statement are 
stored in WNRNR. If the statement is a 
CALL statement, and no OVERLAY or a DYNDUMP 
is called, switch CALL is set. If OVERLAY 
or DYNDUMP is called, this is indicated in 
the statement identifier and OVERLAY or 
DYNDUMP is deleted in the text string. 

Ident i fier in Source Text — OP 

PIN points to the El-key of an identifier. 
If this identifier is not part of a quali¬ 
fied name, it is checked whether: 

1. The identifier precedes a PROCEDURE or 
ENTRY statement, or 

2. switch CALL is on, or 

3. The identifier is followed by a paren¬ 
thesized list. 
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The actions performed in these cases are 
described in the section F unct i onal Des ¬ 
cription , 

If the internal representation of an 
identifier is zero, error code X'45* is 
inserted into the text string by the error 
routine JERRAl. 


E ntry in SYMTA B — OE 

PIN points to the identifier an entry of 
which is made in block n+1 of SYMTAB as 
external entry name, PSE points to the 
beginning of the entry. The internal rep¬ 
resentation of the identifier is equal to 
the present value of the variable counter. 

If the first character of the user- 
defined name of the identifier is I through 
N, the attributes FIXED BINARY and the 
length 15 are set into the entry of the 
identifier. Otherwise, the attributes 
FLOAT DECIMAL and the length 6 are set into 
the identifier entry. 

If this entry is the last possible entry 
in the buffer (s) used to build up block 
n+1, all entries of block n+1 which are in 
storage are written onto SYS001, and PSE is 
reset. If the first bit of IJKMIP is on, 
it is reset; the second bit of IJKMIP is 
set, and K is decreased by 2, i.e., BS is 
now used to accommodate the part of block 
n+1 which is not in storage. 


En d of Statement or Phase -- OF 

PIN points to the EA-key of End of 
Statement. WR4 contains the begin address 
of the area which is moved into the output 
buffer. This area including End of State¬ 
ment and possible error messages from pre¬ 
vious phases are written by the output 
routine JTRNA1• If an incorrectly declared 
identifier was found in this statement, the 
error bit is set on and the new error 
message (s) is (are) added to the possible 
old one. The number of error messages 
after a statement is limited to 8. 

It is tested whether PIN points to the 
end of the text string. If it does, the 
part of the text string which is not yet on 
TXTOUT is written and TXTOUT and TXTIN are 
rewound and exchanged. If switch B75 is 
on, phase B75 is called; otherwise, phase 
B80 is called. 

C heck for Built-in Function — OG 
Entry : WBUIN1 
Input parameter: 

PIN points to the identifier which is 
checked if it is a built-in function. 


WBTAB1 is a table which contains the 
second bytes of the internal representation 
of all built-in functions with arguments 
the names of which are declared in the 
first record of the name table NAMTAB. The 
second bytes are in the order of the com¬ 
pressed names of the built-in functions. 
WBTAB2 is a table which contains the second 
bytes of both the compressed name and the 
internal representations of all built-in 
function with arguments the names of which 
are declared in the second record of NAM¬ 
TAB. 

It is tested if the identifier is a 
keyword. If it is a keyword and it is 
declared in the first record of NAMTAB , it 
is checked if the keyword matches a built- 
in function in WBTAB1. If it does, 
pointers are set to the entries of this 
function in WTAB, WBTAB, and WCTAB, and 
exit YES occurs. If the keyword is 
declared in the second record of NAMTAB, 
WBTAB2 is scanned for this keyword. If it 
is found, pointers are set to the entries 
of this function in WTAB, WBTAB, and WCTAB, 
and exit YES occurs. 

Output parameters (for exit YES) : 

RO contains the internal representation of 
the built-in function. 

R1 points to WTAB entry, R2 points to WBTAB 
entry, and R3 points to WCTAB entry of the 
built-in function. 

Searc h for Identifier in SYMTAB — OH-OL 
Entry point: WSIO 
Input parameter: 

PIN points to the identifier, an entry of 
which is searched for in SYMTAB. 

If an identifier is declared in SYMTAB, 
its internal representation is retrieved 
therefrom by WSIO. In addition, this sub¬ 
routine attempts to keep blocks in storage 
as long as possible and reads only those 
blocks into storage that are required to 
scan for an entry for the identifier. 
Scanning is started in block X, i.e., in 
the block that contains the statement 
which, in turn< contains the identifier 
searched for. If the searched entry is not 
found in block X, scanning is continued in 
the embracing block of block X, etc. The 
outermost block is block n+1. 

If block X of the identifier is not in 
storage, all blocks in storage that are not 
embracing blocks of block X are cleared. 

If there are not enough contiguous free 
buffers in the table space to accommodate 
block X, embracing blocks of block X are 
cleared starting with block level 1. 

If the number MX of records of block X 
is not greater than MO, block X is stored 
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and scanned in the table space; otherwise, 
the first MO records of block X are stored 
and scanned in MO buffers of the table 
space. The remaining records of block X 
are read and scanned in BS. 

If scanning is continued in an embracing 
block of block X, block X remains in stor¬ 
age. If the embracing block is not in 
storage and the maximum of contiguous free 
buffers in the table space is Ml, the 
embracing block is stored in the Ml buffers 
unless the number of records of the embrac¬ 
ing block is greater than Ml. Otherwise, 
the first Ml records of the embracing block 
are stored and scanned in the Ml buffers of 
the table space. The remaining records are 
read and scanned in BS. 

If an entry of the identifier is found 
and the identifier is declared in this 
entry as an array in a structure, the 
internal representation of this entry is 
stored and scanning of the block is contin¬ 
ued. If no other entry of the identifier 
is found in the same block, the internal 
representation of the array is retrieved. 

If another entry of the identifier is 
found, the internal representation of the 
new entry is retrieved if tne identifier is 
not declared in this entry as a minor 
structure or as an element of a structure. 

If an entry of the identifier is found 
and the identifier is declared as a minor 
structure or as an element of a structure, 
but not as an array, scanning of the block 
is also continued. If no other entry is 
found in the same block, the error routine 
is initialized. 

If the identifier is not declared in 
SYMTAB, exit NOT of WSIO occurs. If it is 
declared and its internal representation is 
not zero, exit DECL occurs. If its inter¬ 
nal representation is zero, the error rou¬ 
tine is initialized. 

Output parameters: 

PIN points to the identifier in the text 
string. 

PSY points to the entry of the identifier 
in SYMTAB if exit DECL occurs. 

Read and Scan Block X -- OM-ON 


Entry : WRBX1 

Input parameters: 

R1 contains the address A1 of the area 
in which block X can be stored. 

R3 contains the number Ml of records 
which can be stored in Al. 

R7 points to the entry of block X in the 
scope table. 

LVXPT points to the entry of block X in 
WSLIST. 


WMX contains the number MX of records of 
block X. 


If MX is not greater than Ml, the entire 
block X is stored and scanned in the table 
space. Otherwise, the first Ml records of 
block X are stored and scanned in the table 
space, and the remaining records of block X 
are read and scanned in BS. 


If an entry of the identifier is found 
and the identifier is not declared as a 
minor structure or as an element of a 
structure, the internal representation is 
tested for zero. 

If an entry of the identifier is found 
and the identifier is declared as an array 
in a structure, the internal representation 
of the array is stored. Scanning is con¬ 
tinued. 

If no entry or only entries for iden¬ 
tifiers declared as a minor structure or as 
an element of a structure are found, this 
subroutine is left via its normal exit. 

Output parameter: 

PSY points to the entry of the identifier 
in SYMTAB if the identifier is declared but 
not as a minor structure or as an element 
of a structure. 


Sear ch for Identifier in BS — 00 
Entry: WREAD1 
Input parameter: 

R3 contains the number of records of block 
X to be read and scanned in BS. 

Records are read and scanned in over¬ 
lapped mode, i.e., while a new record is 
read into one buffer of BS, the record in 
the other buffer is scanned for an entry of 
the searched identifier. PSY points to the 
entry of SYMTAB which is scanned. 

If no entry of the searched identifier 
is found that is not declared as a minor 
structure or as an element of a structure, 
the routine is left via its normal exit. 

If an entry is found and the identifier 
is declared as a minor structure or as an 
element of a structure, switch MS is set. 

If the minor structure or element of a 
structure is an array, the internal rep¬ 
resentation of the array is stored. Scan¬ 
ning is continued. 

Output parameter: 

PSY points to the entry of the searched 
identifier unless this routine is left via 
its normal exit. 
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is tested whether the end address of this 
block is equal to or higher than AN1. If 
it is higher or equal, the begin address of 
this block in the scope table is cleared. 

If it is lower and the end address of this 
block is higher than the highest end 
address of previously found blocks in stor¬ 
age, the end address of this block is 
stored. 


< 


i 


C lear A ddr e ss es in Scop e T a ble -- OP 
Entry: WCSC01 

If switch WCSC02 is off, bytes 4 and 5 of 
all entries in the scope table are cleared. 
If switch WCSC02 is on, bytes 4 and 5 of 
all entries of the scope table are tested 
for zero. If a nonzero entry is found, it 
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If a subroutine reference in the text 
string is identical to the name of a built- 
in function, the name of the identical 
function must be declared as an external 
entry name, provided the function has not 
been declared explicitly as a built-in 
function. This phase replaces such a 
subroutine reference (which has been 
declared as a built-in function in phase 
B70) by its correct representation as an 
external entry name. If there is no such 
subroutine reference, phase B75 is skipped. 

Ph ase Input 


1. The text string from TXTIN which con¬ 
tains function references that have 
been incorrectly declared as built-in 
functions. 

2. Block n+1 of SYMTAB which contains all 
contextually declarations. 

Ph ase Outpu t 

In the text string, all subroutine referen¬ 
ces that were improperly declared are now 
replaced by their proper internal represen¬ 
tation and are characterized by an EE-key. 

Communication with Other Phases 


Scope table 

IJKMIP 

WSLIST 

Table Space as classified in phase B70 
WBSEN 

Bit 20 of IJKMJT 
tfCTAB 

The above areas, tables, and switches, 
as well as I/O handling are the same as 
described in phase B70. 

I nternal P o int ers, Switches, and Tables 

PIN points to the element being 

scanned in the input buffer. 

POUT indicates the output buffer 

address to which the next output 
is to be moved. 

PSY points to the entry of block n+1 

in SYMTAB, which is to be scanned. 
EPSY points to the end of the area that 

contains the entries Of block n+1 
which are to be scanned. 

Switch 1 is on if records of block n+1 are 
stored in BS, but not in the first 
MO buffers of table space. 


Switch 2 is on if records of block n+1 are 
stored in the first MO buffers of 
table space and in BS. 

WECLIST contains entries which consist of 
the compressed user name and the 
WCTAB entry for the built-in func¬ 
tion. These entries are in 
ascending order by the internal 
representations of the built-in 
functions. 


DESCRIPTION OF ROUTINES 

N ote : The subroutines listed below are 

used by phase B75, but described elsewhere. 
For a description of these subroutines 
refer to the sections indicated. 

ITRNA1 phase A50 

WBSOC phase B80 

WCLEAR phase B80 

WCSC01 phase B80 

WSETSP phase B80 

Init ia liz atio n — OS 

The pointer POUT is set to point to the 
beginning of the output buffer. The poin¬ 
ter PIN is set to point to the beginning of 
the first input buffer. The first two 
records of text string are read into the 
input buffers. 

The bit used to indicate the presence of 
built-in functions in the current compila¬ 
tion is reset. 

If the table space contains only a por¬ 
tion of that part of block n+1 which was 
built up during phase B70, the head of 
block n+1 is retrieved from SYS001. If the 
number' (MX) of records of block n+1 on 
SYS001 is not greater than MO+2, MX records 
of block n+1 are read into the table space; 
otherwise, the first MO records of block 
n+1 are stored in the first MO buffers of 
the table space and the begin of the 
remaining records on SYS001 is noted. 

Scan S ource Text — OT 

The text string is scanned for an End-of- 
Statement indication and for built-in 
functions not explicitly declared. 

If a built-in function is found which is 
not explicitly declared, the WCTAB area is 
tested to determine whether the function 
has been declared by the user. If not, a 
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bit is set to indicate that the current 
compilation includes built-in functions. 

If the function has been declared by the 
user, the compressed name of this built-in 
function is obtained and the internal rep¬ 
resentation of the user's function is 
picked up in block n+1. The built-in func¬ 
tion in the text string is replaced by the 
internal representation of the user's func¬ 
tion and the key 'EE'. 

Pic k u p Internal R e present a tion of User 
Fu nction — QU 

Block n+1 is scanned for the entry of the 
user's function. Scanning starts with 
those entries of block n+1 which have been 
in storage at the beginning of this phase. 
Scanning continues with those entries of 
block n+1 which have been stored in the 
table space during initialization of this 
phase. If not all records of block n+1 are 
in storage, the head of the remaining 
records of block n+1 is picked up and the 
entries of these records are read and 
scanned in BS. 

En d of Stateme n t or Phase -- OV 

Pointer PIN points to key 'EA' of the end 
of statement. WR4 contains the address of 
the area whose contents are moved into the 
output buffer. The processed text string, 
including end-of-statement and error messa¬ 
ges (if any) from previous phases are writ¬ 
ten on TXTOUT by the output routine JTRNA1. 


If PIN points to the end of the text 
string, that part of the text string which 
is not yet on TXTOUT is written, TXTOUT and 
TXTIN are rewound and exchanged. The phase 
is terminated by calling phase B80. 

Search for Identifier Subroutine — QW 
Entry point: WSEA.R 
Input parameters: 


PSY points to the area that contains the 
entries of block n+1 that are to be 
scanned. 

EPSY points to the end of the same area. 
R11 contains the compressed user's name 
of the function, the entry of which 
is to be searched for. 

PSY points to the entry of block n+1 
that is to be searched for the identifier. 
If the desired entry is found, the routine 
is left to replace the built-in function by 
the internal representation of the user's 
function in the text string. 

If PSY points to an address that is 
equal to or greater than the value of EPSY, 
this subroutine is left via the NO exit. 

Output parameter: 

PSY points to the desired entry of block 
n+1 if not left via the NO exit. 
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PHASE PL/IB80 (IMPLICIT DECLARATIONS) — PA 


This phase performs the following func¬ 
tions: 

1. All implicitly declared identifiers are 
added to the symbol table SYMTAB. 

2. Identifiers in the text string that 
have an El-key are replaced by their 
internal representations. 

3. Identifiers in the text string, which 
are built-in functions without argu¬ 
ments , are replaced by the internal 
representation of the built-in func¬ 
tions. 

P hase Input and Ou tp ut 

The input consists of the following: 

1. The text string from TXTIN containing 
all identifiers which are not replaced 
by the appropriate internal representa¬ 
tion with an El-key. 

2. Symbol table SYMTAB on SYS001 or in 
storage which contains an entry for 
each explicitly or contextually 
declared identifier. 

As output, the phase produces: 

1. The text string on TXTIN which contains 

a. the appropriate internal represen¬ 
tation with an EE-key for all iden¬ 
tifiers and 

b. the appropriate internal represen¬ 
tation with an EC-key for all 
built-in functions. 

2. Block n+1 of SYMTAB on SYS001. This 
block contains one entry for each con¬ 
textually or implicitly declared iden¬ 
tifier. 

C ommunication with Other Phases 

Scope Table 

IJKMIP 

WSLIST 

Table Space as classified in phase B70 
WBSEN 

Bit 20 of IJKMJT 
Error code X'45 f 
Error code X'44 1 

Areas, tables, and switches under 1 
through 7, above are as described in phase 
B70. 

E rror code X'4 4 *. If an identifier of a 
qualified name is not declared in SYMTAB, 


the error code X*44' is inserted into the 
text string after the statement in which 
the not declared qualified name was found. 


Inter n al P ointers, Switches, and Tables 

PIN points to the element in the input 

buffer which is being scanned. 

POUT indicates the output buffer address 
to which the next output is to be 
moved. 

PSY points to the SYMTAB entry to be 

scanned. 

LVLPT points to the entry in WSLIST for 
the required SYMTAB block. 

Scope points to the entry in the scope 
pointer table for the required SYMTAB 
block. 

WSWIMS switch MS is on if bit 0 of WSWIMS 
is 1. It is set whenever an entry 
of an identifier is found in SYMTAB 
and this identifier 

1. does not occur in a qualified 
name and 

2. is declared as a minor struc¬ 
ture or an element of a struc¬ 
ture in this entry. 

The internal representation con¬ 
tained in this entry is stored, and 
scanning of the block is continued; 
however, embracing blocks are not 
scanned. 

WQUALS if WQUALS is X'OI*, switch QUAL is 
on; this indicates that a qualified 
name is to be tested. If WQUALS is 
X * 81 1 , switches QUAL and MINOR 
STRUCT are on; this indicates that 
scanning for entries for the iden¬ 
tifiers of a qualified name was 
started. 

WNRNR contains 

1. the number of the block con¬ 
taining the statement being 
tested and 

2. the number of the embracing 
block. 

The level lists WLEVL, WQUANT, and WNTLL 
are used if scanning for a qualified name 
is performed. The lists WQUANT and WNTLL 
are only used when the records of SYMTAB, 
which are being scanned for the qualified 
name, are in BS. The contents of these 
tables follow: 
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WLEVL 


Bytes 0-3: Pointer PSY of the identifier 


— ^ - 


entry with smallest level 
number found while scanning 
for an identifier of a quali¬ 
fied name was performed. 

Byte 

4: 

LNR1 = level number + 1 of the 
identifier of a qualified name 
which precedes the identifier 
being scanned for. (= 1 if 

the first identifier is 
scanned.) 

Byte 

5: 

LNR2 = level number of the 
entry which is referred to in 
bytes 0 through 3. 

WOUA.NT 

Bytes 

0- 7: 

NOTE information for the 
record currently in BS1. 

Bytes 

8-11: 

Not used. 

Bytes 

12-15: 

Number of records + 1 of block 
X that follow the record cur¬ 
rently in BS1. 

WNTLL 


Contents of WQUANT for the 
identifier referred to in 

WLEVL (bytes 0 through 3) . 


The proper entry for each identifier 
contained in the qualified name is 
looked up in the block in which the 
qualified name is declared. All but 
the last identifier of the qualified 
name are deleted in the text string. 
When the correct entry of the last 
identifier is found in SYMTAB, the 
internal representation of this iden¬ 
tifier including the key 'EE' is 
inserted into the text string. Other¬ 
wise, 1 EE0000 1 and the error code X'44* 
(= qualified name not declared) are 
inserted in the text string. 


DESCRIPTION OF ROUTINES 

Note: Subroutines JERRA1 (error) and 

JTRNA1 (output) are used by phase B80, but 
described in phase A50. 

Initi a lization — PB 

Output pointer POUT is set to the beginning 
of the output buffer. Input pointer PIN is 
set to the beginning of the first input 
buffer. The first two records of the text 
string are read into the input buffers. 

Pointer PSE is set to the first availa¬ 
ble byte position in block n+1 following 
the last entry made in phase B70. 


Func ti o nal Description 

If an identifier with an El-key is found in 
the text string, subroutine WSIO is called 
to search SYMTAB for an entry for this 
identifier. The identifier may or may not 
occur in a qualified name. 

1. The identifier does not occur in a 
qualified name. 

If the identifier is declared, its 
internal representation including the 
key 'EE* is inserted into the text 
string. If the identifier is not 
declared, it is determined whether or 
not it is a built-in function without 
arguments. 

In case of a built-in function without 
arguments, the internal representation 
of the built-in function including the 
key 'EC 1 is inserted into the text 
string. 

If it is not a built-in function, the 
identifier is declared as arithmetic in 
block n+1 of SYMTAB, and its internal 
representation including the key 'EE' 
is inserted into the text string. 

2. The identifier occurs in a qualified 
name. 


Search for Identifier in. Source Text — PC 


The 

text string is scanned for 


1 . 

the beginning of statements 
identifiers) , 

(statement 

2. 

identifiers with an El-key, 


3. 

end of statements and 


4. 

explicitly declared built-in 

functions 


Input and output of the text string is 
as described in phase B70. 

If the beginning of a statement is 
found, the numbers of the block containing 
the statement and of the embracing block 
are stored in WNRNR. 

If an identifier with an El-key is 
found, WSIO is called to search SYMTAB for 
an entry for this identifier. If the iden¬ 
tifier is declared, its internal represen¬ 
tation with the key 'EE* is inserted into 
the text string. 

If the identifier is the first one of a 
qualified name, the text string is written 
out up to the beginning of the qualified 
name and switch QUAL is set before WSIO is 
called. 
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If an explicitly declared built-in func¬ 
tion is found, the appropriate representa¬ 
tion of the function (first byte of inter¬ 
nal representation = 0) is inserted into 
the text string. The bit that indicates 
built-in functions in the current compila¬ 
tion is set. 


End of Phase— PG 


That part of the text string which has not 
yet been written onto TXTOUT is written 
out. End of block n+1 is set and that part 
of block n+1 which is in storage is now 
written on SYS001. 


( ' 

V 


I dentifier not Declared —,PD 

If an undeclared identifier is a built-in 
function without arguments, the internal 
representation of this function, including 
key •EC *, i£ inserted into the text string. 
The bit that indicates built-in functions 
in the current compilation is set. 

If the internal representation of the 
identifier is 0, X'EEOOOO' is inserted into 
the text string. In addition, the error 
code X'45* is inserted by calling JERRA1. 


The number of records of, and the note 
information for, block n+1 are inserted 
into scope table entry 0. If all of block 
n+1 is in storage, its address in relation 
to the table space is also set into the 
scope table. 


TXTIN and TXTOUT are rewound and 
exchanged. The phase is terminated by 
calling phase B90. 

Scan ni ng o f Qualified Name — PH 


E ntry in SYMTAB — PE 

PIN points to the identifier for which an 
entry with arithmetic attributes is built. 
This entry is then moved into .block n+1 of 
SYMTAB. PSE points to the address of the 
entry. 

The internal representation of the iden¬ 
tifier equals the present value of the 
variable counter. 

If one of the characters I through N is 
used as the first letter of the user- 
defined name of the identifier, attribute 
FIXED BINARY with a length of 15 is set 
into the entry for the identifier. If the 
first letter is a character other than I 
through N, FLOAT DECIMAL with a length of 6 
is set into the identifier entry. 

If this entry is the last possible entry 
in the buffer (s) used to build up block 
n+1, all entries of block n+1 that are in 
storage are written on SYS001. PSE is 
reset. If the first bit of IJKMIP is 1, 
this bit is reset, the second bit of IJKMIP 
is set, and K is decreased by 2, i.e., BS 
is used to retrieve that part of block n+1 
which is not yet in storage. 

E nd of Stat e me n t - - PF 

PIN points to key ' EA* of End of Statement. 
WR4 contains the address of the area whose 
contents are to be moved into the output 
buffer by calling JTRNA1. 

If an improperly declared identifier or 
qualified name is found in this statement, 
the error bit is set and the new error 
message (s) are added to the old one. The 
number of error messages following a 
statement is limited to eight. 


This routine retrieves the proper entry in 
SYMTAB for the last identifier of a quali¬ 
fied name. This is done under control of 
switch WQUALS and level lists WLEVL, WNTLL, 
and W2UANT. (WNTLL and WOUANT are used 
only when scanning of SYMTAB is done in 
BS.) 

In the text string, all but the last 
identifier of a qualified name are deleted. 
When the proper entry for the last iden¬ 
tifier is found, the internal representa¬ 
tion of this identifier, including key 
'EE *, is inserted into the text string; 
otherwise 'EEQ000* and the error code *44' 
(= qualified name not declared) are insert¬ 
ed into the text string. 

All identifiers of a qualified name are 
declared in the same block. Each identifi¬ 
er of a qualified name has a level number 
which is greater than the level number of 
the preceding identifier. 

PIN points to the first identifier of 
the qualified name in the text string and 
PSY points to an entry of this identifier 
in block X when this routine is entered at 
WOUAL8. The entry that contains the lowest 
level number is searched for the identifier 
pointed to by PIN. Information about the 
entry which presently contains the lowest 
level number is stored in the level lists. 

Scanning for entries for the first iden¬ 
tifier of the qualified name starts at the 
beginning of block X and stops when either 
an entry for this identifier with level 
number 1 or the end of the block is found. 
Scanning for the other identifiers starts 
at the entry that follows the entry with 
the lowest level number of the preceding 
identifier and stops when an entry with a 
level number is found that is either 
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1. equal to the level number plus 1 or 

2. not higher than the level number of the 
preceding identifier. 

When the scanning is stopped, WLEVL 
contains pSY of the entry with the lowest 
level number of the identifier pointed to 
by PIN. 

If WLEVL is blank, i.e., an entry for 
the identifier was not found, the embracing 
block is scanned for the entry with the 
lowest level number of the first identifier 
of the qualified name, and so on. If the 
embracing block is block n+1, scanning 
stops. In this case, the qualified name 
has not been declared. 


SUBROUTINES 

5 earch for Id entifier_in_SY MT AB — PI - PM 
Entry point: WSIO 
Input Parameters: 

1. No qualified name: PIN points to the 
identifier for which an entry in SYMTAB 
is searched. 

2. Qualified name: PIN points to the 
beginning of the qualified name. Bit 7 
of switch WQUALS is on. 

If an identifier is declared in SYMTAB, 
WSIO retrieves the internal representation 
of the identifier from SYMTAB. In addi¬ 
tion, this subroutine attempts to keep 
blocks in storage as long as possible and 
reads into storage only those blocks that 
are required to scan for an entry for the 
identifier. 

If block X (the block that contains the 
statement which, in turn, contains the 
identifier searched for) is not in storage, 
all blocks in storage that are not embrac¬ 
ing blocks of block X are cleared. If 
there are not enough contiguous free buf¬ 
fers in the table space to accommodate 
block X, embracing blocks of block X are 
cleared starting with block level 1. If 
the number of records of block X is greater 
than MO, all blocks are cleared in storage, 
the first MO records of block X are stored 
in the MO buffers of the table space, and 
these records are scanned. The remaining 
part of block X is then read into, and 
scanned in, BS. 

If scanning is continued in an embracing 
block of block X, block X remains in stor¬ 
age. If the embracing block is not in 
storage and the maximum number of connected 
buffers in the table space is equal to Ml, 


the embracing block is stored in the Ml 
buffers, provided the number of records of 
this block is not greater than Ml; other¬ 
wise, the first Ml records of the embracing 
block are stored and scanned in the Ml 
buffers of the table space and the remain¬ 
ing records are read into, and scanned in, 
BS. 

The remaining functions of the subrou¬ 
tine vary according to the type of iden¬ 
tifier (qualified name or no qualified 
name) . 


No Qu a lified Name. Scanning is started in 
block X of the identifier. If the searched 
entry is not found in block X, scanning is 
continued in the embracing block of block 
X, etc. Block n+1 is the outermost embrac¬ 
ing block of all blocks. 

If an entry for the identifier is found 
and a minor structure or an element of a 
structure is declared in this entry, the 
internal representation in this entry is 
stored and scanning of the block is 
continued. If no other entry for the iden¬ 
tifier is found in the same block, the 
stored internal representation is used for 
the identifier; otherwise, the internal 
representation of the new entry is fetched, 
provided no minor structure or element of a 
structure has been declared in this entry. 

If the identifier is declared and its 
internal representation is not 0, the rou¬ 
tine is left via the exit DECL. If the 
internal representation is 0, the routine 
is left via the error exit (to initialize 
the error routine). If the identifier is 
not declared, the routine is left via exit 
NOT. 


Qualified Name. Scanning is done as des¬ 
cribed under Scanning of Qualified Name - - 
PH. If the qualified name is not declared, 
the subroutine is left to initialize the 
error routine. 

The subroutine is left via the exit DECL 
if the internal representation in the entry 
with the smallest level number of the last 
identifier of the qualified name is not 0. 
If the internal representation is 0, the 
routine is also left to initialize the 
error routine. 


Output Parameters: 

PIN points to the identifier (last iden¬ 
tifier of qualified name) in the text 
string. 

PSY points to the entry of the identifier 
in SYMTAB if the routine is left via 
the exit DECL. 
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Re ad and Scan B loc k X - - PN, PO 
Entry points: WRBX1, WSCX1, WSCX6 
Input Parameters: 


R1 

contains the address A1 of the area 
into which block X (block to be 
scanned) can be stored. 

R3 

contains the number Ml of records 
which can be stored in A1. 

R7 

points to the entry for block X in 
the scope table. 

LVLPT 

points to the entry for block X in 
WSLIST. 

WMX 

contains the number MX of records 
of block X. 

EQUALS 

indicates that scanning of a quali¬ 
fied name was started if bit 0 is 


1 . 

If MX is not greater than Ml, all of 
block X is stored in the table space and 
scanned; otherwise, the first Ml records of 
block X are stored and scanned in the table 
space and the remaining records of block X 
are read into, and scanned in, BS. 

The remaining functions of the subrou¬ 
tine vary according to the type of iden¬ 
tifier (qualified name or no qualified 
name) • 

N o Qualified Name. If an entry for the 
identifier is found and the identifier is 
declared in this entry as a minor structure 
or an element of a structure, the subrou¬ 
tine 

1. stores the internal representation in 
the entry, 

2. sets switch MS, and 

3. continues the scanning of the block. 

If no entry for the identifier is found, 
the subroutine is left via its normal exit. 

If an entry is found and the identifier 
in this entry is not declared as a minor 
structure or as an element of a structure, 
the subroutine is left to determine whether 
the internal representation is 0. 

Qu alified Name. If the scanned entry is 
not an entry for the searched identifier, 
the routine determines whether or not 
searching for entries for the identifier of 
the qualified name has to be continued. If 
not, control is transferred to continue 
scanning qualified names. If no entry for 
the identifier is found, this subroutine is 
left via its normal exit. 


Output Parameters: 

1. No qualified name: 

PIN points to the entry for the iden¬ 
tifier in SYMTAB if the identifier 
is declared as other than a minor 
structure or as an element of a 
structure. 

2. Qualified name: 

PIN points to an entry for the iden¬ 
tifier if an entry was found. 

Searc h for Identifier in BS — PP 

Entry points: WREADl, WREAD5 

Input Parameters: 

R3 contains the number of records of block 
X to be read into BS and scanned. 

LVLPT points to the entry of block X in 
WSLIST. 

The functions of this routine vary 
according to the type of identifier being 
searched for (part or not part of a quali¬ 
fied name) . 

1. The identifier is not part of a quali¬ 
fied name: 

Reading records into BS and scanning is 
done in overlapped mode, i.e., while a 
new record is read into one buffer of 
BS, the record in the other buffer is 
scanned for an entry of the identifier. 
PSY points to the SYMTAB entry being 
scanned. If no entry of the identifier 
is found, the routine is left via its 
normal exit. If an entry is found and 
it has been declared as a minor struc¬ 
ture or as an element of a structure, 
switch MS is set and the internal rep¬ 
resentation in this entry is stored. 
Scanning of the block is continued. 

2. The identifier is part of a qualified 
name: 

Two records are read into BS and the 
beginning of the first record is noted 
in level list WQUANT. Then, the two 
records are scanned. If the scanned 
entry is not an entry for the identifi¬ 
er, a check is performed to determine 
if searching for entries for the iden¬ 
tifier must be terminated. If no entry 
for the identifier is found, the rou¬ 
tine gets the next two records of block 
X and starts scanning these records for 
entries for the identifier. If PSY 
points to the end of block, the routine 
is left via its normal exit. 

Output Parameter: 

PSY points to an entry for the identifier 
if this routine is not left via its normal 
exit. 
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Get Rec ord s to BS -- PQ 

Entry points: WGT21, WGT22 

Input Parameters: 

WMX contains the number of records of 
block X not yet in storage; 

R7 points to the entry for block X in 

the scope table; 

LVLPT (only used if the routine is entered 
via WGT21) points to the entry for 
block X in WSLIST. 


If entry WGT21 is used, this routine 
tests whether all embracing blocks of block 
X are in storage. If they are not / the 
routine is left via its NO exit. 

Otherwise, and if entry WGT22 is used, 
the routine determines whether the number 
of records of block X not yet in storage is 
less than or equal to two. If there are 
more than two records, the routine is left 
via its NO exit. If the number of records 
of block X not yet in storage is two or 
less than two, these records are read into 
BS and the presence of block X in BS is 
noted in WBSEN and, if the entire block X 
is in BS, in the scope table. The routine 
is left via its YES-exit. 


Calcula te M l — P R 
Entry point: WCAMl 

Ml is the maximum number of records of 
SYMTAB that can be stored contiguously in 
the table space without destroying other 
records of SYMTAB that are already in stor¬ 
age and noted in WSLIST. This subroutine 
calculates Ml using the addresses of the 
blocks in storage as contained in WSLIST. 

The list below shows the meaning of the 
names used in this subroutine. 

ML - length of longest contiguous area not 
used by other blocks. 

If only one block is stored: 

AY = Address of the block. 

AZ = Address of end of the block. 

ML = Max (AY-AO, AN1-AZ) 

If two blocks are in storage: 

ACJ = Address of 1st block. 

AV = Address of end of 1st block. 

AX = Address of 2nd block. 

AY = Address of end of 2nd block. 

ML = Max (AO-AU,A-AV,AN1-AY) 

If no block is in storage. Ml = MO; other¬ 
wise: Ml = ML divided by record length of 
SYMTAB. 


Output Parameters: 

R1 contains the address A1 to which a block 
can be read. 

R3 contains the number Ml of records that 
can be read to A1 . 


Clea r WSLI ST E ntry Y — PS 
Entry point: WCLEAR 
Input Parameter: 

R2 points to the WSLIST entry Y. 

WSLIST entry Y contains information 
about the level-Y block, which is in stor¬ 
age. If this block is no longer needed for 
the searching of identifiers, the indica¬ 
tion of the block (for being in storage) is 
cleared in both the scope table (bytes 4 
and 5) and in WSLIST (byte 0) . If the 
block or its end is stored in BS, the indi¬ 
cation of the block is also cleared in 
WBSEN. 


Set Scope Pointer -- PT 
Entry point: WSETSP 
Input Parameter: 

R2 contains the number of the block. 

The scope pointer R4 is set to the scope 
table entry for the block indicated by R2. 

Output Parameter: 

R4 points to the entry for the block in the 
scope table. 


Cl ear BS -- PU 
Entry point: WBSQC1 

If {1) a block or the remainder of a block 
not yet in storage consists of no more than 
two records and (2) the first MO buffers of 
the table area are filled with other blocks 
which are still needed for scanning, the 
block or its remainder is stored in BS and 
WBSEN contains the number of the block. 

This subroutine clears WBSEN if a com¬ 
plete block or the end of a block is stored 
in BS. If a complete block is stored in 
BS, the subroutine also clears the address 
of this block in the scope table. 


Entr ie s i n WSLIST and Scope Table — PV 

Entry points: WELSTl used if the complete 

block is or will be in 
storage. 

WELST3 used if the end of the 
block is not in stor- 
age. 
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Input parameters: 


WELST1: 

R1 

points to the address of the 
block in storage. 


R4 

points to the entry for the 
block in the scope table. 


R5 

points to the entry for the 
block in WSLIST. 


PSY 

contains the number of records 
of the block. 

WELST3: 

RO 

contains the number of records 
of the block in storage. 


R1 

contains the address of the 
block in storage. 


R4 

points to the entry for the 
block in the scope table. 


R5 

points to the entry for the 
block in WSLIST. 


PSY contains the address of the 
end of the block in storage. 

When a new block is read into storage, 
this subroutine performs the necessary 
housekeeping functions in WSLIST and bytes 
4 and 5 of the scope table. If entry 
WELST3 is used, housekeeping in byte 1 and 
bytes 13 through 16 of WSLIST must be done 
before this subroutine is called. 

Clear Addresses in the Scope Table --, PW 


Entry point: WCSC01 

Bytes 4 and 5 of all entries in the scope 
table are cleared. 



PL/I PLM 8 


IBM Confidential 


PHAS E P L/IB9 0 ( PRESTATEMENT GENERATION) — QA 


In this and the next phase , a statement 
attribute table is generated in front of 
each statement. This table contains all 
attributes for each variable that occurs in 
the actual statement. If the statement is 
a PROCEDURE statement, the first entry of 
the attribute table contains the attribute 
belonging to the entry name of the proce¬ 
dure. 

For the construction of the attribute 
table see phase B20. 


DESCRIPTION OF ROUTINES 

Notej_ The following routines are described 
elsewhere as follows: 


JSLCA1 

BIO 

HX 

JEOSA1 

BIO 

HY 

JERRAl 

A50 

FZ 

MOVE A. 1 

A50 

F0 

IACA1 — 

QB 



If a statement is preceded by a label, this 
routine generates a label macro. The gen¬ 
erated macro has the following format: 


byte 0 
bytes 1-2 
byte 3 
bytes 4-6 


X 1 F2 * 

X'00 07' 

X 1 72 1 

internal representation of the 
label identifier 


The label identifier in the source text 
is replaced by the label macro. The colon 
after the label identifier is deleted. 


JSAR R outines — QD - QG 
Main entry point: JSAR 
Entry parameter: 

PIN = address of the name for which the 
symbol table entry is searched. 

The routine searches for an entry in the 
symbol table and sets it into the output 
area. The entries are ordered by their 
structure levels, i.e., first all entries 
with structure level 0 (no structures or 
elements of structures) are written out, 
followed by all entries with structure 
level 1 (major structures) , level 2, level 
3, and so on. 

If the current entry is a major or minor 
structure, all entries belonging to the 
items of a given structure are inserted in 
the output area. 

If the actual entry is a minor structure 
or an element of a structure, the entry of 
the major structure is inserted in the 
output area immediately before the current 
entry. 

If the actual entry has the attribute 
CONTROLLED or DEFINED, the entry for the 
pointer or base identifier is set into the 
output area immediately before the current 
entry. For this reason, the routine JSAR 
may be called recursively. 

JRPS Routines — QH, QI 

Main entry point: JRPS 
Secondary entry point: JCET 


If the statement is a PROCEDURE state¬ 
ment, the symbol table entry for the entry 
name is set into the source text. 

Entry parameter: 

PIN = start address of the statement to 
be processed 

Return parameters: 

ACBLO = current block number 
EMBLO = embracing block number 

(For BLOT1 refer to routine JBLT)• 

JSID — QC 

This routine scans the source text and 
searches for identifiers. 

Entry parameter: 

PIN = start address of statement body 


Entry parameters: 

HR3 = entry in scope table for block 

to be read 

TABEND = end address of used part of 
table area 

TBREC1 = begin address of buffer area 1 
for reading the symbol table in 
overlapped mode. 

TBREC2 = begin address of buffer area 2 


The program reads a part of the symbol 
table. 


JBLT - - QJ 

This routine builds up the block table 
BLOT, which consists of 4-byte entries 
referred to as BLOTO - BLOT3• 

BLOTO is associated with the part of the 
symbol table that contains all declarations 
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given either implicitly or contextually. 
(For a description of the symbol table 
refer to phase B20.) 

BLOT 1 is associated with the part that 
contains all declarations given explicitly 
at block level 1. 

BLOT2 and BL0T3 are associated with all 
parts that contain declarations at block 
levels 2 and 3. 

The number of the current block is 
entered corresponding to the level indicat¬ 
ed in the first byte of each entry in BLOT. 
The next three bytes contain the end 
address of the corresponding part of the 
symbol table. (The start address is con¬ 
tained in SCOTAB; see phase B20.) 

Entry parameters: 

EMBLO = number of embracing block. 

REBLO = number of block to be processed. 

TABEND = end address of entire symbol table 
in storage. 


JSC C R o uti nes -- QK, QL 
Entry points: JSCC and JSC1 


Entry parameters: 

TABEND = address of last valid entry in 
the symbol table contained in 
the table storage 

SAVES1 = length of part of symbol table 

to be read 

IJKMBC = number of blocks, i.e., number 
of entries 

The routine controls the scope table and 
erases all invalid entries. 

JTRA - - Q M 

Entry parameters: 

HR 1 = start address of information to 

be written 

BYZ = length of the information 

POUT = next free address in the output 

buffer 

Return parameter: 

POUT = next free address in the output 
buffer. 

In this routine, information is moved 
into the output buffer and the pointer for 
this buffer is controlled. If a buffer 
overflow occurs, the contents of the buffer 
are written out. 
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PBA.SE PL/IB 9 2 (ATTRIBUTE TABLE COMPRESSION) -- RA 


This phase compresses the attribute table 
constructed in the previous phase. 

In phase B90, full-length 20-byte 
entries were made into the attribute table. 
If an identifier occurs more than once in 
one statement, more than one identical 
entry has been generated for this identifi¬ 
er in phase B90. Phase B92 deletes all 
identical entries except the first one and 
eliminates the redundant bytes of each 
entry. 


1e = length of the constant taole (2 bytes) 
F = constant table of declared 




constants 

(1e bytes 

G 

= 

statement body 



H 

= 

endkey of statement 

(i 

byte) 

I 

= 

byte for error flags 

(i 

byte) 

R 

= 

level number 

(i 

byte) 

L 

= 

block number 

(i 

byte) 

M 

= 

statement number 

(2 

bytes) 

N 

= 

error key, if error 

(1 

byte) 

0 

= 

error number if any error 

(1 

byte) 


The internal representation of the vari¬ 
able in the statement body is changed into DESCRIPTION OF ROUTINES 
a table lookup for the attribute table. 

Note: The following routines are described 

Statement Attribute Table elsewhere as follows: 


An attribute table is assigned to each 
statement. It contains the attributes for 
all variables. This table is located in 
front of the statement in the source text. 
The internal representation of the variable 
is changed into an offset. 

The entries of the attribute table are 
of variable length depending on the attri¬ 
butes contained in these entries. If the 
variable has the attribute PICTURE, the 
entry is 18 bytes long. If the variable 
has one of the attributes DEFINED or CON¬ 
TROLLED, the entry is 14 bytes long. If 
the variable is a minor structure or an 
element of a structure, the entry is 14 
bytes long. If the variable has the attri¬ 
bute ARRAY or STRUCTURE, the entry is 12 
bytes long. If the variable has the attri¬ 
bute FILE, the entry is 10 bytes long. For 
all other variables, the entry is 8 bytes 
long. 

The construction of the attribute table 
is the same as that of the symbol table, 
except that the first two bytes of the 
symbol table are not entered in the attri¬ 
bute table. 


A statement has the following format 
after it has been processed by all syntax 
phases: 


A 

a 

B 

b 

C 

1c 

D 

E 


statement identifier key 
specification of statement 
identifier 
prefixes 

statement flag bits 
key for attribute table 
length of attribute table 
attribute table of declared 
variables 

key for constant table 


(1 by t e) 

(2 bytes) 
(1 byte) 

(2 bytes) 
(1 byte) 

(2 bytes) 

(1c bytes) 
(1 byte) 


JTRAA1 

B90 

QM 

MOVEA1 

A50 

F0 

JEOSA1 

B10 

HY 

JERRA1 

A50 

FZ 

IATA1 — 

RB, 

RC 


This subroutine generates the attribute 
table. 


JCIR -- RD 


This routine changes the internal represen¬ 
tation of the variables into a table lookup 
for the attribute table. Note that the 
identifier key X'EI* is not changed. 

Entry parameter: 

PIN = start address of the statement body 

JCES -- RE 

Entry parameters: 

PIN = begin address of the entry to be 
compressed 

PST = address of table area into which the 
entry is moved 

Return parameters: 

HR2 = PST old. If a table overflow occurs, 
HR2 =0. If the current entry is 
ignored, HR2 contains the address of 
the previous one. 

PST = next free address of table area 
HR1 =0 if the actual entry is ignored; 
otherwise HR1 = 0. 

The entry of the symbol table is com¬ 
pressed and set into the table area. If 
the same entry was made previously, the 
current one is ignored. 
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JGOF — RF 
Entry parameters: 

PIN = begin address of symbol table entry 
of the identifier 

HR2 = begin address of attribute table 
entry of the identifier 
PAT = next free entry in the offset table 
HR1 = 0 if the current entry of the attri¬ 
bute table is ignored 


Return parameters: 

PIN = unchanged 
HR2 = unchanged 

PAT new = next free entry in the offset 
table. 

An offset table (OFFTAB) is generated. 

An entry of this table has a length of 4 
bytes and contains the following informa¬ 
tion: 

Bytes 0-1: internal representation of the 
identifier 

Bytes 2-3: begin address (relative to 

IJKMTS) of the entry in which 
the attributes given to the 
identifier are stored. 

If an offset table overflow occurs, this 
table is written onto SYS001. 


JLEN -- RG 
Entry parameter: 

HR2 = begin address of attribute table 
entry 

Return parameters: 

HR2 = unchanged 

HR1 = length of the entry 

The length of an entry contained in the 
attribute table is calculated. 


JCPI — RH 

Entry parameter: 

PIN = input pointer 

Return parameter: 

PIN new = PIN old + 20. 

The input pointer PIN is controlled. 

If, after an increase, PIN is outside the 
first buffer, the remainder is moved to the 
left and a new record is read into the last 
buffer. 

JBIPA1 - RI 

This routine changes the pointer or base 
identifier. 
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PHA.SE PL / IB95 (ARRAY TABLE CONSTRUCTION) — SA 




This phase constructs the array table ARY- 
TAB. (The phase is skipped if the source 
program contains no arrays.) For each 
programmer-defined array, a 12-byte entry 
is incorporated in the table. ARYTAB is 
written on SYS001 at the end of the phase. 

Up to three dimensions may be specified 
for an array. The format of the 12-byte 
ARYTAB entry for 1-, 2-, and 3-dimensional 
arrays is shown in Figure 1 together with 
the corresponding declarations. The infor¬ 
mation required for these entries is 
retrieved from the array statements built 
up in phase B15. 

The array statement consists of two 
parts that have the following format: 


B15. In this case, the entry for the array 
is set to zero. 


Phase Input and Output 

The source text is read from TXTIN. The 
text output i$ written on TXTOUT. It con¬ 
sists of the source text without the array 
statements. ARYTAB is written on SYS001, 
at the end of the phase, the functions of 
TXTIN and TXTOUT are exchanged. 


DESCRIPTION OF ROUTINES 
Symbo l s Used in Flow Charts: 


Part_1_ (variable length, depending on 
attributes) 


By te (s ) Conte n ts 


0 - 5 
6 

7- 8 
9-10 
11 


12-14 

15 

16-17 

18 

19-20 
21- n 


Array statement key 
(X 1 E00 044.. . ') 

X * F4' 

Length of attributes 
Internal name 

Rightmost four bits contain the 
length of one element unless it is 
a character string 
Not used 

Length of one element if it is a 
character string 
Not used 

Current array number 
Number of elements 
Other attributes 


Part 2 

(21 bytes) 

Byte (s) 

Contents 

0 

X * E1 1 


1- 2 

Offset to attribute table 

3 

X' E9' 

4- 5 

Current array number 

6 

X * E9' 

i 

00 

Bound 1 

9 

X' E9 1 

10-11 

Bound 2 

12 

X' E9 * 

13-14 

Bound 3 

15-20 

EOS (X ' EA. . . ') 


When an entry is made in the array 
table, the required information is 
retrieved from the array statement and the 
latter is deleted in the source text. Some 
bounds may be missing if the array state¬ 
ment was detected to be erroneous in phase 


C (CP) : contents of location 

pointed to by CP 

C (CP+6) , LENGTH 2 : contents (length 2) of 

location pointed to by 
CP+6. 


Initialization — SB 


The array table is cleared and the entry 
for the array table is made in TABTAB, 
i.e., the buffer length is set to 384 and 
the transfer bit is set to zero. BUFL is 
set to 3*1JKMBL and ENDTS is set to the end 
address of the array table area. The 
address of the output buffer is loaded into 
BO. The addresses of work buffer 1, 2, and 
3 are loaded into B1, B2, and B3. The 
begin and end address of the input buffer 
is loaded into B4 and B5, respectively. 

The output pointer OP1 is set to the begin 
address of the output buffer and input 
pointer CP is set to the beginning of the 
input buffer. 

Main Routine — SC 


The input is scanned. If a normal F key is 
found, i.e., no end-of-program key, LENGTH 
is set to the value contained in the two 
bytes following the F key. If an EA key is 
found, LENGTH is set to 6. If an EB key is 
found, LENGTH is set to two. UPRO is 
called after LENGTH has been set. 

If an E0 key for an array statement is 
found, the array handling routine is 
called; otherwise, LENGTH is set to 6 and 
UPRO is called. If the EOP key is detect¬ 
ed, this key is written out. The last, not 
yet filled-up record is also written out, 
if required, and the array table that was 
built in the table area is written on 
SYS001 . 
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h 


Byte (s) 


One Dimension 
DECLARE A (i) 


Two Dimensions 
DECLARE A (i, j) 


Three Dimensions 
DECLARE A(i,j,k) 


-H 


o-i 

2-3 

4-5 

6-7 

8-9 

10-11 


Internal name 
Number of elements 
Length of one element 
X'OOOO' 

X• 0000 * 

Negative value of 
length of one element 


Internal name 
Number of elements 
Length of one element 

j 

X'OOOO 1 

Negative value of (length 
of one element + length of 
one element*j) 


Internal name 
Number of elements 
Length of one element 
k 


Negative value of (length 
of one element + length of 
one element*k + length of 
one element*k*j) 


Figure 1. Format of 12-Byte Entries in ARYTAB 


A rray Hand l ing — SD - SF 
Entry point: C2B2 

This routine is called if an array state¬ 
ment is detected in the main routine, and 
the corresponding entry in the array table 
is built. The array statement is deleted 
in the source text and, if the first bound 
is zero, it is replaced by an error mes¬ 
sage. The entries in the array table are 
generated as described in Figure 1. 


0P RO Input/Output H andling — SG 
Entry point: C6B2 

At the beginning of this routine, a test is 
performed to determine whether the string 
to be written is contained in its full 
length in the work buffers. If it is not, 
LENGTH1 is set to the number of bytes not 
yet contained and LENGTH is set to the 
number of bytes that is contained in the 
work buffers. The move and the read rou¬ 
tines are called, and LENGTH is set to 
LENGTH1. If the full string is contained 
in the work buffers, the move and read 
routines are called immediately. 

M ove Routine — SH 

Entry point: C7B2 


This routine moves the number of bytes 
specified in LENGTH from the buffer address 
pointed to by CP to the output buffer 
address pointed to by OP1. If the output 
buffer is full, the write routine is 
called. 


Write Routine — SI 


Entry point: C8B2 

This routine checks whether the output 
buffer is full. If it is, the information 
is written on TXTOUT. The output pointer 
OP1 is reset to the beginning of the output 
area. 

Read R outine — SJ 
Entry point: C9B2 


If the input pointer CP is greater than the 
contents of B2, the contents of the last 
two work buffers and the input buffer are 
moved to the beginning of the work buffers. 
The input buffer is filled with the next 
record from TXTIN. CP is decreased by the 
buffer length and tested again. Processing 
of this routine is repeated until CP is 
lower than or equal to B2. 
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PHA.S E PL/I B97_(EX TERNAL NAME TABLE CONSTRUCTION) — SM 


This phase constructs the external name 
table EXTTAB. This is done in two passes: 

1. A pretable PRETAB of the external name 
table is built up. All information to 
construct PRETAB is retrieved from 
entries in the symbol table SYMTAB that 
contain the attribute EXTERNAL. Each 
20-byte entry of the pretable contains 
the following: 

Byte 0 : number of record in the name 

table that contains the user- 
defined name of this identifier 
Byte 1 : entry number in this record 

(the first bit must be ignored) 
Byte 2 : FF 

Byte 3- 7 : blanks 

Byte 8-19 : see external name table 

2. EXTTAB is constructed by replacing the 
first eight bytes of PRETAB by the 
user-defined name retrieved from the 
name table NAMTAB. 

The entry of NAMTAB pointed to by bytes 
0 and 1 of PRETAB is searched, and the 
user-defined name is translated into the 
external code and inserted into bytes 0-7. 
If the name is shorter than 8 bytes, the 
remainder is filled with blanks. If the 
name is longer than 6 bytes, a warning 
message is generated. If the name is 
longer than 8 bytes, the rest is ignored 
and an error message is generated. These 
messages are inserted behind the first 
PROCEDURE statement of the source text. 

For a description of the information 
contained in the external name table, refer 
to phase G55. 

I nput of t h e P hase: Symbol table SYMTAB on 
SYS001, name table NAMTAB on SYS001, and 
source text on TXTIN. 

Ou tput of the Phas e: External name table 
EXTTAB on SYS001 and source text on TXTIN. 


I/ O Handling o f th e Phase 

The symbol table is read from SYS001 into 
buffers B3 and B4. The table space and the 
buffers BO to B2 are divided into sections 
that have the length of a bluffer. The 
entries built up for the pretable are moved 
into these sections. If an overflow 
occurs, the pretable is written onto 
TXTOUT. When the last symbol-table record 
is processed, two cases are to be distingu¬ 
ished: 


1. The pretable is still in storage and 

a. the remaining storage is equal to 
or greater than 2048 bytes. (The 
name table has the record length of 
1024 bytes). The name table is 
read in overlapped mode from 
SYS001. 

b. the remaining storage is equal to 
or greater than 1024, but less than 
2048 bytes. The name table is also 
read in from SYS001, but not in the 
overlapped mode. 

The external name table is built in 
storage and, at the end of the phase, the 
table is written onto SYS001. 

2. A table overflow has occurred and the 
pretable is written onto TXTOUT. In 
this case, the records of the pretable 
are read from TXTOUT and the records of 
the name table, pointed to by byte 0 of 
the entries of the pretable, are read 
from SYS001. Each processed record of 
the pretable is written onto SYS001. 

If an external name longer than six 
bytes is detected, the source text is read 
from TXTIN, a warning or error message is 
inserted, and the text is written onto 
TXTOUT. 


DESCRIPTION OF ROUTINES 


Text in flow charts: 

C<GCP) := Contents in location GCP points to 


Symb ol s u s ed in Flow Charts 


GBUFCOUN 

GCOUNTER 

GCOUNI1 

GCP 

GEND 

GLEN 

GLENGTH 

GNUMELE 

GPTCOUN 

GPUTCOUN 

GREADR 


contains number of records that 
fit into the table area, 
contains number of entries of 
one symbol-table record, 
see GCOUNTER. 
input pointer 

contains end address of pretable 
area. 

contains number of table-area 
bytes available for use. 
contains length of respective 
name in name table, 
contains address in name table 
where the name to be searched 
can be found. 

contains number of buffers used 
for pretable area, 
contains number of records writ¬ 
ten onto TXTOUT. 
contains number of records to 
of records read. 
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GREST1/2 

GTABLEA 

- contains remainder. 

- contains the begin address of 
pretable area. 

SUBROUTINES 

The following 

subroutines used 

in this 

GTP 

- table-area pointer, (i.e.. 

phase 

are 

described elsewhere as follows: 


points to the next available 
location) . 

r 

— T - 


“ T 


GBn 

- contains address of buffer n. 

|Entry 

i 


1 

i 

GWEI 

- if switch GWEI is on, input is 

j Point 

i 


Name | 

Phase | 


done in non-overlapped mode. 

J-———— 

—+- 

— 

- + . 

-^ 

GWEICHE 

- if switch GWEIUHE is on, input 

| C6B2 

! 

UPRO (Input/Output | 

B95 | 


is read into the buffer pointed 
to by GB4; otherwise, into the 

1 

| C9B2 

1 

1 

Read 

Handling) | 

Routine | 

1 

B95 | 


buffer pointed to by GB3. 

L _ 

_j.. 

— 

-L. 

j 




In iti al ization — SN 

In this routine/ some counters/ switches, 
and buffers for values, addresses, and 
input/output handling are defined and set 
to their initial values. 


PR ETAB SYMTAB Routine — SO 

The symbol table is read and the entries 
with the attribute EXTERNAL are stored in 
the pretable. If an overflow of the preta¬ 
ble occurs, pretable is written onto 
TXTOUT. 


P reta bl e-i n-Storage Rou tine — SP and SQ 

This routine is called if all entries of 
the pretable are in storage. The first 
record of the name table is read. The 
pretable is scanned for entries pointing 
(by the first byte) to the current record 
of the name table. If an entry is found, 
the user-defined name (pointed to by the 
second byte of the pretable entry) is moved 
from the name table into the pretable entry 
and translated into the external code. If 
the end of the pretable is reached, the 
next record of the name table is read and 
the pretable is scanned once more. This 
process is repeated until the end of the 
name table is reached. When the end of the 
name table is reached, the pretable area 
contains the complete external name table, 
which is written onto SYS001. 


Pr et abl e-n o t-i n -St oraqe Ro u tine — SR 

This routine is called if a pretable over¬ 
flow has occurred in the PRETAB SYMTAB 
routine. The pretable is read from TXTOUT; 
the name table is read from SYS001. The 
record and the entry of the name table 
pointed to by the first two bytes of each 
pretable entry are searched and the con¬ 
tents (the user-defined name) are inserted 
into the pretable and translated into the 
external code. If one record of the preta¬ 
ble is processed, the record is moved into 
the output buffer and written onto SYS001. 


GWORK Routine — SS 
Entry point: GB8A2 

If the record of the name table pointed to 
by the first byte of the current pretable 
entry is found, this routine is called. It 
scans the name table for the user-defined 
name pointed to by the second byte of the 
current pretable entry. When found, its 
length is tested. If it is greater than 8, 
the ERROR switch is set on and the length 
of the name is set to eight. If it is 
greater than 6, a warning message is pre¬ 
pared. The user-defined name is moved into 
the current pretable entry and the remain¬ 
ing bytes are filled with blanks. 


PUT Routine ST 
Entry point: GB9A2 

This routine writes the external name table 
onto SYS001. 

Move Rout i ne — SU 

Entry point: GBAB2 

This routine moves the contents of the 
symbol table used for the external name 
table into the corresponding pretable 
entry. 

Write Rou t ine — SV 
Entry point: GB3A2 

This routine is called by the PRETAB SYMTAB 
routine 

1. when the area reserved for the pretable 
is filled and one more record must be 
moved into the pretable area and 

2. when the end of the symbol table is 
reached and a pretable overflow has 
occurred. 

GBUFCOUN contains the number of records 
of PRETAB, which are written by this rou¬ 
tine onto TXTOUT. 
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Read Routine -- SW 


Entry points: GB4A2, GB4A5 

This routine is used in the PRETAB SYMTAB 
routine to read the symbol table and in the 
PRETAB-in-Storage routine to get the 
records of the name table. 

Entry point: GB4A2 is used (1) to read the 
first two records of a table while the 
following records are read in overlapped 
mode, and (2) to read all records of a 
table that are not to be read in an over¬ 
lapped mode. 

Entry point: GB4A5 is used to read the 
third and all following records in over¬ 
lapped mode. The input buffers are B3 and 
B4, and the buffer handling is controlled 
by the switch GWEICHE. 


End-of-Phase Routine — SX 


If the error or warning switch is on, the 
error handling routine is called. Phase 
COO is called and the text files are 
exchanged. Otherwise, one of the phases 
COO, C25 or C30 is called. 


Error Hand ling — SY, SZ 
Entry point: C0B2 

This routine is called if an error or warn¬ 
ing message is to be generated. The source 
text is scanned for the first EA-key, 

(i.e., the EA-key of the PROCEDURE 
statement) . The warning or error message 
is inserted behind this key. All other 
text remains unchanged. 


1 1 5 
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P HASE PL/I C OO (SYMBOL T ABL E LISTING) — TM 


This phase prints the symbol table, which 
contains all identifiers with their expli¬ 
citly, contextually, and implicitly 
declared attributes. The listing is 
arranged according to the block numbers. 

This phase is skipped if the Job Control 
SYM option is not active. However, it is 
not skipped in that case if (1) an incor¬ 
rectly declared variable is detected, (2) a 
qualified name is not declared, or (3) an 
external name is longer than 6 characters. 
At the end of this phase, phase C25 is 
called if the source program contains IF 
statements. If no IF statements are to be 
processed, phase C30 is called. 

All messages to be printed (except the 
user-defined name) are retrieved from SYM- 
TAB. The user-defined name is retrieved 
from NAMTAB according to the compressed 
name in SYMTAB (bytes 0-1) . If the inter¬ 
nal representation of a name is zero, if a 
name is longer than 31 characters, or if an 
external name is longer than 8 characters, 
only the user-defined name and an error 
message are printed. 

The number of NAMTAB records that can be 
stored in the work area (see the section 
In itialization — T N) is referred to as K. 
If NAMTAB does not contain more than K 
records, each block of SYMTAB has to be 
scanned only once. 

If NAMTAB has more than K records, SYM¬ 
TAB is first written onto TXTQUT. The 
beginning of each SYMTAB block is noted 
simultaneously. When scanning the iden¬ 
tifiers of one SYMTAB block, all parts of 
NAMTAB must be successively moved into the 
work area until all entries of the block 
have been listed. 


Phas e I nput and Ou tp ut 

The input used by this phase consists of 
the tables SYMTAB and NAMTAB (contained on 
SYS001). The format of the symbol table 
listing is described in detail in the PL/I 
Programmer's Guide. 

B uffers and Sw i tch es 

Buffers 1-3 are used as the last part of 
the work area. 

Buffer 4 = buffer A 

Buffer 5 = buffer B and print buffer 
Buffer 6 = buffer C 

Switch NAMIN is set if the entire NAMTAB 

can be stored in the work area. 


DESCRIPTION OF ROUTINES 
Initi a lization — TN 

The work area is used to store NAMTAB or 
parts thereof. Space S accommodates parts 
of the phase (beginning with WBEG1) , the 
table space, and the first three buffers. 

If NAMTAB can be entirely stored in 
space S, the work area is equal to space S. 
If not, the note information on the begin¬ 
ning of each SYMTAB block is stored in the 
beginning of space S. The remaining space 
of space S is used as work area. 


Note Blocks of SYMTAB — TO 

SYMTAB is read into buffers A and B and 
written onto TXTOUT. The beginning of each 
SYMTAB block on TXTOUT is noted. 


Stor e K R e cord s of NAMTAB in Turn — TP 

Up to K NAMTAB records are read into the 
work area each time. The smallest and 
greatest number of NAMTAB records in stor¬ 
age are noted in MIN and MAX. Scanning of 
a SYMTAB block starts with MIN=1 and MAX=K. 
The records of a SYMTAB block are read into 
buffer A and scanned for entries the names 
of which are in the part of NAMTAB that is 
in the work area. 

If the buffer pointer points to the end 
of the SYMTAB block and all entries of the 
block have been listed, scanning of the 
next SYMTAB block is started. Otherwise, 
MAX and MIN are increased by K. The next 
records of NAMTAB are read into the work 
area, and scanning of the same SYMTAB block 
starts again. 

Stor e Ent i re NAMTAB -- TQ 

Switch NAMIN is set and the entire NAMTAB 
is read into the work area. SYMTAB is 
successively read from SYS001 into buffers 
A and C. 

U ser -D efi n ed Name, Error Message —, TR 


The entry of a user-defined name is 
retrieved from the work area. The name is 
moved into the print buffer and translated 
from internal code into EBCDIC. If the 
name is longer than 31 characters or if its 
internal representation is zero, the name 
is printed with an error message. 
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St art Fet ching Attribut es - - T S 

The entry of the identifier in SYMTAB is 
scanned for attributes. If the identifier 
is an external name of more than 8 charac¬ 
ters in length, the name and an error mes¬ 
sage are printed. If the identifier is a 
built-in function, only the name as well as 
the block and level number are printed. In 
all other cases, the internal representa¬ 
tion and the block and level number of the 
identifier are moved into the print buffer. 
It is tested whether the identifier is an 
array, a structure, or an entry name. 

A rithmetic and Str ing - - T T 

Base, scale, and precision of an arithmetic 
identifier are moved into the print buffer. 
Types and length of a string identifier are 
also moved into the print buffer. 

E nd of Fetchin g At tribu tes — TU 

Fetching of attributes of the identifier 
from its entry in SYMTAB is terminated. 


Subr ou tines -- TV 

Work up precision w or length 1 
Entry point: WSRB01 


Input parameters: 

R3 points to the entry of the identifier in 
SYMTAB. R11 points to the print buffer. 


Precision w or length 1 is retrieved 
from the entry of the identifier in SYMTAB, 
converted to its decimal value, and moved 
unpacked into the print buffer. 


Supp re ss l eading zeros 
Entry point: WSRB02 


Input parameter: 

R2 points to the number to be checked. 

Leading zeros of the number to be checked 
are replaced by blanks. 
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P HASE PL/IC25 (IF STATE MEN T ) — TZ 



This phase is called if the source program 
contains IF statements. Phase C25 

• analyzes all IF nests, 

• replaces all IF statements with IFFALSE 
statements, 

• generates certain macros, 

• detects any incorrect IF nesting or any 
incorrect use of ELSE. 

P hase Input and Ou tput 

The input is a string of unambiguous 3-byte 
elements and elements of variable length 
(see output of phases A60/A65) . During 
phases A60/A65, IF statements were made 
non-recursive by replacing each THEN by an 
EOS (End of Statement} and by placing an 
EOS after each ELSE, thus making ELSE a 
"statement." 

The output is similar to the input 
except that few additional types of state¬ 
ments and/or macros have been added or 
substituted. 


expre s sion is the original expression 
transformed into 3-byte elements and/or 
elements of variable length. 

The DEFINE LABEL Macro 


The definition-point of a generated label 
is indicated by a DEFINE LABEL macro. The 
format of the DEFINE LABEL macro is as 
follows: 

Byte ( s) Contents 

1 macro key X'F2' 

2-3 length of the macro 

4 key X'72* indicating that this 

macro is of the type DEFINE LABEL 

5 key X*BB' (in DEFINE LABEL macros, 

generated label constants have the 
key X B BB 1 instead of X*EE') 

6-7 number of the generated label 

The BRANCH Macro 


Meaning of the BRANCH macro: branch to the 
generated label specified in bytes 6 to 8 
of the macro. 


STATEMENTS AND MACROS PUT OUT BY C25 
The IFFALSE Statement 


The format of the BRANCH macro is as 
follows: 


Meaning of the IFFALSE statement: 

If expression yields FALSE, go to nL. 

This statement is substituted for each 
IF statement and is of the following for¬ 
mat: 

f - T - T -T- 1 

|IFFALSE|statement |expression|EOS| 

I jattr. table| j j 

L-JL- JL - JL -J 


Byte (s ) Contents 


1 macro key X'F2* 

2-3 length of the macro 

4 key X'70' indicating that this 

macro is of the type BRANCH 

5 X 1 OF * (code for unconditional 
branch) 

6 key X'EE' 

7-8 number of the generated label 

9-11 modifiers (here always 0) 


Sampl e In p ut and Output of Phase C25 


where IFFALSE is the statement identifier, 
identical to the statement identifier IF. 
nL is a generated label of the following 
format: 


• Statements have statement identifiers 
consisting of capital letters (for 
instance: IFFALSE, SET, READ, etc.) 


Byt e (s) Contents 


1 

2-3 


4 

5-6 


key X'EE* 

number of the generated label. It 
is obtained by adding 1 to counter 
IJKMVC each time the label gener¬ 
ating routine is called, 
key X * EE 1 

X , 0069' (indicates that the gener¬ 
ated label is a label constant) 


• Macros are identified by lower case 
letters (for instance: define label, 
branch) . 

• Ge n erated labels are written like 1L, 
2L, 3L etc. 

Note that the input and the output 
actually consists of a string of 3-byte 


/—N 
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elements and/or elements of variable 
length. 


Input 

Output 

IF exl; 

IFFALSE 1L exl; 

SET A—B; 

SET A=B; 

ELSE; 

branch 2L 

SET C—D; 

define label 1L 


NOP; 


SET C=D; 


define label 2L 


IF exl; 

IFFALSE 1L exl 

SET A=B; 

SET A=B; 

SET C=D; 

define label 1L 


NOP; 


SET C=D; 


IF exl; 

IFFALSE 1L exl; 

IF ex2; 

IFFALSE 2L ex2; 

IF ex3; 

IFFALSE 3L ex3; 

SET C=D; 

SET C=D; 
define label 3L 
NOP; 

define label 2L 
NOP; 

define label 1L 
NOP; 


IF exl; 


IFFALSE 1L exl; 

IF ex2; 


IFFALSE 2L ex2; 

SET 

A=B; 

SET A=B; 

ELSE; 


branch 3L 

SET 

C=D; 

define label 2L 



NOP ; 



define label 1L 



SET C=D ; 



define label 3L 


IF exl ; 

IFFALSE 1L exl ; 

BEGIN ; 

BEGIN ; 

alpha 

alpha 

END ; 

END ; 

SET A=B ; 

define label 1L 


SET A=B ; 


DO ; 

DO 


IF exl ; 

IFFALSE 1L exl ; 

BEGIN ; 

BEGIN ; 


alpha 

alpha 


END ; 

END ; 


ELSE ; 

branch 2L 


BEGIN ; 

define label 

1L 

beta 

NOP ; 

BEGIN ; 


END ; 

beta 

END ; 


gamma 

define label 

2L 

END ; 

gamma 

END ; 



Phase Performance: 

Each encountered statement is tested to 
determine whether it 


• is an "End of Unit 1", or 

• is immediately following an "End of Unit 

1", or 

• is an "End of Unit 2". 

If the statement is of the "End of Unit 
1"-type, the last entry in the symbol stack 
(presumably IFPH4, standing for "IF") will 
be replaced by IFPH3 (standing for "End of 
Unit 1"). If there are several consecutive 
IFPH4 entries in the stack, each of them 
will be replaced by an IFPH3. Then the 
statement will be put out. 

If the statement immediately follows an 
"End of Unit 1", as many macros, define 
labels, and FALSE labels are put out as 
there are consecutive IFPH3 entries in the 
symbol stack. The FALSE labels will be 
taken from the label stack. Then the 
statement will be put out, or new state¬ 
ments are generated for IF and ELSE. 

If the statement is of the "End of Unit 
2"-type, the statement will be put out, now 
followed by a macro, a define label, and an 
EXIT label. The EXIT label is taken from 
the label stack. 


Proce s sing of th e Input Stream 

If a DO or BEGIN statement is encountered, 
the corresponding one-byte symbol IFPH1 or 
IFPH2 is entered into the symbol stack. 

Then the statement is tested and processed 
as described in Phase Performance. 

If an END of group or END of block is 
encountered, the corresponding symbol IFPH1 
or IFPH2 is eliminated from the symbol 
stack. Then the statement is tested and 
processed as described in Phase Perfor¬ 
mance . 

If an IF statement is encountered, the 
symbol IFPH4 is entered into the symbol 
stack and the statement is then processed 
as described in P hase Performance. A label 
KL is generated, entered into the label 
stack, and the statement --IFFALSE KL 
expression;— is put out. 

If an ELSE statement is encountered, the 
last entry in the symbol stack is replaced 
by IFPH5, a label nL is generated, a — 
branch nL;— is put out, the last entry in 
the label stack mL is used to put out 
define label mL, and the generated label nL 
is entered into the label stack. 


Phase PL/IC25 


119 



PL/I PLM 8 


IBM Confidential 


An END of procedure is subject to a 
specific test, for it may never be used as 
a "Unit 1" or "Unit 2" in an IF statement. 
In this case an error message is given. 

Ta bles and Poi n ter s 

Two push down stacks are used: a symbol 
stack and a label stack. 

The symbol stack IFPH86 consists of 100 
one-byte elements. IFPH86 is used to store 
the following symbols: 

IFPH1 for DO 

IFPH2 BEGIN 

IFPH3 "End of Unit 1" 

IFPH4 IF 

IFPH5 ELSE 

The pointer to IFPH86 is the symbolic 
register R7. 

The label stack IFPH87 consists of 100 
half-word elements, and is used to store 
generated labels (FALSE labels as well as 
EXIT labels). The pointer to IFPH87 is the 
symbolic register R6. 


DESCRIPTION OF ROUTINES 

N ote: A routine is called 'open* if it 

gets control by a B instruction. A routine 
is called 'closed' if it gets control via a 
BAL instruction, and if control is returned 
by a BR instruction. 

IFPH — UA 

This is the "master program" of phase C25. 
IFPH initializes pointers, registers, etc. 
and reads the first 4 records into input 
buffers 1 to 4. 


IFPH scans the input until a statement 
identifier is found. Upon this, the Define 
Label macros (which may precede the 
statement) , the statement identifier, and 
the statement attribute table are put out. 
Depending on the encountered statement, one 
of the following routines is called: 


Statement: 

IF 

BEGIN 

DO 

END (of BEGIN block) 
END (of DO group) 
ELSE 


Cal led r out ine: 


IFIF 

BEBE 

DODO 

BLBL then EOST 

GR3R 

ELEL 


Any other statement: 


VIRGO, 
then NSNS, 
then EOST. 


After return of control to IFPH, the 
scan is continued. If the end of program 
is reached, TEPHA is called. 


BEBE, DODO — UN (Closed) 

BEBE puts IFPH2 (symbol for "BEGIN") into 
the symbol stack. If this is the first 
entry into the symbol stack, the statement 
body is put out and the program returns. 
Otherwise, the preceding entry in the sym¬ 
bol stack is tested. If this is IFPH3 
(symbol for "end of unit 1") , FOUT is 
called to put out a "Define Label" macro. 
The operand of this macro is the last entry 
in the label stack. Then IFPH3 is replaced 
by IFPH2. The stack pointer R7 is decre¬ 
mented by 1, the statement body is put out, 
and the symbol stack entry currently 
selected by R7 is tested as described. 

If the tested entry in the symbol stack 
is not IFPH3, the statement body is put out 
and the program returns. 

DODO performs the same as BEBE but uses 
IFPHI instead of IFPH2• 

BLBL — UP (Closed) 

The last entry in the symbol stack is test¬ 
ed. If this entry is IFPH3 (symbol for 
"end of unit 1") , a Define Label macro is 
generated. The operand of this macro is 
the label stack entry selected by label 
stack pointer R6. Then R7 is decremented 
by 1 and R6 is decremented by 2. Then the 
symbol stack entry currently selected by 
pointer R7 is tested as described. 

If the tested entry in the symbol stack 
is IFPH4 (symbol for "IF"), it is replaced 
by IFPH3. R7 is decremented by 1. Then 
the symbol stack entry currently selected 
by pointer R7 is tested as described. 

If the tested entry in the symbol stack 
is IFPH5 (symbol for "ELSE") , the statement 
body and a DEFINE LABEL are put out. The 
operand of the DEFINE LABEL is the label 
stack entry selected by R6. 

BSAC ( Clo s ed) — UF 

The routine initiates output of the state¬ 
ment attribute table for the currently 
processed statement. 

BYPA (Closed) — UP 

The routine puts out either the one part of 
the statement attribute table that contains 
attributes of variables, or the other part 
which contains attributes of constants. 

Then the statement body is positioned to 
start in input buffer 1. 

DPDS (Closed) — UJ 
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"DO" or IFPH2 for "BEGIN") * If the symbol 
stack entry matches the argument in R4, the 
entry is deleted and pointer R7 is decre¬ 
mented by 1. 

If entry and argument do not match, the 
search continues until a matching entry is 
encountered. Then the matching entry is 
deleted. All symbol stack entries at a 
higher level than the matching entry are 
moved down one position. Pointer R7 is 
decremented by 1. 


EL EL — UK (Closed ) 

ELEL generates a label and puts out a 
Branch macro with the generated label as 
operand. The generated label is stored in 
ELEL2. Then a Define Label macro with the 
last entry in the label stack as operand, 
followed by NOP, is put out. The latest 
Label Stack entry is replaced by the label 
stored in ELEL2. IFPH5 (symbol for "ELSE") 
is entered into the symbol stack. Finally, 
a NOP statement is put out. 


ERROR, JERR A1_( Clos ed) — US 

This routine is described in phase A35. 


EOST, J E0SA 1_(Closed) — U R 

The routine arranges the contents of the 
input buffers 1 to 4 so that the currently 
scanned EOS is in input buffer 1. This is 
done by moving and reading new records. It 
puts out the EOS and the attached error 
codes. Any additionally generated error 
codes are also put out. 

F OUT ( Closed) — U B 

The routine puts out a Define Label macro. 
The operand of this macro is the last entry 
of the label stack. Stack pointer R6 is 
decremented by 2. 

GEOS (C losed) — UG 

The routine moves the input pointer PIN 
until an EOS is encountered. The address 
of the byte preceding this EOS is stored in 
IFPH96. 

GRGR — UP (Cl osed) 

Entry point to BLBL. 

GSN (Cl osed) — UH 


GSN moves the statement identifier of the 
current statement into GSN4. It returns to 
4 (0,LINK) if the statement is correct. 
Otherwise, it returns to (LINK) . 


IFIF — U I_ (Closed) 

IFIF tests the symbol stack entry currently 
selected by R7. If this entry is IFPH3 
(symbol for "end of unit 1") , a Define 
Label macro is generated. The operand of 
the Define Label macro is the label stack 
entry currently selected by R5. Then R7 is 
decremented by 1 and R5 is decremented by 
2. The symbol stack entry currently 
selected by R7 is tested as described. 
Otherwise, a label is generated, stored in 
the label stack, and put out followed by 
the statement body (see description of 
IFFALSE statement) . 


IPDS ( Clo s ed) — UL 

IPDS increments stack pointer R7 by 1 and 
enters the rightmost byte in R0 into the 
symbol stack. 


JTRN A1 (Closed) — UQ 

This is the output routine. Register BYZ 
contains the number of bytes to be put out; 
register PIN contains the start address. 

One output buffer is used. 

If the remaining portion of the string 
to be put out is smaller than the remaining 
unoccupied space of the output buffer, the 
string is moved into the buffer. BYZ is 
added to POUT to update the output pointer. 

If the string to be put out exceeds the 
unoccupied space, an appropriate portion of 
the string is moved to fill the output 
buffer to its capacity. Then the contents 
of the buffer are written onto the output 
medium. POUT is reset to the start address 
of the buffer. BYZ is decremented by the 
number of bytes moved into the buffer, and 
PIN is incremented by that number. Then 
JTRNAl is repeated until output is complet¬ 
ed . 


LGEN ( Closed) — UC 

LGEN generates a label and enters it right- 
justified into register Rl. The format of 
the generated label is shwon in Figure 1. 


MAMA ( Closed) _ — UT 

This routine puts out 

1. Label list 

2. Statement identifier 

3. Statement attribute table 

NS NS -- UP (Closed) 

Entry point to BLBL. 
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P OB (Closed) -- UF 

When POB is called, R2 contains the start 
address and R1 the end address of a string 
to be put out. POB is an "interface" to 
the routine JTRNA1 which requires the start 
address and the length of a string to be 
put out. POB performs the necessary 
transformations. 

S TEP (Closed) — UE 

STEP tests the high-order 4 bits of the 
byte selected by PIN. If these bits are 
set to X'E', PIN is incremented by 3. If 
these bits are set to X'F*, PIN is incre¬ 
mented by the contents of the two bytes 
following the byte selected by PIN. If 
these bits are set to any other value, a 


compiler error occurred and a dump is ini¬ 
tiated. 

VIRGO -- UM (Closed) 

The symbol stack entry currently selected 
by R7 is tested. If this entry is IFPH3 
(symbol for "end of unit 1"} , a Define 
Label macro is generated. The operand of 
this macro is the label stack entry cur¬ 
rently selected by R6. R7 is decremented 
by 1 and R6 is decremented by 2. Then the 
symbol stack entry currently selected by R7 
is tested as described. If the selected 
entry is not IFPH3, VIRGO returns to either 
4 (0,LINK) , if only one test has been per¬ 

formed , or (LINK) if more than one test has 
been performed. 
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P HASE P L/I C30 (PR OCESSING CONSTANTS I) — WA 




This phase performs the following func¬ 
tions: 

1. It scans all constants for acceptable 
precision, 

2. It replaces the external format of the 
constants by an intermediate one. 

3. It builds up the constant tables as 
part of the statement attribute tables. 

No te : The character strings have already 

been processed in phase A45. 

If a constant is preceded by a prefix 
plus or minus, this sign is removed from 
the source text, and a corresponding sign- 
bit is set in the constant table. 

Ph ase Input an d Output 

The text input consists of a sequence of 
statements terminated by the end-of-program 
key. Each statement is composed of the 
following elements: 

1. The statement identifier key (6 bytes) 
which may be preceeded by one or more 
label macros. 

2. The symbol table, if there are any 
variables in the statement. 

3. The statement body. 

4. The end-of-statement key (6 bytes) 
which may be followed by one or more 
error-keys (2 bytes) . 

The statement body consists of elements 
which formally may be distinguished by 
E-keys (3 bytes) and F-keys (variable 
length). The constants are interspersed 
within the statement body and contain the 
following information: 

• one of the six constant keys, the dif¬ 
ference depending on the type of con¬ 
stant: 

X'F7' = decimal fixed-point constant 
X'F8 ' = decimal floating-point constant 
X'F9' = binary fixed-point constant 
X * FA• = binary floating-point constant 
X•FB' = bit-string constant 
X'FC' = sterling constant 

• the length of the constant (2 bytes) , 
and 

• the constant. 


The character strings have already been 
processed in phase A45 and are collected in 
the character-string table on SYS001. 

Within the statement body they are replaced 
by a reference key that consists of the 
following: 


• Key 'character string' = X'E3' 

• Offset, relative to the start of the 
character string table (2 bytes) 

• Key 'character string' = X'E3* 

• Error-byte 

X'OO' if no error 
bit 0 set to 1 if error 55 
bit 1 set to 1 if error 56 (see phase 

A4 5) 

bit 2 set to 1 if error 67 

• length of the character string (1 byte) 

Like the input, the output consists of a 
sequence of statements, terminated by the 
end-of-program key. Each statement is 
composed of the following elements: 

1. The statement identifier key (6 bytes) 
which may be preceded by one or more 
label macros. 

2. The symbol table, if there are any 
variables in the statement. 

3. The constant table, if there are any 
constants in the statement. 

4. The statement body. 

5. The end-of-statement key (6 bytes) 
which may be followed by error-keys (2 
bytes) . 

The constant table consists of the fol¬ 
lowing : 

• Constant-table key = X'F3' (1 byte) , 

• Length of the constant table (2 bytes) , 
and 

• one or more constant entries. 

Each entry of the constant table con¬ 
tains the following: 

• Internal name of the constant (2 bytes) 

(N = IJKMVC, which is increased by 1 for 
every constant) . 
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• Attributes of the constant (inserted and 
used by following phases, here initial¬ 
ized with X' 10') (1 byte) . 


• Type of the constant (1 byte) 


X'60' = binary float 
X'61' = binary fixed 
X' 62 ' = decimal float 
X'63' = decimal fixed 
X' 67 ' = bit string 

Note: Sterling constants are stored as 
decimal fixed-point pence. 

• Precision of the constant (1 byte) 

if binary float: P (0<P<53) 

if binary fixed: P(0<P<31) 

if decimal float: P< (0<P<17) 
if bit string: P (0<L<64) 
if decimal fixed, bits 0-3: P (0<P<15) 
bits 4-7: Q (0<Q<P ) 

• Three bytes containing zeros, used by 
following phases for "new type and pre¬ 
cision." The first bit is set to 1, if 
the constant is preceded by a prefix 
minus. 

• Length of the intermediate representa¬ 

tion of the constant (2 bytes) . 

• Intermediate representation of the con¬ 
stant, depending on the type of con¬ 
stant: 

binary float 

binary integer contained in a field of 4 
bytes (if P<21) or 8 bytes (if P>21) * 
followed by a binary integer (2 bytes) 
representing the binary exponent. 

decimal float 

decimal integer in packed decimal format 
(length of field = FLOOR (P+2/2) ) , fol¬ 
lowed by a binary integer (2 bytes) 
representing the decimal exponent. 

binary fixed 

32-bit binary format (see IBM 
Syst em/360, Pri ncipl es of Operation , 

Form A22-682 1) 

decimal fixed 

packed decimal format tsee IBM 
Syst em/360, Prin cipl es o f Op erati on , 

Form A22-6821) . Length of field = FLOOR 
(P+2/2) . 

N ot e: The position of the decimal point 
is recorded by the scale factor Q. 


bit string 

byte-aligned, one binary digit per bit. 

Within the statement body, the constant 
has been replaced by the reference key. 

This key consists of the following: 

• Key 'constant reference' = X'E9' (1 

byte) . 

• Internal name of the constant (see con¬ 
stant table) (2 bytes) 

The character strings are referenced by 
a key containing the following: 

• Key 'character string' = X'E3' (1 byte) . 

• Offset relative to the start of the 
character string table (2 bytes) . 

• Key 'character string' = X'E3' (1 byte) . 

• Length of the character string (2 
bytes) . 


DESCRIPTION OF ROUTINES 
Initialization — WB 

This is the beginning of the main routine. 
It initializes pointers, switches etc. 
Then it .reads in four buffers of input 
text. 


FCSC — WC , W D 

This is part of the main routine. It per¬ 
forms a general scan over the source text. 
The labels, the statement identifier, and 
the attribute table are moved into the 
output buffer. The length of the attribute 
table is saved in STABL; the begin address 
of the statement body is saved in PINS. 

The statement body is scanned for con¬ 
stants, which are processed in FCON. If 
errors are detected in the character 
strings, the corresponding error codes are 
moved into the error table. When the end- 
of-statement key has been reached, control 
is transferred to FEST. 

FEST -- WE 

Input parameter: 

PINS = address of the beginning of the 
statement body. 

This is part of the main routine. It moves 
the constant table (if constants exist in 
this statement) into the output buffer. 

The constant table is followed by the 
statement body in which the constants are 
replaced by 3-byte reference keys. 
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Routine FC Q N — WG 
Input parameters: 

RLEN = (register) length of external rep¬ 
resentation of constant. 

PIN = (register) address of constant key. 
PIAB = (registeir) constant table pointer. 
TABL - (half-word) length of constant table 
+ length of symbol table. 

Output parameters: 

PIN = PIN + length of constant key. 

PTAB = points to the next available byte in 
the constant table. 

TABL = TABL + length of the last entry 
processed. 

By means of one of the called routines , 
the constant is scanned for acceptable 
precision. Type and precision are entered 
in the constant table with the constant 
itself in its intermediate representation. 
The constant table entry is completed by 
entering the internal name, the attribute 
byte, the three 0-bytes, and the length of 
the intermediate representation. 

If IJKMVC is greater than 2 32 -2, it is 
reset to 0, and an error message is pro¬ 
duced. The same error message is generated 
in the case of a table-space overflow (TABL 
must not be greater than the table space) , 
furthermore, PTAB and TABL are not 
increased. 

Finally the constant key is replaced by 
the constant reference key and as many 
blanks as are needed to overlay the con¬ 
stant in its external format. These blanks 
are eliminated in FEST. If the constant is 
preceded by a prefix plus or minus, the 
minus sign is taken into account by setting 
the first bit of the 3 zero-bytes to 1. 

The prefix signs are then removed from the 
source text by overlaying them with the 
constant key and replacing all bytes of the 
constant by blanks. 

Rou tine F BF L — BI 

Input parameters: 

R1 = address of the constant in its 
external format 

RLEN = length of the external format 
PTAB = pointer to the constant table 

Output parameters: 

PTAB = unchanged 

RLEN = length of the intermediate represen¬ 
tation of the constant 

This routine processes the binary 
floating-point constants. The precision of 
the constant is determined in FPFL. If 
there are more than 53 binary digits (error 
number 58) , the constant is truncated on 
the right, the exponent is increased 
accordingly, and JERR is called. The expo¬ 


nent of the intermediate representation is 
obtained by subtracting the number of 
digits specified after the binary point 
from the exponent specified by the program¬ 
mer. The binary digits of the external 
format (each digit occupying one byte) are 
condensed to a bit string (each digit 
occupying one bit) in FBIN. The constant 
is stored in the constant table. 

Routi n e FBFI -- W M 

Parameters: same as in FBFL. 

This routine processes the binary fixed- 
point constants. If there are more than 31 
digits (error number 62) , the constant is 
truncated on the right, and JERR is called. 
The binary digits of the external format 
(each digit occupying one byte) are con¬ 
densed to a bit string (each digit occupy¬ 
ing one bit) by means of FBIN. 

Routi n e F P FL -- rtK 

Parameters: same as in FBFL. 

This routine processes the decimal 
floating-point constants. The constant is 
stored as a decimal integer followed by an 
exponent. This exponent is obtained by 
reducing the exponent specified by the 
programmer by the number of digits after 
the decimal point. If there are more than 
16 digits (error number 58) , the number is 
truncated on the right and the exponent is 
increased by the number of digits being 
truncated. 

Routi n e FDFI -- W N 

Parameters: same as in FBFL. 

This routine processes the decimal 
fixed-point constants. If there are more 
than 15 digits (error number 63) , the con¬ 
stant is truncated on the right. 

Routine FBST — WL 

Parameters: same as in FBFL. 

This routine processes the bit string 
constants. If a replication factor greater 
than 1 has been specified, the bit string 
is expanded accordingly. Bits exceeding 64 
are truncated (error number 5 6) . 

Rout in e F S TL — W J 

Parameters: same as in FBFL. 

This routine processes sterling con¬ 
stants. The constant is converted to and 
stored as decimal fixed-point pence. The 
conversion is done by the instructions ADD 
and MJLTIPLy DECIMAL; if, however, the 
decimal feature is not available, these 
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instructions must be simulated. The preci¬ 
sion of the constant is taken from the 
converted number; leading zeros are 
ignored. If more than 15 significant 
digits have been obtained (error number 
61) , the decimal fixed-point pence number 
is truncated on the right. 


R outine FPFL — WI 
Input parameters: 

R1 = address of the constant in its 
external format 

RLEN = length of the external format 

Output parameters: 

R1 = unchanged 

REXP = exponent specified by the programmer" 
RLEN = number of digits specified for 

fixed-point portion of constant (P) 
R2 = number of digits specified after 
decimal (binary) point (Q) 

This routine scans the precision and the 
exponent of a floating-point constant. If 
the specified exponent exceeds 3 digits 
(error number 57) , the remaining digits are 
truncated. 

Ro utin e FPFI — WT 

This is a secondary entry point of FPFL. 
Input parameters: 

R1 = address of the constant in its 

external format 

RLEN = length of the external format (of a 
fixed-point constant) 

Output parameters: 

R1 = unchanged 

RLEN = number of digits of decimal fixed- 
point constant (P) 

RQ = number of digits specified after 
decimal (binary) point (Q) 

This routine scans the precision of a 
fixed-point constant. 

5out in e FREP — WL 

Input parameters: 

R1 = address of the constant in its 
external format 

RLEN = length of the external format 
Output parameters: 

R1 = address of the basic string 

RLEN = length of basic string 
REPL = replication factor 

Converts the replication factor of a 
bit-string constant to binary. If no 
replication factor is specified, REPL is 
set to 1. A zero replication factor is 
ignored (error number 55) and REPL is set 
to 1. 


Routi n e F B IN — WL 
Input parameters: 

Rl = address of the first digit of the 
constant 

RLEN = number of digits 
Output paramters: 

(R4, R5) resulting bit string (binary 
number) , right-aligned 

This routine condenses a character 
string of zeros and ones to a bit string. 

Rout in e J E QS — W P 

This routine positions the contents of 
input buffers 1-4 so that the currently 
scanned EOS is in input buffer 1 (this is 
done by calling JMIB) . The EOS and the 
error codes attached to it are written on 
the text output file. If additional error 
codes are generated, they are also put out. 

Rout in e J M IB - - WQ 

This routine moves input text to the left 
and reads in new records. 

R outi n e JSLC — WR 

This routine determines if a statement is 
too long (i.e., if its EOS key is in the 
first 4 input buffers) . If so, the state¬ 
ment body is deleted so that the statement 
consists only of the statement identifier 
and the EOS (with error codes). The fol¬ 
lowing statement is positioned so that it 
begins in input buffer 1. If the statement 
is not too long, this routine returns to 
the calling routine. 

Routi n e J TRN -- WO 

Input parameters: 

PIN = pointer for source text 
POUT = pointer for output buffer 
BYZ = number of bytes to be moved 

Output parameters: 

PIN = PIN+BYZ 

POUT = address of next available byte with¬ 
in the output buffer 

If all the bytes to be moved do not fit 
into the output buffer (or if it is com¬ 
pletely filled), the buffer is filled by 
the first part of the text to be moved and 
then written on the text output work file. 
The remaining bytes, if any, are moved to 
the beginning of the buffer. 

Rout in e JERR -- WQ 

This routine checks whether the error table 
is full and returns in that case. If the 
error table is not full, the number of 
errors is increased by one and the corres¬ 
ponding error key is inserted. 
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PHASE PL/IC35 (BLOCK SORTING) 


( 


The main task of this phase is to sort the 
blocks arising in the source program. The 
input is on TXTIN. Three different cate¬ 
gories are to be distinguished. 

1. The source program consists of only one 
block. Therefore, only one scan of the 
input string is required. The block 
with the level number zero is written 
onto TXTOUT• 

2. The source program consists of blocks 
with the level numbers zero and one. 
This requires the input string to be 
scanned twice: 

a. The block with the level number 
zero is extracted and written onto 
TXTOUT. The blocks with the level 
number one are written onto SYS001. 

b. The input is on SYS001 and written 
unchanged onto TXTOUT. 

3. The source program consists of blocks 
with the level numbers zero, one, and 
two. This requires the input string to 
be scanned three times: 

a. The block with the level number 
zero is extracted and written onto 
TXTOUT. The blocks with the level 
numbers one and two are written 
onto SYS001. 

b. The input is on SYS001. The blocks 
with the level number one are 
extracted and written onto TXTOUT. 
The blocks with the level number 
two are written onto TXTIN. 

c. The input is on TXTIN and written 
unchanged onto TXTOUT. 

If, in the nth scan, a BEGIN statement 
is found that opens a block with level 
number n, a label is generated in front and 
the block with the label is written onto 
SYS001 or TXTOUT. Instead of the BEGIN 
block a CALL macro containing the new label 
is generated. If the BEGIN statement is in 
an embracing BEGIN block, the statement is 
additionally changed to NEW BEGIN. 

If a PROCEDURE statement is found, eith¬ 
er the entire attribute table or the first 
18 bytes of the attribute table are stacked 
depending on the length of the table. 

If an END (procedure) statement is 
found, the last entry in the stack is 
cleared. 


If a RETURN statement is found, the 
contents of the last entry in the stack are 
inserted after the first 8 bytes of the 
RETURN statement. 

The contents of the attribute table of 
each statement are translated into a new 
form by the translate subroutine. 

I/O Handling_(B uffers ) 

Six buffers are used: five buffers, i.e., 
output buffer 1, three work buffers, and 
one input buffer, are in the I/O area, and 
output buffer 2 is defined in the table 
area. 

DESCRIPTION OF ROUTINES 
Symb ol s u s ed in flow charts : 

C (B) contents of location pointed to by B 
C (B+1) contents (length 2 bytes) of loca¬ 
tion pointed to by B+1 
A (B) address of B 

I niti aliza tion — VC 

The following items are defined and set to 
their initial values: 

ALEVEL actual level (0) 

CLEVEL current level (-1) 

MAXCL maximum value of CLEVEL (-1) 

ZAEHL I/O record counter (0) 

ZAEHL2 I/O record counter (0) 

COUNTER I/O record counter (0) 

COUNTER2 I/O record counter (0) 

ML move-instruction length (4) 

HISPEI intermediate storage for address 

BEGINBIT switch 

NEWBEGIN key of changed BEGIN (X'17') 

NBEGIN key of changed BEGIN (X'16 1 ) 

OUTPUT temporary buffer 

TATTRIB attribute table stack 

ATTRIB address of TATTRIB+3*21 

Pointers: 

B6 start address of output buffer 2 

B0 IJKMBS = start address of output 

buffer 1 

B1 start address of work buffer 

B2 B1 + buffer length 

B3 B2 + buffer length 

B4 start address of input buffer 

B5 B4 + buffer length 

Registers: 

OP2 pointer for output buffer 2 is 

set to B6 

OP1 pointer for output buffer 1 is 

set to B0 
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CP current pointer in work buffer is 

set to B5 

LENGTH counter used for text output 


Switch BEGINBIT is tested and if BEGIN- 
BIT = 1, the BEGIN key is replaced by the 
contents of NENBEGIN. 


Ma in Ro uti n e — VD 

The main routine scans the current input 
string for some special keys and calls the 
appropriate subroutines. 


P rocedure Handling -- V E a n d VF 
Entry point: VEB2 

This routine is called when a label macro 
is found. The label macro is written out 
if it is not followed by a PROCEDURE state¬ 
ment. 


If it is followed by a PROCEDURE state¬ 
ment, the subroutine CLEVMAX increases the 
current level CLEVEL, and if CLEVEL is not 
zero, a library bit is inserted. Then the 
label and the beginning of the PROCEDURE 
statement are written out. 


The prestatement is moved into the 0P2 
buffer. Thereafter, any existing labels 
located behind the prestatement are moved 
into the 0P1 buffer followed by the CALL 
statement. 


The call macro is 19 bytes long and 
contains the following information: 

Byte ( s) Con tent s 


1 EO 

2 FF 

3 09 

4-6 refer to the BEGIN statement 

7 macro key 

8 00 

9 07 

10 A0 

11 El 

12-13 variable counter IJKMVC 

14 EA 

15—19 refer to BEGIN statement. 


If the PROCEDURE statement is detected 
during the first scan through the input 
string, some additional actions are 
required, e.g., the attribute table must be 
stacked, translated, and written out. 


The variable counter IJKMVC is increased 
by one. tfhen the value X*FFFF' is reached, 
an error message is generated. 


Return Handling -- VH and VI 


Be gin Handling — V G 


Entry point: VHB2 


Entry point: VGB2 

This routine is called when a BEGIN state¬ 
ment is found in the input string. At 
first the current level CLEVEL is increased 
by one in the routine CLEVMAX and is then 
compared to the actual level ALEVEL. 

If the current level is equal to the 
actual level and the actual level is one, 
the switch BEGINBIT is set to one. 

If the current level is not equal to the 
actual level, the difference between the 
actual level and the current level is test¬ 
ed. If the difference is one, some poin¬ 
ters are changed to move the label macro 
into the OP2 buffer. 


This routine is called when the beginning 
of a RETURN statement is found. The poin¬ 
ter LENGTH is increased by six and the 
input/output subroutine is called. Unless 
this routine is not called during the first 
scan through the input stream, (ALEVEL = 0) 
the end of the routine is reached. Other¬ 
wise, the attribute table is processed. Ijf 
an F4-key is found, the translate routine 
is called and the translated attributes are 
moved into the output buffer. Thereafter, 
the constant table, if there is one, is 
moved and the last entry of the attribute 
stack (made by detecting the last PROCEDURE 
statement and pointed to by ATTRIB) is 
inserted. Then, RETKON is moved into the 
output area. RETKON is 6 bytes long and 
contains the following information: 


The label macro is 7 bytes long and 
contains the following information: 


Byte (s ) Contents 


B yte (s ) 

1 

2 

3 

4 

5 


Contents 

F2 - macro key 
00 
07 

72 : label 
El 

variable counter 


1 El 

2-3 RETURNL 

4 E2 

5 00 

6 EB 

Figure 1 shows the format of the RETURN 
statement at the end of this routine. 
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RETURN L 

Figure 1* Format of RETURN Statement 


End_(Pr ocedure) Han d ling -- VK 

Entry point: VKB2 

This routine is called when an END 
(procedure) statement is found. First, 
ALEVEL is tested. If it is zero, the last 
entry of the attribute-table stack is 
cleared. 


through the input stream is started. 
Depending on MAXCL and ALEVEL, the text is 
processed. If MAXCL equals ALEVEL, the 
Endlevel routine is called. The output 
(text unchanged) of the last scan is moved 
onto TXTOUT and the end of the phase is 
reached, otherwise, the routine returns to 
the initialization routine of this phase, 
and a new scan begins. 


The following actions are also performed 
by the END (begin) Handling routine: 

The beginning of the statement is writ¬ 
ten out, the routine Label Handling is 
called, the statement end with error keys, 
if any, is written out, and CLEVEL is 
decreased by one before the end of the 
routine is reached. 

END_(Be gin) Handling — VL 


Trans l ate Routine — VP - VS 
Entry points: 

VPB2 (translate routine 1) 

TRANSLAT (translate routine 2) . 

The subroutine Translate translates the 
attributes in the variable entry into the 
following 1-byte form: 


Entry point: VLB2 

This routine is called when an END (begin) 
statement in the source text is found. If 
ALEVEL and CLEVEL contain one, the BEGINBIT 
is set to zero before branching to the END 
(procedure) Handling routine. 

La bel Handling — VM 

Entry point: VMB2 

This routine is called when generated 
labels are found in the prestatement. 

These labels are moved into the output 
buffer and the counter CLEVEL is increased 
by one. 

E nd program — VN and VO 
Entry point: VNB2 

This routine is called if the end-of- 
program key is detected. 

If IJKMBC contains one, the end of the 
source text is written out and the next 
phase is called. Otherwise, the next scan 


Bit 0 : 

0 

= 

not controlled. 


1 

= 

controlled 

Bits 1-3 : 

000 

= 

Scalar variable without 
picture 


001 

=: 

Scalar variable with 
picture 


010 

= 

Array without picture 


011 

= 

Array with picture 


100 

— 

ENTRY name or function 
name without picture 


101 

= 

Function name with pic¬ 
ture 


110 

= 

Constant 

Bits 4-7 : 

0000 

= 

Binary float 


0001 


Binary fixed 


0010 

= 

Decimal float 


0011 

= 

Decimal fixed 


0100 

= 

Zoned decimal 


0101 

= 

Zoned decimal (T) 


0110 

= 

Character string 


011 1 

= 

Bit string 


1000 

= 

Sterling 


1001 

= 

Label 


1010 

= 

Pointer 


1100 

= 

Major Structure 


1101 

= 

Minor Structure 


1110 

= 

Others 


1111 

= 

File 


Pha s e PL/IC35 


129 




PL/I PLM 8 


IBM Confidential 


Input parameter: 

RPOI (4 bytes) contains the address of the 
variable entry in the prestatement to be 
translated. 

Output parameter: 

ELENG (1 byte) contains the entry length of 
the declared variable. 

En dlevel Routine — VT 

Entry point: VTB2 

This routine reads the output of the last 
scan of the text from SYS001 or TXTIN and 
writes it unchanged on TXPOUT. 

CLEVMAX Routine — VU 

Entry point: VCJB2 

The current level CLEVEL is increased by 
one and compared with MAXCL. If CLEVEL is 
greater than MAXCL f MA.XCL is set to CLEVEL. 

I /O Handli n g - - VW 

Entry point: VWB1 

This routine controls the buffer handling. 
It is called when a string of the source 
program is to be written out. At first, a 
test is performed to determine whether the 
string is contained in its full length in 
the buffer area. 

If it is, the move routine is called 
where the string is moved into the output 
area. Then, the read routine is called 
where the input buffer is filled, if 
required, and this routine returns. 

If the string is not contained in its 
full length in the buffer area, the section 
of the string contained in the buffer area 


is moved, and the input and work buffers 
are filled. Then the remainder of the 
string is moved and written out, and the 
routine returns. 


Read R out i ne — VX 
Entry point: VXB1 

The input and work buffers are filled if 
required. Therefore, CP is compared to B2. 
If CP is lower than B2, the routine 
returns. Otherwise, the contents of the 
buffers B2, B3, and B4 are moved into the 
buffers Bl, B2, and B3, respectively. The 
buffer B4 is filled with the next record 
from TXTIN or SYS001. 

Move Routine -- VY 

Entry point: VYB2 

This routine is called if a string has to 
be moved into the output area. Depending 
on the contents of ALEVEL and CLEVEL, buf¬ 
fer BO or B6 is used. The entire string or 
part of it is moved into the buffer area 
depending on the length of the string and 
the number of free bytes in the buffers. A 
full buffer is written out by the write 
routine, if required. 

^ rit e Routine — VZ 

Entry point: VZB2 

Depending on the contents of ALEVEL and 
CLEVEL, 0P1 or 0P2 are compared to Bl or 
BO. If the result of this comparison is 
not equal, the routine returns without 
further actions. Otherwise, the contents 
of the buffers BO or B6 are written onto 
TXTOUr, TXTIN, or SYS001 depending on ALEV¬ 
EL. 
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PL/IC50_(I/O SCAN I) — XB, XC 



The I/O scan is performed in this phase and 
the phases C55, C6G, and C65. These phases 
process all I/O statements. The functions 
of these phases are: 

1. to check the statements for errors that 
are not detected by phases A60 and A65. 

2. to prepare the statements for process¬ 
ing in later phases: 

a. to generate DO statements for the 
repetitive specifications in the 
data lists, and 

b. to arrange the statements and 
include information required to 
permit sequential processing of the 
statements in later phases when the 
appropriate I/O macros are to be 
generated. 

3. to generate assignment and expression 
statements for expressions contained in 
some options and lists. 

Phase C50 is used to perform part of the 
processing required for GET and PUT state¬ 
ments. The options FILE, STRING, PAGE, 
LINE, and SKIP are checked for errors. 
Assignment statements are generated as 
required. 

Repetitive specifications in the data 
lists are checked for number and nesting 
depth. A DO and an END statement are gen¬ 
erated for each repetitive specification. 

Pha se Input and Output 

The input for the phase is the program text 
on TXTIN and the file table on SYS001. 

Phases C55, C60, and C65 also process 
the program text from TXTIN and C60 and C65 
the aforeementioned file table. 


E3 Reference to character-string constant 

E4 Reference to generated variable 

E9 Reference to constants other than 

character-string 
EA End of statement 

EB Error 

EC Reference to library names 

ED I/O-intermediate key 

EF Keyword 

FO Generated variable table 

F2 Macro 

F3 Constant table 

F4 Declared variable table 

FE Format integer constants 

FF End of program 

The text string consists of statements 
that appear in the same order as in the 
source program, except that nesting blocks 
are resolved, i.e., the blocks are now 
ordered serially. 

Each statement begins with a statement- 
identifier key which is followed by the 
declared variable and/or constant table. 
These tables contain the attributes of the 
variables and the attributes and values of 
the constants, respectively. (See phases 
B90 and B92 for the format of a variable 
table and phase C30 for the format of a 
constant table.) The syntax of the 
statement body which follows the table (s) 
is described in phases A60 and A65. The 
end-of-statement key terminates the state¬ 
ment, the end-of-program key the entire 
text string. A statement may have one or 
more labels which are in the form of inter¬ 
nal macros. Such labels may precede either 
the statement identifier or the statement 
body. 

The declared variables in the text 
string do not appear with their actual 
internal name, but with their offset in the 
declared-variable table. 



P rogram Te x t o n TX TIN. Each syntactical 
element of the text string begins with an 
'E'-or an 1 F'-key. Elements with an E-key 
have a fixed length. Elements with an 
F-key are of variable length. Bytes 2 and 
3 of an F-element indicate the length of 
the element. 

This phase and the other I/O-scan phases 
(C55, C60, and C65) process elements with 
one of the following keys: 

EO Statement identifier 

El Reference to declared variable 

E2 Delimiter 


F ile T able on Table File. There is one 
record in the file table for each file name 
and file name parameter. The file number 
is identical with the record number in the 
file table. Each record contains the 
attributes and options for the appropriate 
file name or file-name parameter. For the 
format of a file-table record refer to 
phase B25. 

Outpu t. This phase and the other I/O scan 
phases cause 

1. the I/O statments from TXTIN to be 
processed and 
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2. additional (generated) statements to be 
inserted into the input statements. 

The end of the I/O statement is sig¬ 
nalled by setting bit seven in the 
second byte of the last end-of- 
statement key to 1. 

To optimize the object code that is 
generated on account of the I/O statements, 
it is necessary that the inserted 
statements do not destroy the contents of 
specific registers. Preserving the con¬ 
tents of these registers is ensured by 
setting the appropriate bits in byte four 
of the end-of-statement key. Bits 0 to 7 
correspond to registers fourteen to five. 

If an error is detected during one of 
the I/O scan phases, bit 1 in IJKMJT is set 
to 1. 


statement key and the error number to be 
written out. 

Interface with Other Phases 

The second byte of the statement-identifier 
key is used to pass on information about 
the type of the statement (used in the 
phases D75 and D8 0) . 

The bits are set to 1 to indicate the 
following: 

Bit 0 PAGE option 

1 SKIP option 

2 LINE option 

3 Statement refers to a PRINT file 

4 LIST option 

5 STRING option 

6 GET statement 

7 PUT statement 


I nitializa tion, Scan_(G ene r al) _ — XA 

General control, initialization of the 
phase, and scanning for the I/O statements 
is the same for all I/O scan phases. 

Text input/output is performed in over¬ 
lapped mode under control of the inter¬ 
face (see phase A00) . Five buffers are 
used by the I/O scan phases: one buffer as 
output buffer and four contiguous buffers 
as input buffers. During the processing of 
an I/O statement, the input string is 
always adjusted in such a manner that the 
next end-of-statement key is fully in the 
input buffer area. Thus, no further con¬ 
trol for reaching end-of-buffer is 
required. 

The variable and constant tables 
required during processing of the I/O 
statements are read into the table space. 

After the input buffers have been 
filled, the statement key is checked to 
determine if it is an I/O key. If it is 
not, the statement concerned is skipped and 
the input buffers are filled again, if 
necessary. 

When an I/O key is found, the statement 
identifier key is saved and the statement 
attribute table is placed into the table 
space, and the statement is scanned for the 
end-of-statement key. 

Only correct statements (without T- or 
S-type errors) are processed. When an 
incorrect end-of-statement key is found, 
the statement is deleted from the text 
string except for the end-of-statement key. 

Correct statements are written out by 
the appropriate I/O routine. The end-of- 
statement routine causes the errors, if 
any, to be indicated in the end-of- 


If a data list contains a repetitive 
specification, bit 29 in IJKMJT is set. 

If standard input file is assumed, bit 
54 in IJKMLB is set; if standard output 
file is assumed, bit 55 in IJKMLB is set. 


DESCRIPTION OF ROUTINES 


Note: The symbols RO, RA through RM, BASE 

and RETURN are references to general 
registers. 


Symbo ls used in flow charts : 


AT2BUIE 

BGRTBPO 

BGSTPO 

BIFIMSK 

BLBYTE 

BLPOS 

CATBYTE 

CONBG 

COUNT 

CSTRMSK 

CUBL 

DASPB3 

DO 

EDATTA 

EDRTBPO 

EDSTPO 

ENDBUF 

EOP 

EOS 

ERFBT 

ERFLAG 

ERRTAB 


Position of string bits in 
entry of attribute table 
Address of repetitive specifi¬ 
cation table 

Address of parenthesis stack 
Mask to test for binary fixed 
Position of block byte in EOS 
key 

Position of block byte in 
GENVAD 

Work byte to build up the 
GENVAR attribute byte 
Address of declared-constant 
table 

Count register 

Test-mask for character string 
Current block number 
Address of data specification 
DO delimiter element 
End of declared-variable table 
End of repetitive specifi¬ 
cation table 

End of parenthesis stack 

End of input buffers +1 

End-of-program key 

End-of-statement key 

Mask for setting the error bit 

in IJKMJT 

Error flag byte 

Error table 
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FIBL 

FIDEMSK 

FILMSK 

FLBYTE 

FNBYTE 

GENVAD 

GENVAR 

GEPMSK 

GETMSK 

GEVAR 

IJKMBL 

IJKMBS 

IJKMJT 

IJKMTS 

IJKMTT 

IJKMVC 
INBUF 
INPO 
I OMSK 

ISTKEY 

KELEN 
LC 8 5 
LEBYTE 

LEDS 

LEEL 

LEGEOS 

LEIN 

LELPAR 

LENGTH 

LENGTH1 

LENGTHV 

LEPAR 

LERR 

LETEL 

LEVPOS 

LEI BYTE 


LE2BYTE 


LIBG 

LIBUF1 

LIBUF2 

LIBUF3 

LINMSK 

LISMSK 

MOMAC 

N 

NATBYT 



NATBYTE 

OUBUF 

OUPO 

PABG 


File-block area 

Mask to test for fixed decimal 

Mask for testing the file bit 

Position of flag byte in end- 

of-statement key 

Relative position of file- 

number byte in attribute table 

Generated variable definition 

Generated variable reference 

Mask to set register-preserve 

bits for GET/PUT 

Mask for setting the GET bit 

Generated-variable reference 

Buffer length (entry in 

communication area) 

Address of buffer area (entry 
in communication area) 

Job information bytes (in 
communication area) 

Address of table space (entry 
in communication area) 

Address of TABTAB (entry in 
communication area) 

Variable counter in interface 
Address of input buffers 
Input pointer 

Mask to set I/O bit in END-of- 
statement key 
Internal equal sign for 
assignment statement 
Length of key 

Offset for the C85 skip bit 
Address of precision byte in 
entry of the variable table 
Length of generated variable 
Length of one E-key element 
Length of end-of-statement key 
Length of internal name 
Left list parenthesis 
Length of area to be written 
out 

Current length 
Maximum length of GENVAD 
Left parenthesis 
Length of error key 
Length of two E-key elements 
Position of level byte in EOS 
Address of length byte for 
character string data in 
attribute table entry 
Address of length byte for 
non-character string data in 
attribute table entry 
Begin of LINE option 
Address of second input buffer 
Address of third input buffer 
Address of fourth input buffer 
Mask for setting the LINE bit 
Mask for setting the LIST bit 
Move-macro area 
Counter 

Position of scalar/array bits 
in entry of attribute table 
Address of attribute byte in 
entry of variable table 
Address of output buffer 
Output pointer 
Begin of PAGE option 


PALMSK 

Mask for setting the PAGE bit 

PRINMSK 

PRINT mask 

PRINTMSK 

Mask for setting the PRINT bit 

PSTMSK 

Mask to test for PUT STRING 
statement 

PUSTMSK 

Mask to test for PUT STRING 
statement 

PUTMSK 

Mask for setting the PUT bit 

REGBYTE 

Position of register-preserve 
byte in statement key 

RILPAR 

Right list parenthesis 

RIPAR 

Right parenthesis 

RTBPO 

Pointer for repetitive speci¬ 
fications 

SATBYTE 

Position of statement attri¬ 
bute byte in statement key 

SAVIO 

Area for saving statement 
identifier 

SAVMSK 

Mask for preserving registers 

SBC85 

Mask for setting the C85 skip 
bit 

SCAMSK 

Mask for testing on scalars 

SEOS 

Area for end-of-statement key 

SKIBG 

Begin of SKIP option 

SKIMSK 

Mask for setting the SKIP bit 

SRIMSK 

Mask for setting the STRING 
bit 

STABYTE 

Statement-attribute byte 

STAID 

Position of statement iden¬ 
tification in statement key 

STAKEY 

Area used to build the state¬ 
ment key 

STIMSK 

Mask for setting the standard 
input-file bit 

STIMMSK 

Stream-input mask 

STKELE 

Length of statement key 

STOMSK 

Mask for setting the standard 
output-file bit 

STOUMSK 

Stream-output mask 

STPO 

Pointer for parenthesis stack 

STRXBYTE 

Position of structure byte in 
attribute-table entry 

STRSAV1 (2 

,3) Save area 1 (2, 3) for GEASS 

parameter 

T 

Table file 

TBPO 

Pointer in table space 

TEBYTE 

Test byte to indicate current- 
statement file declarations 

TINP01 (2, 

3) Temporary input pointer 1 (2, 

3) 

Mask to zero bit 2 in TABTAB 
entry 

TTMSK 

VARBG 

Address of declared-variable 
table 

ZTAB2 

Relative entry in TABTAB of 
file table 


The statements are processed in two 
passes over the text string. The 
operations performed in each pass are des¬ 
cribed separately. 


The file or the string option, if pre¬ 
sent, is the first option. If there is no 
file or string option, a standard system 
file is assumed. 
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If the string option is present, the 
option identifier is examined to determine 
if this is a character string. In this 
case, an assignment statement is generated 
for a subscripted variable. This assign¬ 
ment statement is placed into the string 
option for a GET statement or behind the 
original I/O statement for a PUT. The sub¬ 
scripted variable in the string option is 
replaced by a generated variable, which 
also constitutes the left or right side in 
the assignment statement for a GET or PUT, 
respectively. 


The data specifications are written out 
with the following changes: The format list 
or lists in the data specification are 
written ahead of the data lists. For each 
left list parenthesis of a data list, 
except the first one, a DO statement is 
generated. The pointer to the appropriate 
text after the DO is fetched from the 
repetitive-specification table and is found 
by comparing the input pointer with the 
stacked pointer. (First address in each 
entry of the repetitive-specification 
table) . 


If the file option is present, the 
appropriate file block is fetched from the 
table file and the file options are checked 
to determine if they are consistent with 
the type of statement. 

For a file-name parameter, an internal 
move macro is generated. The object code 
generated by this macro causes the file¬ 
name argument to be inserted into the 
parameter list at object time. 

In a PUT statement, the PAGE and/or 
LINE, or SKIP options may appear ahead of 
the data specification. 

For the expression in the LINE or SKIP 
option, an assignment statement to a binary 
fixed generated variable is generated and 
placed ahead of the PUT statement. The 
expression in the option is replaced by the 
generated variable. 

The data list is scanned for repetitive 
specifications. Each left-list parenthe^ 
sis, except the data list parenthesis 
itself, indicates the beginning of a repet¬ 
itive specification. The pointer value for 
this parenthesis is placed into a parenthe¬ 
ses stack. On a DO following a list ele¬ 
ment, the updated input pointer, the poin¬ 
ter to the end of the repetitive specifi¬ 
cation (next right-list parenthesis) , and 
the last entry in the parenthesis stack are 
placed into the repetitive specification 
table and the last entry in the parenthesis 
stack is cleared. 

Format of a repetitive-specification 
table entry: 


When a DO is encountered, an END is 
generated to close the DO group. 

Each generated statement has the same 
format as described above. The statement 
attribute table is the same as that for the 
GET/PUT statement. 

The generated variables are defined as 
automatic. Whenever possible, the same 
definition is used for successive 
variables. If a new definition is required 
(for example, if a new block is reached) , 
the old definition is written out. This is 
also done at the end of the program text 
when, in addition, an end-of-statement key 
is written out following the variable defi¬ 
nition. 

Initi a liz a tion and Scan — XD, XE 

The functions of this routine are explained 
under Initialization, Scan (General) . The 
following registers are used: RO, RA 
through RI, RL and RETURN. RF contains the 
pointer for the table space. RG contains 
the length of the declared variables or the 
constant table. RH contains a temporary 
input pointer in number of bytes: 

INIGP — XF 

The main purpose of this routine is to test 
for the presence of the GET (or PUT) 
options and to set the bit configuration of 
the second byte of the statement- identifi¬ 
er key (see In terface with other Phases .) 

In the CONTEB subroutine, which is called 
by this routine, the bit configuration of 
the test byte TEBYTE is set. The meaning 
of the bits of this byte is shown below. 


r - T - T -1 

| Begin of | Address of ele-| End of | 

j Rep.Spec. | ment after DO | Rep.Spec. | 

l_ x _x_j 

1 5 9 

Pass 2 

The input statement is written onto TXTOUT 
in this order: statement key, statement 
attribute table, internal macro generated 
for a file-name parameter, and PAGE (SKIP 
or LINE) option, if present. 


Bit N o. 
0-2 


3-4 

5 


6 

7 


Meaning 

0 = PRINT file 
1 = file other than PRINT 
not used 

0 = file option contains no file 
name parameter 

1 = file option contains a file 
name parameter 
0 = stream input file 
1 = file other than stream input 
0 = stream output file 
1 = file other than stream output 
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S CA.DA.L1 -- XG 

This routine is used to build up the repet¬ 
itive specification table. 

CHECKST — XH, XI 

The routine processes the GET (or PUT) 
options and causes them to be written out. 

SCADAL2 — XJ 

This routine causes the DO statements to be 
rearranged and completed. Also, END state¬ 
ments are generated. These statements are 
written out on the text output file. 

FE FIBL — XK 

//hen the subroutine is entered, INPO points 
to the internal file-name in the text 
string. 

The subroutine loads the nth file block 
of the file table into storage (n = file 
number of the current file). If the name 
in the file option is a file-name paramet¬ 
er, an internal move macro is generated and 
the file-name parameter in the file option 
is replaced by an 'ED'-key with a new 
internal name. If the name in the file 
option is not a file-name parameter, the 
offset in the variable table of the file¬ 
name is replaced by the actual internal 
file-name in the text. 

The internal file-name is checked for 
validity. If the file-name is invalid (0 
as internal name) , the subroutine is left 
via the error exit. 

C QNTEB — X L 

This subroutine causes the proper bit 
configuration to be set in TEBYTE, which is 
used in the CHECKST routine to determine if 
the current statement is consistent with 
the file declaration. 

IN PUT — XM 

This subroutine causes the input buffers to 
be filled as determined by the current 
value of the input pointer. When this 
subroutine is left, at least three input 
buffers are filled. The input pointer is 
adjusted. 

The subroutine uses register RL as 
return register. 

OUT PUT — X N 

Input parameters: 

Register RC contains the address of the 
area to be written out. 

Register RD indicates the length of the 
area. 


This subroutine causes 

1. the contents of an area of arbitrary 
length to be moved into the output 
buffer and 

2. the data in the output buffer to be 
written on the text output file when 
the buffer is filled. The pointer in 
the output buffer is updated and the 
register pointing at the area whose 
contents are to be written out is 
increased by the length of the area. 

The secondary entry points OUTPUT1, 
OUTPUT2, and OUTPUT3 are used to set param¬ 
eters: OUTPUT 1 is used if the end of the 
area to be written out is determined by 
INPO; OUTPUT2 is used if an area of the 
length of one 'E'-key element is to be 
written out; OUTPUT3 is used if an area of 
the length of two 'E'-key elements is to be 
written. 

Output parameter: 

Register RC contains the input address plus 
the length of the area that has been writ¬ 
ten. 

SKIST A — XO 

This subroutine increases the input pointer 
until either 

1. an EOS is found or 

2. the sum of the input pointer and the 
length of the next element exceeds the 
upper limit of the input buffers. 

SKILI -- XP 

This subroutine increments the input poin¬ 
ter until it points to the position immedi¬ 
ately after the list. A list is a number 
of elements enclosed by a pair of normal or 
list parentheses. When the subroutine is 
entered, the input pointer points to the 
left parenthesis of the pair. 

SKIE X — XQ 

Input parameter: 

The input pointer INPO points to the begin¬ 
ning of the current expression. 

Output parameters: 

INPO points to end of expression plus 1: 

RA contains 0 if end is a comma, 

4 if end is a right-list paren¬ 
thesis , 

8 if end is DO. 

This subroutine increments the input 
pointer until it points to the position 
immediately after the current expression. 
For the purpose of this subroutine, an 
expression is a string of 'E'-key elements 
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delimited by a comma, a DO key, or a right 
list parenthesis which are not enclosed in 
a pair of parentheses. 

COMOMAO — XR 

This subroutine generates an internal move 
macro and inserts an 'ED*key element with a 
new internal name into the text string. 

This new name is used as the name of the 
constant in the parameter list into which 
the argument for the file-name parameter is 
moved at object time. 

Format of the move macro: 

r-T-T-T-T-1 

I F2 jLength| X'76' | Operand 1| Operand 2| 

I 1= 16 | | | | 

L_J__JL_-L_JL_J 

Input parameter: 

Register RA points to the entry for the 
file-name parameter in the declared varia¬ 
ble table. 

EOST — XS 


The subroutine is called when an end-of- 
statement is reached or a skip to the next 
EOS is required. 

The subroutine causes the EOS to be 
written on the text output file and error 
keys to be added if any errors have been 
encountered during the processing of the 
statement. The subroutine causes the input 
buffers to be refilled and INPO to be reset 
to point to the beginning of a new 
statement. 


The error table is 10 bytes long. Its 
format is as follows: 


Byte (s) Content s 


1 Error key 

2 Number of errors in current 

statement 

3-10 Special error keys 


A maximum of eight errors per statement 
(one special error key per error) is placed 
into the error table for a statement. 


The subroutine causes the error bit to 
be set in the communication routine. 


GEAS S, GED OST , GEEND — XU 
Input parameters: 

Register RF contains one of the following: 

X'OE' for an assignment statement 
X'12' for a DO statement 
X' 13 * for an END (DO) statement. 

This subroutine which is referenced in 
the various flow charts to phase C50 by 
either of the names GEASS, GEDOST, and 
GEEND, generates either an assignment, or a 
DO, or an END (DO) statement as determined 
by the contents of RF. The prefix mask of 
the statement key is taken from the state¬ 
ment key inside which the statement is 
generated. The bits used to preserve reg¬ 
isters are set by means of the bit configu¬ 
ration of the SAVMSK byte. 


If an end-of-program key is found to 
follow the EOS, the end-of-phase routine is 
called. 

EOPH — XS 

This subroutine is called when an end-6f- 
program key is reached. 

The subroutine causes the definitions of 
the last generated variables to be written 
out. These definitions are followed by an 
end-of-statement key and the end-of- 
program key. 

The contents of the output buffer are 
written out on text output file and phase 
C55 is fetched using the interface routine 
IJKAPH (calling macro IJKPH). 

ERROR — XT 


The statement attribute table for the 
input statement is used for all statements 
to be generated and inserted in the input 
statement, except the END statement. 

The statement body for the assignment 
statement consists of a generated variable 
contained in GENVAR, an IST-key, and the 
expression pointed to by TINPO (begin) and 
INPO (end + 1) . For the DO statement, the 
statement body consists of the repetitive 
specification, the beginning and end of 
which is found in the repetitive specifi¬ 
cation table (INPO points to the left list 
parenthesis of the repetitive element) . No 
statement body is needed for the END state¬ 
ment. 

At the beginning and end of the state¬ 
ment, an EOS is generated which is that of 
the processed (proper) statement. 


Input parameter: 

Register RA contains the special error key. 

The errors detected during the process¬ 
ing of a statement are placed into an error 
table. 


The generated variable (reference) is 
written out whenever an assignment state¬ 
ment is generated. The variable is written 
out ahead of the assignment statement for a 
GET and following the assignment statement 
for a PUT. 
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OU TTAB -- XV 

This subroutine causes the declared- 
variable and constant tables to be written 
out, 

G EVAO — XW 

Input parameter: 

Register RG contains: 

4 when the subroutine is to use the 

attributes of the element to which INPO 
is pointing, 

8 when the desired attributes are binary 
fixed and precision 8, 

This subroutine builds up both generated 
variable definitions (GEVAD) and generated 
variable references (GEVAR) . 

When the subroutine is entered the first 
time for a program, the value in the varia¬ 
ble counter in the communication region is 
inserted in GEVAD and GEVAR as an internal 
value. The block and level numbers are 
obtained from the EOS of the current state¬ 
ment and also inserted in GEVAD. 

When a new block is reached, GEVAD is 
written out (by calling OQTGEV) before the 
above described operations are performed 
for the new block. 

When the subroutine is entered for the 
second and subsequent times and a new block 
has not yet been reached, the same internal 
name is used and, therefore, the same stor¬ 
age is used for these variables. The 


length count is updated to maintain a count 
of the highest value of all variables. The 
attributes of GEVAD are character string 
and automatic. The attributes of GEVAR are 
indicated by register RG. 

Output parameters: 

A generated variable of the following for¬ 
mat is constructed: 

I T-T-T-T-T-T-T- 1 

|E4|Intern|E4|Attri-|E4|Preci-|E4|Piet.name 
| |Name | |butes j jsion j |or 0 | 

L_X-X_X__L_X_X_ J _ _ _ J 


OUTGEV — XX 


This subroutine causes the generated varia¬ 
ble definition (GEVAD) to be written out. 
CEIL (N/8) variables of length eight are 
made available for output (= maximum length 
required) . The first variable definition 
is assigned the previously processed inter¬ 
nal name, all other variable definitions 
are assigned an internal name of 0. 

A generated variable definition made 
available for output has the following 
format: 

f - T - T -T-T-T-T-1 

)F0|Length|Intern.jzerojx'10* |X'08*|Block | 
j j j Name j | [ |Level | 

l _x_x_x_x_x_x_j 

The portion of the text string beginning 
with 'internal name' is repeated as often 
as necessary with an internal name of 0. 
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P HASE PL/IC55 (I/O SCAN II)_ — YA 


Vv 


This phase processes the data lists of 
GET/PUT statements. Each data list item is 
examined for structure and validity. 
Assignment and expression statements are 
generated as required. 

In the output text, each data list item 
is preceded by a characteristic. Some of 
this information is used in phases D75 and 
D80. 

The GET/PUT statements are scanned for 
their data lists. The list items are 
scanned for the information listed below, 
and this information, if present, is evalu¬ 
ated by this phase. 

1. The item is scalar, array, or struc¬ 
ture. 

2. The item either contains an operator, a 
subscript, a function call, or a pseudo 
variable, or the item requires no cal¬ 
culation. 

3. The item contains a numeric field other 
than floating point or a variable with 
zoned decimal attributes. 


Each data item is preceded by a charac¬ 
teristic which has the following format: 

r - T - T - 1 

| ED | not used) Flag -| 

L_X_X_J 


An expression statement is generated 
whenever there is an operator in the data 
item or a function in a PUT statement. 


An assignment statement is generated for 
pseudo variables in input lists, scalar 
numeric fields (other than float), scalar 
zoned-decimal variables and subscripted 
variables. An assignment statement for a 
GET is generated with the data item to the 
left of the equal sign; for a PUT, the data 
item is on the right side of the equal 
sign. On the other side of the equal sign, 
there is always a generated variable, the 
attributes of which are derived from the 
attributes of the pseudo variable or the 
subscripted variable. The generated varia¬ 
bles are decimal fixed for numeric fields 
and zoned decimal variables. 


4. The subsequent item is the first item 
of or following an iteration group. 
This item is referred to as "special 
item. 


The information is summarized in the 
FLAG byte with the following format: 


B it No. 

0 1 = 

1 1 = 

2 0 = 

1 = 

3 1 = 

4 1 = 

5 1 = 

6 1 = 

7 1 = 


Meanin g 

An expression or an assignment 
statement must be generated. 
Presence of an operator or a 
constant not allowed for input. 
Scalar. 

Array. 

Special item. 

Structure. 

Numeric field other than float¬ 
ing point or zoned decimal. 
SUBSTR or UNSPEC. 

Wrong element; neither arithmet¬ 
ic nor string type. 


The bit configuration of the above flag 
byte is evaluated when the output informa¬ 
tion is processed. Invalid data items, 
variables not of type string or arithmetic, 
array and structure expressions, pseudo 
arrays and pseudo structures are not writ¬ 
ten out on the text output file. Struc¬ 
tures are reduced to their basic elements 
and each element is written out in the same 
way as other single data items. 


The generated variables are written out 
ahead of the assignment statement in case 
of a GET and following the assignment 
statement in case of a PUT. 

For a numeric field array (except float) 
and for a zoned decimal array, the assign¬ 
ment statement is preceded by a loop-begin 
and followed by a loop-end macro. The 
loop-begin and loop-end macros generate an 
object time loop which causes each array 
element to be read in or written out. 

The abovementioned assignment statement 
consists of 

1. a generated decimal-fixed variable as 
for a scalar numeric field and 

2. a generated pointer variable with data 
attributes of the array that points 
consecutively to each array element in 
the loop. All other single variables 
and character string constants are 
written out unchanged. 

A constant reference is expanded from 
three bytes to twelve bytes. The E9-key is 
repeated for each 3-byte group. The addi¬ 
tional bytes have the same contents as 
those of the generated variables. The 
constant definition for the appropriate 
constant is also written out. 
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DESCRIPTION OF ROUTINES 


N ote: The following routines used in this 

phase are described in phase C50: 


INPUT EOST 

OUTPUT ERROR 
SKISTA OUTTAB 
SKILI OUTGEV 

SKIEX 


Sym bo ls used in fl o w chart s: 


ALBYTE 

ANBYTE 

ARAMSK 

ARBIT 

ARRMSK 

ATBYTE 
ATPO 
AT2BYTE 

BISTMSK 

BLBYTE 

BLPOS 

CACOKEY 

CATBYTE 

CHAR 

CHKMSK 

CONAR1 

CONAR2 

CONATT 


CONBG 

CONLE 

CONLEN1 


CONLEN2 

COPO 

CORKEY 

CSTRMSK 

CUBL 

DARMSK 

DBEMSK 

DEFIMSK 

DELMSK 

EDATTA 

ENDBUF 


Length position in LOEDM 
Position of number of elements 
in attribute table 
Mask to test for array 
Mask to test for array bit 
Mask to test for array expres¬ 
sions 

Position of attribute byte 
Pointer for attribute table 
Position of string-attribute 
byte in attribute table 
Mask to set bit string in GEN- 
VAR 

Block byte in end-of-statement 
key 

Block byte in GENVAD 

Key for character-constant 

string 

Byte to generate the GENVAR 
attribute byte 

Area to build characteristic of 
element 

Mask to check data-list item 
Address of constant definition 
with table key 

Address of constant definition 
without table key 
Area to build attributes and 
precisions for the constant 
ref erence 

Address of declared-constant 
table 

Length of constant element 
(fixed) 

Length of constant definition 
with table key and without 
length bytes 

Length of constant definition 
with table key and length bytes 
Pointer for constant-attributes 
table 

Constant reference key 
Mask to test for character 
string 

Current block number 

Mask to reset array bit in 

CATBYTE 

Mask to set the special-item 
bit in SPEMSK 

Mask to set decimal fixed in 
GENVAR 

Mask to zero the delete bit 
End of variable-attributes 
table 

End of input buffer +1 


EOS 

EXPMSK 


FEADD 

FLAG 

FLAG 1 
GENVAD 
GENVAR 
GEPMSK 

GEPOR 

GEVAR 

IJKMBL 

IJKMBS 

IJKMTS 

IJKyiVC 

ILBYTE 

IL2BYTE 

INBUF 
INPMSK 
INPO 
I OMSK 

ISTKEY 

KELEN 
LABBYTE 
LAEBYTE 
LEBYTE 

LEEL 

LEGEOS 

LEIN 

LENGTHV1 

LENGTV 

LEPAR 

LETEL 

LEV 

LEVPOS 
LEI BYTE 
LE2BYTE 


LIBUF1 

LIBUF2 

LIBUF3 

LISMSK 

LOBGM 

LOEDM 

N 

NAMBYTE 

NATBYTE 

NEBYTE 


End-of-statement key 
Mask to test whether an expres¬ 
sion statement must be generat¬ 
ed 

Address of entry in variable- 

attributes table 

Expression flag byte indicating 

characteristics 

Flag byte to control output 

Generated-variable definition 

Generated-variable reference 

Mask to test for pseudo 

variables 

Area for generated pointer 
reference 

Generated-variable reference 
Buffer length (entry in com¬ 
munication area) 

Address of buffer area (entry 
in communication area) 

Address of table space (entry 
in communication area) 

Variable counter in communi¬ 
cation area 

Internal-length position in 
attribute table 
Internal-length position in 
character string 
Address of input buffers 
Mask to set CHKMSK for GET 
Input pointer 

Mask to test and set I/O bit in 
EOS 

Equal sign element in assign¬ 
ment statement 
Length of key 

Position of label in LOBGM 
Position of label in LOEDM 
Position of length byte in 
constant 

Length of E-key element 

Length of EOS key 

Length of internal name 

Intermediate length of GENVAD 

Maximum length of GENVAD 

Left parenthesis 

Length of two E-key elements 

Level of tested structure 

Level byte in end-of-statement 

key 

Character-string length-byte in 
attribute-table entry 
Length-byte in attribute-table 
entry for non-character-string 
data 

Address of second input buffer 
Address of third input buffer 
Address of fourth input buffer 
Mask to test for the LIST bit 
Area to generate loop-begin 
macro 

Area to generate loop-end macro 
Counter 

Name position in LOBGM 
Position of attribute byte in 
variable-attributes table 
Position of number of elements 
in LOBGM 
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OUBUF Address of output buffer 

OUPMSK Mask to set CHKMSK for PUT 

OUPO Output pointer 

PICBIT Mask to test for picture bit 

PICTMSK Mask to test for the picture 

bit 

POBYTE Pointer position in LOBGM 

POIMSK Mask to reset pointer in GENVAD 
POINAM Pointer-name position of entry 

in attribute table 

PSAMSK Mask to test for pseudo arrays 

PSSMSK Mask to test for pseudo struc¬ 

tures 

PUTMSK Mask to test for PUT bit 

RECLEV Recursion switch 

REGBYTE Position of register-preserve 

byte in statement key 
RILPAR Right list parenthesis 

RIPAR Right parenthesis 

SATBYTE Position of flag byte in state¬ 
ment identifier 

SAVIO Statement-identifier save area 

SAVMSK Register-preserve mask 

SEOS Save area for EOS 

SPEMSK Mask to set the special item 

bit in the FLAG byte 
SPVMSK Mask to test for subscripted 

variables 

SRCDMSK Mask to set the register- 

preserve bits for RC and RD 
SRIMSK Mask to test for STRING 

STABYTE Save area for statement flag- 

byte 

STAID Position of statement 

identification in statement key 
STAKEY Area to build the statement- 

identifier key 

STKELE Length of statement key 

STRMSK Mask to test for structure 

expressions 

STUMSK Mask to test for structure 

variables 

TBPO Pointer in table space area 

TINPOI (II) Temporary input pointer I (II) 
TINPO Temporary input pointer 

TINPOI-3) Temporary input pointer 1 (2, 

3) 

VARBG Address of declared-variable 

table 


INISC2 — YB 


This routine initializes the phase and 
controls the scanning of the input text. 

G EPUII -- YC, YD 

This subroutine causes the data list items 
of GET/PUT statements to be evaluated and 
either processed and written out or written 
out unchanged. Erroneous data list items 
are skipped. 

SKISTAT -- YE 


Input parameter: 

INPO points to the preceding EOS (if entry 


SKISTAT1 is used) or to the statement 
identifier key (if entry SKISTAT2 is used). 

This subroutine causes a statement to be 
skipped and written on the text output 
file. Entry point SKISTAT1 is used if the 
preceding and the following EOS are written 
out, too. Entry point SKISTAT2 is used if 
the statement is to be written out without 
the EOS's. 

Output parameter: 

INPO points to the position following EOS 
(if entry SKISTATl is used) or to the EOS 
of the current statement (if entry SKISTAT2 
is used) . 

EOPH -- YF 

This routine is called when an end-of- 
program key is encountered. 

Those definitions of generated variables 
which are not yet written out are now 
written out on the text output file fol¬ 
lowed by an end-of-statement key and the 
end-of-program key. Phase C60 is fetched 
by calling the interface routine IJKAPH 
using the calling macro IJKPH. 

IDEXPR — YG 


Input parameter: 

INPO points to the beginning of a data list 
item. 

This subroutine tests a data list item 
for specific characteristics and causes 
appropriate indicator bits to be set in the 
FLAG byte. All bits of the FLAG byte, 
except bit 3 are set to 1 if the appropri¬ 
ate characteristics are encountered. 

Output parameters: 

INPO points behind data list item; 

TINPO points to the beginning of data list 
item; 

FEADD contains entry from variable- 
attributes table if first element of data 
list item is a variable; 

FLAG contains a bit configuration that 
reflects the processing performed in this 
subroutine. 

TEEL -- YH 


Input parameter: 

ATPO points to the entry in the attribute 
table for the variable to be tested. 

This subroutine sets bits 5 and 7 of the 
FLAG byte to 1 if the appropriate data-item 
characteristics are encountered. For 
pointer variables, bit seven of this byte 
is not set to 1 because these variables may 
appear in a valid expression of a PUT 
statement. 
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Output parameter: 

FLAG contains a bit configuration that 
reflects the processing performed in this 
subroutine. 

T ESTR — YI 

Input parameter: 

ATPO points to a structure or to an element 
of a structure in the variable-attributes 
table. 

This routine updates ATPO. The secon¬ 
dary entry point TESTR1 is used if, when 
the routine is entered, ATPO points to an 
element of a structure. 

Output parameters: 

ATPO points to the next element or a struc¬ 
ture or to the position following the last 
element of the structure. 

RH contains 0 if no further element of the 
structure is present. 

RH contains 4 if the next element is found. 
GEEXP1,GEASS1 — YJ 

Input parameters: 

RF contains X'OF' if an expression state¬ 
ment is to be generated and X'OE* if an 
assignment statement is to be generated. 
This routine generates an expression or an 
assignment statement as determined by the 
contents of RF. The prefix mask of the 
statement key is taken from the statement 
key of the input statement into which the 
generated statement is inserted. The 
register-preserve bits in the statement 
flag byte are set by means of the SAVMSK 
byte. 

To generate the insertion statement, the 
routine uses the statement-attribute table 
for the input statement into which the 
expression or assignment statement is 
inserted. 

The statement body for the assignment 
statement consists of the generated varia¬ 
ble in GEVAR and the expression pointed to 
by TINPO (begin) and INPO (end+1). For an 
expresion statement, the statement body 
consists of the expression only. At the 
beginning and end of the assignment 
(expression) statement, an EOS is generat¬ 
ed. This is the EOS of the currently proc¬ 
essed statement. If an assignment state¬ 
ment is generated, the generated-variable 
reference is written out. It is written 
ahead of the assignment statement for a GET 
and following the assignment statement for 
a PUT. 

O UTSVC — YK 

This subroutine causes a single variable or 
a single constant in a data list to be 
written on the text output file. The 
address of the item to be written out is 


contained in TINPO; for a variable, the 
entry in the variable-attribute table is 
contained in FEADD. 

In case of a pointer-type variable, the 
routine returns to an error call in GEPUII. 
Otherwise, the variable is written out as 
it appears in the input stream. The same 
is done for a character-string constant. 

For a constant other than character 
string, the constant definition is written 
out as it appears in the constant- 
attributes table, but with the DELETE bit 
set off. The constant reference is written 
out in a format as follows: 

f - T - T -T-T-T-T-T- 1 

| I Intern.| | Attri-| | Pre- j | | 

|E9 j name | E9| butes |E9| cision|E9| 0 | 

L_ JL _X_X_X_X_X-X_J 

OUTCQND — YK 
Input parameter: 

RC contains the value of FEADD. 

This subroutine generates a constant 
definition in the form of a constant- 
attribute table entry. This definition is 
generated for a constant, the address of 
which is contained in RC. The delete bit 
is set to 0 and the definition is written 
out on the text output file. 

OUTSTR — YL 

Input parameter: 

FEADD contains the address of the entry in 
the structure-attributes table. 

This subroutine causes a structure to be 
written out element by element. Each 
element is tested for validity, and for 
each element a characteristic is built up 
and written out. The subroutine returns 
control to GEPUII for an error call if an 
invalid element is found. 

OUTPCT -- YM 

This subroutine writes out a single numeric 
field with attributes other than float. 

The address of the numeric field is con¬ 
tained in FEADD. The subroutine generates 
a variable with the attributes decimal 
fixed and an assignment statement. 

If the numeric field is an array, a 
pointer is generated in addition. This 
pointer replaces the numeric field in the 
assignment statement. One each internal 
loop macro is generated to precede and 
follow the assignment statement when this 
is written out. Those bits in SAVMSK that 
have been set prior to the generation of 
the assignment statement are reset before 
control is returned from this subroutine. 
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OUTSBST and OUTSPV — YN 

When entered via entry point OUTSBST, the 
subroutine writes out pseudo variables that 
appear in a data list of a GET statement. 
For pseudo variables in a PUT statement, an 
expression statement is generated and con¬ 
trol is returned immediately to the 
appropriate point in GEPUII. 

For SUBSTR, a variable is generated with 
the attributes of the first argument in the 
substring variable. For UNSPEC, a length 
of 64 bits is generated. Then, an assign¬ 
ment statement is generated for both. 

The subroutine is entered via OUTSPV for 
subscripted variables. A variable and an 
assignment statement are generated. 

C ONLBE — YO 

This routine generates the internal loop- 
begin and loop-end macros for an array, the 
address of which is contained in FEADD. 

The bits (in SAVMSK) to preserve registers 
RC and RD are set to 1. The generated 
loop-begin macro is written out on the text 
output file. 

GEVA/GEPOI — yp 


This routine builds up both the generated 
variable definition (GENVAD) and the 
generated variable reference (GENVAR). 

When this subroutine is entered the 
first time for a program, the value con¬ 


tained in the variable counter in the com¬ 
munication region is used as internal name 
and inserted in GENVAD and GENVAR. The 
block and level numbers are obtained from 
the EOS of the current statement and 
inserted in GENVAD. 


When a new block is reached or when 
specified by RG, GENVAD is written out (see 
OUTGEV) before the above described opera¬ 
tions are performed. 

In all other cases, the same internal 
name is used and, hence, the same storage 
area is used for these variables. The 
length is updated to indicate the length 
value of the longest variable so far proc¬ 
essed. GENVAD has the attributes CHARACTER 
and AUTOMATIC. The attributes of GENVAR 
are indicated by register RG. 

If the entry point GEPOI is used, a 
pointer variable is generated. 

Input parameter: 

Register RG contains: 

4 to indicate that the subroutine is to 
use the attribute of the element whose 
address is in FEADD; 

8 if a pointer variable is to be gener¬ 
ated a new GENVAD is to be used; 

12 to indicate that the desired attri¬ 
butes are coded decimal (length must 
be derived from the variable whose 
address is in FEADD) ; and 
16 to indicate a bit string of a length 
of 64 bits. 
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PHASE PL/IC60 (I/O SCAN III) — YS, YT 

( 




In this phase, the format list of the 
GET/PUT statement, the FORMAT, OPEN and 
CLOSE statements are processed. 

The format list items are checked for 
validity. For a remote format item, a move 
macro may be generated. 


The OPEN/CLOSE options are checked for 
errors and in some cases, assignment state¬ 
ments are generated. 


The second byte of the statement iden¬ 
tifier key is set to X^F* in a CLOSE and 
to X' 8F 1 in an OPEN statement. This infor¬ 
mation is used by the phases D75 and D8(T. 


The GET/PUT statement is scanned for the 
format list, the preceding part of the 
statement is written out and a checking 
routine is entered. After the check, a 
test is performed to determine if the 
length of the list is not greater than 
three buffer lengths. In that case, an 
error message is given and a dummy format 
list is written out. Otherwise, the format 
list is written out without further chan¬ 
ges. The process is repeated if further 
format lists are present. 

There is a difference between 
programmer-specified labels (format labels) 
and generated labels in the FORMAT state¬ 
ment. The generated labels are written out 
as they appear in the text input; the for¬ 
mat labels are handled as described below. 

First, the list of the FORMAT statement 
is tested in the same routine as the 
GET/PUT format list. Then, a test is per¬ 
formed to determine if the statement is 
preceded by at least one format label and 
if the list is not greater than three buf¬ 
fer lengths. If an error occurs, a message 
is written and the statement is deleted 
from the text string. Otherwise, the 
statement is written out until the end-of- 
statement key excluding the labels. The 
format labels are written out behind the 
list in the form: 

byte 0 key X f ED f 
bytes 1-2 internal name 

The names are also summarized in the 
format label table which is written out 
with record length 32 (16 names) . A test 

is performed to determine if no more than 
127 format labels appear in a program. 


The format lists of a GET/PUT and of a 
FORMAT statement are processed by the same 
checking routine. As the validity of some 
format items is dependent on the type of 
the file to which the statement belongs, an 
actual check is possible only for the 
GET/PLJT statement. The statement flag byte 
which is used for this check is set in such 
a way that the check is always right for a 
FORMAT statement. 

For control format items (except X) the 
statement is tested if it refers to a PRINT 
file. 

The nesting depth of iteration groups, 
(i.e., an iteration factor followed by 
enclosed format items or by a single format 
item) is examined to determine if it is not 
greater than five or two for GET/PUT or 
FORMAT statements. The depth of a group 
containing a remote format item is examined 
to determine if it is not greater than two. 

If A and B format items appear in a GET 
statement, a test is performed to determine 
if a field-length constant follows. 

If a remote format item appears in a 
FORMAT statement, the processing of the 
statement is terminated with an error call, 
and the statement is deleted from the text 
string. In a GET/PUT statement, the label 
designator in a remote format item is 
examined first to determine if it is a 
constant. In this case, the label is exam¬ 
ined if it is internal to the same block as 
the GET/PUT statement. For each remote 
format item with label variable, an inter¬ 
nal name is reserved which replaces the 
name of the label variable in the remote 
format item. Also, a move macro is gener¬ 
ated and written out which will effect the 
storing of the label variable value in a 
generated constant with the reserved name 
which is generated by the macro generation 
phase for a remote format item. 

In the OPEN/CLOSE statement, the name in 
the file option is examined first to deter¬ 
mine if it is a file name or file-name 
parameter. 

For a file name or file-name parameter, 
the appropriate file block is fetched from 
the table file, and a test byte and a flag 
byte of the following format are construct¬ 
ed: 


Test b yte . The bits are set to 1 to indi¬ 
cate the following or are not used. 
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Bit 0-4 always zero EDFLTA 

5 1 if PRINT is specified ENDBUF 

6 zero EOS 

7 always 1 EOST 

ERROR 

Fl ag byte. The bits are set to 1 to indi- FEFIBL 
cate the following or are not used, 

FIBL 

Bit 0-3 always zero FILMSK 

4 1 if neither INPUT, nor OUTPUT, FLBYTE 

nor UPDATE and BACKWARDS FOLATA 

5 1 if PRINT FORMAT 

6 zero 

7 1 if INPUT, OUTPUT, or UPDATE is FORLI 

specified FORMSK 


If the INPUT option is present, bit 4 of GEASS3 
the flag byte is reset. If INPUT or OUTPUT 


is present, bit 7 of the flag byte is con- GEPUF 

verted. If PAGESIZE is present, bit 5 of 

the flag byte is set. GEPUMS 

GEVA 

After all bits have been set, the flag 
and test bytes must contain the same bit GEVAR 

configuration. Otherwise, an error message 
is written out. For the PAGESIZE expres- IIOKEY 

sion, an assignment statement is generated IJKMBS 
with a generated binary-fixed variable as 
left side. This is inserted into the PAGE- IJKMBL 
SIZE option and written out followed by the 
generated variable. This process is IJKMTT 

repeated for each file group. The state¬ 
ments are written out in the sequence the IJKMTS 

input became available with assignment 
statements possibly included. IJKMN 

IJKMJT 


DESCRIPTION OF ROUTINES 


IJKMVC 


No te: For the description of SKISTAT refer 

to phase C55. For the descriptions of the 
following routines, refer to phase C50: 

INPUT SKILI OUTTAB 

QUTPUT EOST GEVAO 

SKISTA ERROR OUTGEV 


S ymbols used in flow charts: 


ATBYTE 

AT2BYTE 

BLBYTE 

CHAR 

COMOMA 

CONBG 

CONTB 

COUNT 

COVAMS 

CUBL 

EDATTA 


Position of attribute byte in 
variable table entry 
Position of attribute byte in 
variable table entry 
Position of block number in 
variable table entry 
ED-KEY field with label name 
Routine for constructing move 
macro 

Begin of declared constants 
table 

Routine for constructing test 
byte 

Counter for format labels 
Mask for testing label con¬ 
stant 

Current block number 

End of declared variables 

table 


IJKPO 

IJKPH 

INBUF 

INPO 

INPUT 

INPUT 
I OMSK 
ISTKEY 

LABMSK 

LABYTE 

LC65,LC85 


LEDLM 

LEEL 

LEGEOS 

LEIN 

LELPAR 

LETEL 

LIBUF1 

LIBUF2 

LIBUF3 

MOMAC 


End of format label table 
End of input buffers+1 
End-of-statement key 
End-of-statement routine 
Error handling routine 
Routine for reading in 
appropriate file block 
File block area 
Mask for testing file name 
Flag byte position in EOS 
Format label table 
Routine for processing format 
statements 
Dummy format list 
Mask for setting flag byte 
for format statement 
Routine for generating 
assignment statements 
Routine for processing 
GET/PUT statement 
Mask for testing GET/PUT 
Routine for generating varia¬ 
bles 

Generated variable 
(reference) 

ED-key 

Begin of buffer area; entry 
in communication area 
Buffer length, entry in com¬ 
munication area 
Begin of TABTAB, entry in 
communication area 
Begin of table space, entry 
in communication area 
Interface move routine 
Job information bits 
(communication area) 

Variable counter, entry in 
communication area 
Interface output routine 
Interface routine for fetch¬ 
ing a new phase 
Begin of input buffers 
Input pointer 
Routine for filling input 
buffers 
Input Routine 
Mask for testing I/O bit 
Internal equal sign for 
assignment statement 
Mask for testing label varia¬ 
ble 

Position of attribute byte in 
variable table entry 
Position of C65 and of C85, 
skip bit in communication 
area 

Length of label macro 
Length of E-key element 
Length of end-of-statement 
key 

Length of internal name 
Left list paranthesis 
Length of two E-key elements 
Begin of second input buffer 
Begin of third input buffer 
Begin of fourth input buffer 
Move macro area 
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NAMBYTE 

NEWPH 

OPCLO 

OUBUF 
OUPO 
OUTPUT, 1 
OUTTAB 

OUTGEV 

POINAM 

PRINTMSK 

PUTMSK 

RILPAR 


Position of internal name in 
label macro 
Parameter for IJKPH 
Routine for processing 
OPEN/CLOSE statements 
Address of output buffer 
Output pointer 
Output routine 

Routine for writing out vari¬ 
able and constant table 
Routine that writes out gen¬ 
erated variable definitions 
Position of pointer name in 
variable table entry 
Mask for testing print files 
Mask for testing PUT 
Right list parenthesis 


SATBYTE 

SAVIO 

SBC65,SBC85 

SCAFO 

SEOS 

SKISTA 

SKISTAT1,2 

SKIDLI 

SKILI 

SKIEX3 

SKISTAT1 

STAKEY 

STBYTE 
STKELE 

STRBYTE 


Position of statement flag 
byte in statement identifier 
key 

Statement identifier save 
area 

Skip bit for IJXC65 and for 
IJXC85 in communication area 
Routine for scanning format 
list 

End-of-statement key save 
area 

Routine for skipping to EOS 
or end of buffer 
Routine for skipping and 
writing out statements 
Routine for skipping data 
list 

Routine for skipping lists 
Routine for skipping expres¬ 
sions 

Routine for skipping state¬ 
ments 

Area for building the entire 
statement key 

Statement flag byte save area 
Length of statement identifi¬ 
er key 

Position of attribute byte in 
variable table entry 


TBPO 

Pointer in table space 

TBYTE1 

Test byte 

TINPO,1 

1,2,3,4 Temporary input pointers 

TINP01 

Temporary input pointer 
pointing to begin of format 
labels 

TINP02 

Temporary input pointer 
pointing to end of statement 

TINP03 

Temporary input pointer 
pointing to begin of state¬ 
ment 

TINP04 

Temporary input pointer 
pointing to end of format 
labels 

VA.RBG 

Begin of declared variable 
table 

ZIAB18 

Entry in TABTAB for format 
label table 

ZTOUT 

Routine that writes onto 
table file (interface macro) 


Initialization and Scan — YU - YV 


The functions of this routine are the same 
as in phase C50. 


GEPUF — YX 

This routine causes the processing of GET 
and PUT statements. 

FORMAT — YY 

This subroutine processes FORMAT state¬ 
ments. 

SCAFO — YZ 


This routine checks the format lists of 
FORMAT and GET/PUT statements. In case of 
an error, an error message is written out 
and the scan proceeds. If an R format item 
is detected in a FORMAT statement, the 
routine returns to the initialization and 
scan routine, and the wrong FORMAT state¬ 
ment is deleted from the text string. 

OPCLO -- ZA 


This subroutine processes OPEN and CLOSE 
statements. 

CONTB — ZB 

The bits for INPUT, OUTPUT, UPDATE, BACK¬ 
WARDS, PRINT are set in the flag and test 
bytes according to the declaration. 

COMOM — ZC 

This routine causes a move macro for a file 
name parameter and a label variable in an R 
format item to be constructed, and an ED- 
key element with a new internal name in the 
text string to be inserted. The macro is 
written out onto the text output file. The 
new name is used as the name of the 
constant in the parameter list into which 
the argument — corresponding to the file 
name parameter or current value of the 
label variable — is moved at object time. 

The move macro has the following format: 

f - T - x - T -T- 1 

I F2 |Length=| X'76' |Operand 1|Operand 2 j 

I M6 | | I I 

L-X-X-X-X-J 

Input Parameter: 

RG points to the entry of the file name 
parameter or label variable in the delared 
variables table. 

SKIDLI — ZD 


A data list which may contain entire state¬ 
ments is skipped. 
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SKIEX3 — Z E 

The input pointer is set to the address 
behind an expression. An expression means 
a string of E- and F-key elements delimited 
by an end-of-statement key or by a right 
list parenthesis. 

Input Parameter: 

INPO points to the begin address of an 
expression. 

Output Parameters: 

INPO points to the end of an expression? 

RA - zero if end is EOS, or four if end is 
right list parenthesis. 

EO PH — ZF 

This routine is called after reaching an 
end-of-program key. First, the last gener¬ 
ated variables (their definitions) are 
written out followed by an end-of-statement 
key and the end-of-program key. If format 
labels appeared in the program, the last 
record of the format-label table is written 


out on the table file. The output buffer 
is written out on the text output file. 
Phase C65, C85, or D00 is called via the 
interface routine IJKPH depending on the 
skip bits in IJKMJT. 

GEASS3 — ZG 

In this routine, an assignment statement is 
generated. The statement identifier key is 
provided by RF; the prefix mask of the 
statement key is taken from the input 
statement in which the statement is gener¬ 
ated. The statement attribute table is 
that of the statement in which the state¬ 
ment is built. The statement body is a 
generated variable (GEVAR) , and IST-key, 
and the expression pointed to by TINPO 
(begin) and INPO (end + 1) . 

The generated variable is also written 
out after the end-of-statement key of the 
assignment statement. 

Input Parameter: 

RF - X 1 OE 1 , key for assignment statement. 
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PHAS E PL/IC65 (I/O S CAN IV) -- $A, $ B 


In this phase, all record-oriented I/O 
statements, i.e., READ, WRITE, LOCATE, and 
REWRITE and the DISPLAY statement are proc¬ 
essed. 

In the second byte of the statement 
identifier key, information about the spe¬ 
cial type of the statement is made availa¬ 
ble for the phases D75 and D80. The right¬ 
most four bits of the byte contain the 


following: 


X* 00' 

if 

READ SET 

X' 01 • 

if 

READ SET KEY 

X' 03' 

if 

READ INTO 

X* 04 * 

if 

READ INTO KEY 

X' 06' 

if 

REWRITE 

X' 07* 

if 

REWRITE FROM 

X' 08' 

if 

REWRITE FROM KEY 

X* 09' 

if 

WRITE FROM 

X' 0A' 

if 

WRITE FROM KEYFROM 

X' OB' 

if 

LOCATE SET 

X' OF' 

if 

DISPLAY 


The leftmost four bits contain the fol¬ 
lowing: 

0 for consecutive buffered files, 

1 for consecutive unbuffered files, 

2 for regional files. 

R ecord I/O Stateme nts — $ A 

All record-oriented I/O statements are 
processed in one routine. For the same 
option appearing in any statement, the same 
action is taken. 

The record variable is tested for valid¬ 
ity. If the variable in the SET option is 
subscripted, an assignment statement is 
generated. 


The FLAG byte contains the following: 

bit 0-1 if INPUT or UPDATE or UNBUFFERED 
without INPUT, OUTPUT, UPDATE 

2- 1 if DIRECT 

3- 1 if OUTPUT or DIRECT/UPDATE or 

UNBUFFERED without 
INPUT/OUTPUT/UPDATE 

4- 1 if BUFFERED OUTPUT 

5- 1 if UPDATE 

6- 1 if KEY/KEYFROM 

7- 1 if FROM/INTO 

The condition code resulting from the 
instruction TM FLAG, TEST must be 1. 

Displ ay_( General) — $B 

In the DISPLAY statement, for an expression 
other than a single, unsubscripted variable 
that needs no conversion or other than 
constant, an assignment statement is gener¬ 
ated. In addition, for a subscriped name 
in the REPLY option, if present, an assign¬ 
ment statement is generated. 

The statements are written out in the 
sequence the input became available, i.e., 
with assignment statements included. 

DESCRIPTION OF ROUTINES 

Note: The routine SKISTAT is described in 

phase C55; the following routines are des¬ 
cribed in phase C50: 

SKIEX SKILI ERROR 

INPUT EOST OUTGEV 

OUTPUr COMOMAO OUTTAB 

SKISTA 

Symmb o ls used in flow charts: 


For the KEY/KEYFROM expression, an 
assignment statement is also generated. 

The statements are written out with the 
options in a fixed order and with included 
assignment statements, if any. 

During processing, a FLAG and a TEST 
byte are constructed depending on the file 
declaration and the format of the state¬ 
ment. 

The TEST byte contains the following: 

bit 0-1 if READ 

2- 1 if KEY/KEYFROM 

3- 1 if WRITE 

4- 1 if LOCATE 

5- 1 if REWRITE 

6- 1 if DIRECT 

7- 1 if DIRECT 


ATBYTE 

Relative position of attribute 
byte in variable table entry 

AT2BYTE 

Relative position of second 
attribute byte in variable 
table entry 

CKREVA 

Routine for checking record 
variable for validity 

CONBG 

Begin of declared constant 
table 

CONTBR 

Routine for setting test and 
flag bits appropriate to the 
file 

COUNT 

Field for constructing second 
half of statement identifier 
flag 

CSTRMSK 

Mask for testing character 
string 

CSTMSK 

Mask for constructing charac¬ 
ter string 
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EDATTA 

End of declared variable table 

ENDBUF 

End of input buffers*1 

EOST 

End-of-statement routine 

EOS 

End-of-statement key 

ERROR 

Error handling routine 

FEFIBL 

Routine for reading file block 
from table file 

FIBL 

File block area 

FILMSK 

Mask for testing file 

FLAG,2 

Flag byte 

GEASSR,1,2 

Routine for generating assign¬ 
ment statements 

GENVAR 

Generated variable 

GEVARE 

Routine for generating varia¬ 
bles 

GEVAR 

Generated variable reference 

IJKMBS 

Begin of buffer area, entry in 
communication area 

IJKMBL 

Buffer length, entry in com¬ 
munication area 

IJKMTS 

Begin of table area, entry in 
communication area 

IJKMN 

Move routine interface 

IJKMVC 

Variable counter in communi¬ 
cation region 

IJKPO 

Interface routine for writing 
onto the text output file 

IJKMJT 

Job control bits, communi¬ 
cation area 

IJKPH 

Interface routine for fetching 
a new phase 

INBUF 

Begin of input buffer 

INFRAD 

Holds begin of INTO/FROM 

INPO 

Input pointer 

INPUT 

Input routine 

ISTKEY 

Internal equal sign for 
assignment statement 

KELEN 

Length of E-key 

KEYAD 

Holds begin of KEY/KEYFROM 
option 

KEYTAD 

Holds begin of KEYTO option 

LC85 

Position of C85, skip bit in 
IJKMJT 

LEEL 

Length of E-key element 

LEGEOS 

Length of end-of-statement key 

LENGTHV1 

Intermediate length of GENVAD 

LENGTHS 

Maximum length of GENVAD 

LEPAR 

Left parenthesis 

LETEL 

Length of two E-key elements 

LIBUF1 

Begin of second input buffer 

LIBUF2 

Begin of third input buffer 

LIBUF3 

Begin of fourth input buffer 

MOMAC 

Area for constructing move 
macro 

N 

New internal name 

NATBYTE 

Relative position of attribute 
byte in variable table entry 

NEWPH 

Parameter for IJKPH 

OTSEKT 

Routine for writing out SET 
and KEYTO option 

OUBUF 

Address of output buffer 

OUPO 

Output pointer 

OUTGEV 

Routine for writing out gener¬ 
ated variable definitions 

OUTPUT,1,2,3 

Entries in output routines 

OUTTAB 

Routine for writing out 
declared variable and constant 
table 


PICBII Mask for testing numeric 

fields 

POIMSK Mask for constructing pointer 

PTMSK Mask for testing pointer 

REW Parameter for IJKPH 

RILPAR Right list parenthesis element 

RIPAR Right parenthesis element 

SAVIO Statement-identifier key save 

area 

SBC85 Skip bit for C85 

SEOS EOS save area 

SETAD Holds begin of SET 

SETID Area for constructing the 

assignment statement key 
SKISTAT2 Routine for skipping state¬ 

ments 

SKISTA Routine for skipping to EOS or 

end of buffer 

SKILI Routine for skipping lists 

SKIEX Routine for skipping expres¬ 

sions 

STKELE Length of statement identifier 

key 

STRSAV 1-6 Save areas for generated vari¬ 

able and expression for con¬ 
structing assignment statement 
STRBYTE Offset of file identification 

byte in variable table entry 
SWITCH Parameter for IJKPH 

TBPO Declared variable and constant 

table pointer 
TEBYTE Test byte 

TINPO,1,2,3,5Temporary input pointers 
VARBG Begin of declared variable 

table 


Initi a lization, Scan — $C , $D 

The functions of this routine are the same 
as in phase C50. 

Record-Oriented -I/O Routine — $E - $G 
See section Record I/O Statements . 

CKREVA -- $H 


This routine tests the record variable for 
validity* The record variable must not 
have the attribute DEFINED, and must not be 
a parameter, nor an entry name; the record 
variable must be a level 1 variable. 
Structures must begin on double-word boun¬ 
daries . The length of the record variable 
must not be greater than the block size of 
the appropriate file. If the appropriate 
file has variable length records, the 
length of the record variable divided by 8 
must yield a remainder of four. 

If the appropriate file has fixed-length 
records, the length of the record variable 
must be equal to record size. 

Input Parameters: 

INPO must point to the record variable. 

FIBL contains the appropriate file block. 
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O TSEKT — $1 

In this routine, the SET and the KEYTO 
option parameter are written out. 

If the variable is subscripted, a varia¬ 
ble with the same attributes is generated 
except the storage class which is static. 
This generated variable is written out as 
option parameter. The position of the 
original variable and the generated varia¬ 
ble are saved and used to construct an 
assignment statement at the end of the 
statement. 

Input Parameter: 

RG: if four, routine entered from SET 
option; 

if eight, routine entered from KEYTO 
option. 


C ONTBR — $ J 

In this routine, all bits in the TEST and 
FLAG byte and in the first half of the 
statement-identifier flag byte are set 
according to the appropriate file declara¬ 
tion. 

Input Parameter: 

FIBL contains the appropriate file block. 
Output Parameters: 

Some bits in TEST, FLAG, and SAVIO. 


D ISPLAY — $K 

See section Displa y_(Ge neral) . 


GEVARE — $L 

In this routine, both the generated varia¬ 
ble definition (GENVAD) and the generated 
variable reference (GENVAR) are created. 

If the name field in GENVAD is zero, an 
internal name is fetched from the variable 
counter in the communication region and 
inserted into GENVAD and GENVAR. If RG is 
zero, the variable created earlier is writ¬ 
ten out at the beginning of the routine and 
the variable just being created is written 
out at the end of the routine. Otherwise, 
the same internal name is used. Thus, the 
same amount of storage will be used for 
these variables. The length is updated to 
hold the greatest value of all variables. 

GENVAD has the attributes character 
string and static. The attributes of GEN¬ 
VAR are specified by RG. 

Input Parameter: 

RG if zero or eight, a character string is 
generated, the length of which is speci¬ 


fied in KEYLEN 

if four, a pointer is generated. 


The output parameters GENVAR and GENVAD 
have the following format: 

r-T-T-T-T-T-T-T- 1 

I lint. || || || | 

|E4|Name |E4|Attr.|E4|Prec.|E4|Zero | 

L-X_X_X_X_X_X_X_J 

GENVAR 

r - T -- T -T-T-T-T-T-T-1 

I I lint. | | | | | | | 

j FO j Length|Name j 00 j 80|00|10|08|00 j 

L_X_X_X_X_X_X_X_X_J 

GENVAD 

The part of GENVAD beginning with Inter¬ 
nal Name is repeated as often as needed 
with the internal name = zero. 


GEASS R , GEASSR1 and 2 — $M 

In this routine, an assignment statement is 
generated. The prefix mask of this state¬ 
ment key is taken from the input statement 
in which the assignment statement is gener¬ 
ated. The statement attribute table is 
taken from the input statement in which the 
assignment statement is built. 

The statement body for GEASSR consists 
of a generated variable contained in GEN¬ 
VAR, an IST-key, and an expression pointed 
to by TINPO and INPO. In GEASSR2, the 
order of the generated variable and the 
expression is changed. 

In GEASSR 1, the statement body consists 
of an expression pointed to by either 
STRSAV3 and STRSAV2, or STRSAV6 and STRAV5, 
respectively, an IST-key, and a generated 
variable, located in either STRSAV1 or 
STRSAV4. 

At the beginning and at the end of the 
statement, an EOS is generated which is 
that of the processed statement and which 
must be correct. The first EOS written out 
by GEASSR1 has the I/O bit inserted. 


EOPH — $N 

This routine is called when an end-of- 
program key is reached. First, the last 
generated variables, i.e., their 
definitions, are written out followed by an 
end-of-statement key and the end-of-program 
key. The output buffer is written out on 
the text output file. 

Phase C85 or C95 is called via the 
interface routine IJKPH as determined by 
IJKMJr. 
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PH A.SE PL/IC85 (DO STATEMENT I) — $0 


This phase is called if the source program 
contains DO, GET, or PUT statements. It 
replaces certain DO statements and END (of 
group) statements with macros and other 
statements, which are then processed in a 
subsequent phase. 

The DO statements processed in this 
phase are of the following form: 


1 . 


DO scalar = Cl TO C2; 

DO scalar = Cl TO C2 WHILE 
(expression^ ; 

DO scalar = Cl TO C2 BY C3; 

DO scalar = Cl TO C2 BY C3 WHILE 

(expression^ ; 

DO scalar = Cl BY C3 TO C2; 

DO scalar = Cl BY C3 TO C2 WHILE 

(expression^ ; 


Cl, C2, C3 must be constants (either 
binary fixed or decimal fixed with 
scale factor 0) . The scalar must be 
binary fixed. The decimal fixed con¬ 
stants are converted to binary fixed to 
minimize object time conversions. 


beginning or ending of a DO Head, no 
statement body is required. The format 
of these two statements is as follows: 


Byte ( s) Contents 


1 statement identifier key X'EO' 
2-3 X'0001' for Begin of DO Head 

X'0101' for End of DO Head 
4-6 not relevant 

7 EOS key X'EA* 

8-12 not relevant 


• The Define Label macro. 


• The Branch macro, and 

• Generated label constants. 

(For details, see description of phase 
C25 .) 


Generated temporaries (generated variables 
with unknown attributes) are used to hold 
the 'frozen* values of expression 1 and 
expression 2 (see PL/I Language 
Specifications ) . 


2. DO scalar = expression 1 TO expression 
2 BY C3; 

DO scalar = expression 1 TO expression 
2 BY C3 WHILE 
(expression4) ; 

C3 must be an (optionally signed) 
arithmetic constant. 

The END (of group) statements processed 
in this phase are those associated to DO 
statements listed above. 

Ph ase Input and Output 

The input is a string of 3-byte elements 
and/or elements of variable length. 

The output is similar to the input, 
except that macros and new statements 
replace DO statements and END (of group) 
statements. Substituted statements and 
macros are: 

• The IFFALSE statement generated when a 
TO and/or WHILE occurs in a specifi¬ 
cation. (See description of phase C25 
for more details.) 

• The Begin of DO-Head statement, and the 
End of DO Head statement. These two 
statements indicate that all statements 
and macros included by them belong to 
one DO-Head. Since the only function of 
these statements is to indicate the 


These temporaries are not defined by 
macros like generated labels and generated 
label variables, but solely by their occu¬ 
rence in a statement referencing them. 
Storage for these temporaries is assigned 
in subsequent phases. The format of gener¬ 
ated temporaries is as follows: 

Byte (s) Contents 

1 key X'E8* for generated temporar¬ 

ies 

2-3 X'OOOO' for expression 1 (IT in 

examples) 

X'OOOC* for expression 2 (2T in 

examples) 

Examples for Input/Output of Phase C85 

Legend to the examples: 

State m ents (as opposed to macros) have 
statement identifiers consisting of capital 
letters (for instance: IFFALSE, SET, READ 
etc.) 

Macro s are identified by lower case letters 
(for instance: define label, branch etc.) 

Generated labels are written like 1L, 2L, 

3L etc. 

Note: The input as well as the output is a 

string of 3-byte elements and/or elements 
of variable length. 
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1. DO I=C1 TO C2; 

( : 

alpha 


END; 


2. DO I=C1 TO C2 
WHILE ex4; 


alpha 


END; 


3. DO I=C1 TO C2 
BY C3; 

alpha 

< : 

END; 


4. DO I=C1 TO C2 
BY C3 
WHILE ex4; 

alpha 


END; 


5. DO I=ex1 TO ex2 
BY C3; 

alpha 



END; 


BEGIN OF DO-HEAD; 
SET I=C1; 
branch 1L 
define label 2L 
SET 1=1+1; 
define label 1L 
IFFALSE 3L I<=C2; 
END OF DO-HEAD; 

alpha 

branch 2L 
define label 3L 

BEGIN OF DO-HEAD; 
SET I=C1; 
branch 1L 
define label 2L 
SET 1=1+1; 
define label 1L 
IFFALSE 3L I<=C2; 
IFFALSE 3L ex4; 

END OF DO-HEAD; 

alpha 

branch 2L 
define label 3L 

BEGIN OF DO-HEAD; 
SET I=C1; 
branch 1L 
define label 2L 
SET I=I+C3; 
define label 1L 
IFFALSE 3L I<=C2;* 
END OF DO-HEAD; 

alpha 

• 

branch 2L 
define label 3L 

BEGIN OF DO-HEAD; 
SET I=C1 
branch 1L 
define label 2L 
SET I=I+C3; 
define label 1L 

IFFALSE 3L ex4; 

END OF DO-HEAD; 

alpha 

branch 2L 
define label 3L 

BEGIN OF DO-HEAD; 
SET 1T=ex1; 

SET 2T=ex2; 

SET I=1T; 
branch 1L 
define label 2L 
SET I=I+C3; 
define label 1L 
IFFALSE 3L I<=2T;* 


6. DO I=ex1 TO ex2 
BY C3 

WHILE (ex4) ; 
alpha 

END; 
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END OF DO-HEAD; 

alpha 

branch 2L 
define label 3L 

BEGIN OF DO-HEAD; 
SET lT=ex1; 

SET 2T=ex2; 

SET I=1T; 
branch 1L 
define label 2L 
SET I=I+C3; 
define label 1L 
IFFALSE 3L I<=2T;* 
IFFALSE 3L (ex4) ; 
END OF DO-HEAD; 

alpha 

branch 2L 
define label 3L 


STACK (with pointer STAP) consists of 15 
elements, each 1 byte long. A=1 in 
such an element means that the asso¬ 
ciated DO statement has been proc¬ 
essed and that the current END (of 
group) statement must be processed. 
A=0 means: bypass this statement. 


*If C3 is positive, I <= C2 is used. 
If C3 is negative, I >= C2 is used. 


The input stream is scanned for DO state¬ 
ments and END (of group) statements. All 
other statements are bypassed and put out 
unchanged. If a DO statement is encoun¬ 
tered, the type of the statement is tested. 
If the statement is to be processed by this 
phase, a 1 is entered into STACK and the 
statement is processed. If the statement 
is to be bypassed, a 0 is entered into 
STACK. The pointer to STACK is incremented 
by 1. 

If an END (of group) statement is 
encountered, the pointer to STACK is decre¬ 
mented by 1, and the last entry in STACK is 
tested. If this entry is a 1, the state¬ 
ment is processed. If this entry is a 0, 
the statement is bypassed. 

The statement attribute tables of the 
statements processed in this phase are 
stored in the table space for later use. 

The appropriate table stored in the table 
space will be attached at the beginning of 
each statement. Note that the macros gen¬ 
erated in this phase are not prefixed by a 
table. 
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KELLER (with pointer KEP) consists of 1 5 
elements, each 1 word long. The 
first half-word of each element 
contains a 'start label*, the second 
half-word contains an 'exit label'. 
(A "start label" is the generated 
label 2L in I/O examples 1 to 4; an 
"exit label" is the generated label 
3L in I/O examples 1 to 4.) The 
information stored in this stack is 
used when processing END (of group) 
statements. 

PIN, IPOINT, POINT are input pointers 
POUT, OPOINT are output pointers 

DESCRIPTION OF ROUTINES 

(Open) A routine is called open if 

control is transferred to it 
by 

1. a simple B instruction, 
in which case control is 
also returned by a B 
instruction, or 

2. some in-line coding that 
requires a separate des¬ 
cription. 

(Closed) A routine is called closed if 

control is transferred to it 
by a BAL instruction. Con¬ 
trol is returned by a BR 
instruction in this case. 

RO, R1,.. Rn: symbolic registers. 

D OPH — $P 

This is the "master" routine of this phase. 
DOPH sets pointers, loads registers, etc. 
and reads the first 4 records into input 
buffers 1 to 4. 

DOPH scans and puts out the input stream 
until a specific DO statement or an asso¬ 
ciated END statement is encountered. In 
this case, the statement attribute table is 
stored in the table area. If DOPH encoun¬ 
tered a DO statement, ANDOST is called. 
ANEND is called if DOPH encountered an END 
(of group) statement. Before ANEND is 
called, the statement identifier END (of 
group) is replaced by the statement iden¬ 
tifier NOP. The scan continues until the 
end-of-program key is encountered. 

ANDOST (Open) — $Q - $S 

This routine processes specific DO state¬ 
ments. The code put out by this routine is 
described in the I/O examples. 


ANEND (Open) -- $T 

ANEND is called only if the associated DO 
statement has been processed in this phase. 
It decrements KEP by 4 and puts out the 
macros 

branch 'Start Label' 

define label 'Exit Label' 

'Start Label' is taken from 0 (KEP) . 

'Exit Label' is taken from 2 (KEP) • 

BSAC ( Open) — $T 

The routine stores the statement attribute 
table for variables and constants in the 
table area. 

BYPA ( Closed) — $U 


The routine stores either the statement 
attribute table for variables or the state¬ 
ment attribute table for constants in the 
table area. Upon exit, BSAC7 contains the 
address of the next unoccupied byte in the 
table area, the statement body begins in 
input buffer 1, and BSAC6 contains the 
address of the first byte of the attribute 
table for constants in the table space. 

COSC (Closed) — $V 


The routine determines whether an expres¬ 
sion in a DO statement consists of a sin¬ 
gle, optionally signed BINARY FIXED con¬ 
stant or of a DECIMAL FIXED constant with a 
scale factor of 0. If the expression is of 
any other type, COSC branches to UNSUC. If 
one of the above specified expressions is 
encountered, all prefix operators (+ and -) 

are reduced to one. Example: + - + 

results in -. 

If the expression is a BINARY FIXED 
constant, the corresponding attribute table 
entry is stored in ENTRI, PIN is increment¬ 
ed by 3, and the program returns. 

If the expression is a DECIMAL FIXED 
constant with a scale factor of 0, the 
expression is tested for being greater than 
2147483647 (= 2**31 -1). If yes, the 
program branches to UNSUC. If no, OLD is 
set to 1, the DECIMAL FIXED constant is 
converted to BINARY FIXED, a new attribute 
table entry is created in ENTRI, PIN is 
increased by 1, and the program returns. 
Upon return, PIN points to the next byte 
following the constant. 




If a DO statement contains errors or if ENDX (Closed) — $W 
the table space is not large enough to hold 
additional entries to the attribute table, 
the statement is passed on unchanged to the 
next phase. 
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EOST, JEOSA 1_(Closed) — $Y 

The routine arranges the contents of input 
buffers 1 to 4 so that the currently 
scanned EOS is in input buffer 1 (this is 
done by moving and by reading in new 
records). It puts out the EOS and the 
error codes attached to it. Any addition¬ 
ally generated error codes are also put 
out. 

E RROR, JERRA1 (Closed) — $X 

This routine is described in phase A35. 

GE OS (Closed) — $W 

The routine moves the input pointer PIN 
until the last byte of the statement body 
is reached. It stores the value of PIN in 
IFPH96. 

G SN (Open) -- $ W 

This routine checks for error-free state¬ 
ments. If the bit checked is on, the 
statement contains an error and the routine 
returns without any further action. If the 
bit is off, the end-of-statement delimiter 
is stored in GSN4 and the routine returns. 

JI RNA1 (Closed) — $Z 

This is the output routine. Register BYZ 
contains the number of bytes to be put out; 
register PIN contains the start address of 
these bytes. One output buffer is used. 

If the string to be put out fits into the 
remaining unoccupied space of the output 
buffer, the string is moved into the buf¬ 
fer. BYZ is added to POUT to update the 
output pointer. 


If the string to be put out it too big, 
an appropriate part of the string is moved 
to fill the output buffer to its capacity. 
Then the contents of the buffer are written 
onto the output medium. POUT is reset to 
the start address of the buffer. BYZ is 
decremented by the number of bytes moved 
into the buffer. PIN is incremented by 
that number. Then JTRNA1 is repeated until 
output is completely accomplished. 


LGEN (Closed) — $X 

LGEN generates a label constant of the 
following format: 

byte 0 key for generated label constant 
X' EE' 

bytes 1-2 number of the constant 

The number in bytes 1 and 2 of the label 
constant is obtained by adding 1 to the 
counter IJKMVC each time LGEN is called. 
Upon exit, the generated label constant is 
stored right justified in R1. 

IJKMVC is the "variable and constant 
counter" of the compiler. If its value 
exceeds 65534, an error is indicated. 

STEP (Closed) — $X 

STEP tests the high-order 4 bits of the 
byte selected by PIN. If these 4 bits are 
set to X* E 1 , PIN is incremented by 3. If 
these bits are set to X f F', PIN is incre¬ 
mented by the contents of the two bytes 
following the byte to which PIN is point¬ 
ing. If these bits are set to any other 
value, a compiler error occurrs and a dump 
is initiated. 
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This phase is called if the source program 
contains at least one DO, GET, or PUT 
statement. All DO and END (of group) 
statements, bypassed by the first DO phase, 
are now processed. 

Phase C86 performs the following func¬ 
tions: 

• It analyzes all DO nests, 

• replaces all DO statements and END (of 
group) statements by macros and other 
statements which are then processed by 
subsequent phases, and 

• checks whether the restrictions on the 
nesting of DO statements and on the 
number of repetitive specifications are 
obeyed. 

P hase Input and Output 

The input is a string of 3-byte elements 
and/or elements of variable length. The 
c omplet e DO or END (of group) statement 
body must be available in the input buf¬ 
fers. 

The output is similar to the input, 
except that macros and new statements are 
substituted for DO and END (of group) 
statements. The following new statements 
may be substituted: 

• The IFFALSE statement. 

This statement is generated whenever a 
TO or WHILE occurs in a specification. 
IFFALSE is discussed in a subsequent 
section of this publication. 

• The "begin of DO head" statement. 

• The "end of DO head" statement. 

These two statements indicate that all 
statements and macros included by them 
are associated and thus belong to one 
"DO head". These statements require no 
statement body, because they only signal 
the beginning or ending of a "DO head". 
The format of these statements is as 
described in phase C85. 

• Assignment statement with special oper¬ 
ands . 

If a DO statement contains more than 1 
repetitive specification, an assignment 
statement as shown below is generated. 
The only difference between a label 
assignment written by a programmer and 
one generated by the DO phase is that in 
the generated label assignment two oper¬ 


PHASE PL/IC86 (DO STATEMENT II) — Z9 


ands are followed by the 3-byte element 
X'EE000 9' or X*EE0069*. The format of 
the assignment statement is as follows: 

Byte (s) Contents 

1-3 statement identifier X'EOOOOE' 
4-6 not relevant 

7 key X'EE' for generated label 

8-9 name of generated label 

10-12 X*EE0009' indicating a generated 
label variable 

13-15 3-byte element "=": X'E200FB' 

16 key X'EE' for generated label 

17-18 name of generated label constant 

19-20 X'EE0069' indicating a generated 

label constant 

22-27 EOS delimiter X'EA....' 

• The 'Define Label' macro 

• The 'Branch' macro 

• The 'DO-Branch' macro 

This macro is generated if a DO state¬ 
ment contains more than one repetitive 
specification. The 'DO-branch' macro 
initiates a branch to the address con¬ 
tained in the generated label variable 
nV. The format of this macro is as 
foilows: 

By t e (s) Contents 

1 macro key X'F2' 

2- 3 length of macro 

4 X'81' for DO branch 

5 X'E4' for generated label variab 
6- 7 name of generated label variable 
8-10 not relevant 

• Generated label constants. 

• Generated label variables. 

The label variables are used to hold the 
values of generated label constants. To 
allocate storage (8 bytes for 1 generat¬ 
ed label variable) , the macro 'Define 
Generated Variable' is generated as 
follows: 

Byte (s) Contents 

I key X'FO' for "define generated 
label variable" 

2- 3 length (overall) 

4- 5 name of generated label variable 

6-10 attributes of the generated 

label variable (arranged as in 
the statement attribute table) 

II bits 0-1: level number 
bits 2-7: block number 
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• Generated temporaries (i.e. generated 
variables with unknown attributes) . 

These temporaries are used to hold the 
"frozen" values of expression 1, expres¬ 
sion 2 and expression 3 (see PL/I La ngu 
age Specifications , Form C28-6809. Gen¬ 
erated temporaries are not defined by 
special macros like generated labels and 
generated label variables. They are 
defined only by their occurrence in a 
statement referencing them. Storage for 
generated temporaries is assigned in 
later phases. The format of the gener¬ 
ated temporaries is as follows: 

Byte (s) Conten ts 

1 key X 9 E8 1 

2 X'OO* 

3 X•00' for expression 1 
examples) 

X'OC* for expression 2 
examples) 

X'18' for expression 3 
examples) 

• Specification separator. 

Specification separators are used to 
separate 2 repetitive specifications and 
consist of 2 macros as shown below: 

X'FDOOOaES' macro 1 
X'FD0004D5' macro 2 

E xamples for t h e I np ut to the DO Phase and 

t he Produced Outpu t 

Legend to the examples: 

• Statements have statement identifiers 
consisting of capital letters ,e.g., 
IFFALSE, SET, READ etc. 

• Macros are identified by lower case 
letters, e.g. r define label, branch, 
etc. 

• Generated l a bel s are of the form 1L, 2L, 
3L, etc. 

• Generated l a bel vari abl es are written 
like IV, 2V, etc. 

• Gen e rated temporaries (variables with 
unknown attributes) are of the form IT, 
2T, 3T. 


(IT in 
(2T in 
(3T in 


END; 

2. DO I=exl; 
alpha 
END; 

3. DO WHILE ex4; 
alpha 

END; 

4. DO I=ex1 
WHILE ex4; 

alpha 

END; 

5. DO'I=ex1 
BY ex3; 

alpha 

END; 


6. DO I=ex1 
BY ex3 
WHILE ex4; 


alpha 


END; 


Note that in reality the input as well as 
the output is a string of 3-byte elements 
and/or elements of variable length. 


Input 

Output 

7. DO I=ex1 
TO ex2; 

DO; 

BEGIN OF DO-HEAD? 

alpha 

• 

NOP? 

. 

. 

END OF DO-HEAD 


alpha 

• 

• 


• 

END; 


alpha 


BEGIN OF DO-HEAD 
SET I=exl; 

END OF DO-HEAD 

alpha 


BEGIN OF DO-HEAD 
define label 1L 
IFFALSE 2L ex4; 
END OF DO-HEAD; 
alpha 
branch 1L 
define label 2L 

BEGIN OF DO-HEAD; 
SET I=ex1; 


IFFALSE 1L ex4; 
END OF DO-HEAD; 

alpha 

define label 1L 

BEGIN OF DO-HEAD; 
SET lT=ex1; 

SET 3T=ex3; 

SET 1=1T; 
branch 1L 
define label 2L 
SET I=I+3T; 
define label 1L 
END OF DO-HEAD; 

alpha 

branch 2L 

BEGIN OF DO-HEAD; 
SET 1T=ex1; 

SET 3T=ex3; 

SET I=1T; 
branch 1L 
define label 2L 
SET I=I+3T; 
define label 1L 
IFFALSE 3L ex4 ; 
END OF DO-HEAD; 

alpha 

branch 2L 
define label 3L 

BEGIN OF DO-HEAD; 
SET lT=ex1; 

SET 2T=ex2? 

SET I=1T; 
branch 1L 
define label 2L 
SET 1=1+1; 
define label 1L 
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IFFALSE 3L I<=2T; 
END OF DO-HEAD; 

alpha 

branch 2L 
define label 3L 


8, DO I=ex1 
TO ex2 
WHILE ex4; 


alpha 


END; 


BEGIN OF DO-HEAD; 
SET 1T=exT; 

SET 2T=ex2; 

SET 1=1T; 
branch 1L 
define label 2L 
SET 1=1+1; 
define label 1L 
IFFA.LSE 3L I<=2T; 
IFFALSE 3L ex4; 
END OF DO-HEAD; 

alpha 

branch 2L 
define label 3L 


9. DO I=ex1 
TO ex2 
BY ex3 

alpha 


END; 


BEGIN OF DO-HEAD; 
SET 1T=ex1; 

SET 2T=ex2; 

SET 3T=ex3; 

SET 1=1T; 
branch 1L 
define label 2L 
SET I=I+3T; 
define label 1L 
IFFALSE 3L (3T>=0) S 
(I<=2T) | (3T<0) & 
(I>=2T) ; 

END OF DO-HEAD; 


alpha 

branch 2L 
define label 3L 


10. DO I=ex1 
TO ex2 
BY ex3 
WHILE ex4; 


alpha 

END; 


BEGIN OF DO-HEAD; 
SET 1T=ex1; 

SET 2T=ex2; 

SET 3T=ex3; 

SET 1=1T; 
branch 1L 
define label 2L 
SET I=I+3T; 
define label 1L 
IFFALSE 3L (3T>=0) S 
(I<=2T) | (3T<0) S 
(I>=2T) ; 

IFFALSE 3L ex4; 

END OF DO-HEAD; 

alpha 

branch 2L 
define label 3L 


11. DO I=ex1, 
ex2, ex3; 


BEGIN OF DO-HEAD; 
define IV 
SET 1V=1L; 

SET I=ex1; 


alpha branch 2L 

. define label 1L 

. specification separator 

END; SET 1V=3L; 

SET I=ex2; 
branch 4L 
define label 3L 
specification separator 
SET 1V=5L; 

SET I=ex3; 
branch 6L 
define label 6L 
define label 4L 
define label 2L 
END OF DO-HEAD; 

alpha 

DO-branch IV 
define label 5L 

BEGIN OF DO-HEAD; 
define IV 
SET 1V=1L; 

SET lT=ex1; 

SET 2T=ex2; 

SET 3T=ex3; 

SET I=1T; 
branch 3L 
define label 1L 
SET 1=I+3T; 
define label 3L 
IFFALSE 2L (3T>=0) 6 
(I<=2T) | (3T<0) £ 
(I>=2T) ; 
branch 4L 
define label 2L 
specification separator 
SET 1 V=5L; 

SET lT=ex4; 

SET 2T=ex5; 

SET 3T=ex6; 

SET I=1T; 
branch 7L 
define label 5L 
SET I=I+3T 
define label 7L 
IFFALSE 6L (3T>=0) S 
(I<=2T) | (3T<0) & 
(I>=2T) ; 
branch 8L 
define label 8L 
define label 4L 
END OF DO-HEAD; 

alpha 

DO-branch IV 
define label 6L 

FUNCTIONAL DESCRIPTION 

The input stream is scanned for DO and END 
(of DO group) statements. All other state¬ 
ments are bypassed and put out unchanged. 

If a DO statement is encountered, its 
statement attribute table and its constant 
table is stored in the table storage for 


12. DO I=ex1 

TO ex2 BY ex3 
ex4 TO ex5 
BY ex6; 


alpha 


END; 
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later use. The DO statement is analyzed 
and statements and/or macros are put out, 
depending on the structure of the DO state¬ 
ment (see examples) . The attribute and 
constant tables are added to each generated 
statement. Macros generated in this phase 
are not prefixed by these tables. 

If an END (of DO group) statement is 
encountered, the type of code being gener¬ 
ated depends on the structure of the cor¬ 
responding DO statement. The required 
information is stored in 5 push-down 
stacks. The two stacks AND 05 and AND06 
have a capacity of one element per level. 
The remaining three (ANDO1, ANDO2, and 
AND03) have a capacity of more than one 
element per level. In each push-down 
stack, the element size is one half-word. 
The stack pointers are the symbolic reg¬ 
isters R 6 and R7. 

ANDO 1 

(stack pointer R7) contains 'start labels'. 
(In examples 5 to 10, '2L' is a start 
label) . 

ANDO 2 

(stack pointer R7) contains 'exit labels'. 
An exit label is the generated label of a 
statement to which control is transferred 
after the execution of the DO group has 
been terminated. (In examples 6 to 10, 

'3L' is an exit label.) 

AND03 

(stack pointer R7) contains "G-labels". 
G-labels are generated only if the DO 
statement contains more than one specifi¬ 
cation. A G-label is a generated label to 
which a branch is directed when the state¬ 
ments representing one specification have 
been executed. (In example 12, '4L' and 

* 8 L' are G-labels.) 

AND05 

(stack pointer R 6 ) contains generated label 
variables. (In examples 11 and 12, "IV" is 
a generated label variable.) 

AND06 

(stack pointer R 6 ) is used to store the 
number of specifications per DO statement. 

PIN, IPOINT, POINT are input pointers 
(symbolic registers) ; POUT, OPOINT are 
output pointers (symbolic registers) . 


DESCRIPTION OF ROUTINES 

(Open) A routine is called open if 

control is transferred to it 
by 

1. a simple B instruction, 
in which case control is 
also returned by a B 
instruction, or 


2 . some in-line coding that 
requires a separate des¬ 
cription. 

(Closed) A routine is called closed if 

control is transferred to it 
by a BAL instruction. Con¬ 
trol is returned by a BR 
instruction in this case. 

R1, R2,... are symbolic registers. 


DOPH — AA 


This is the "master program" of this phase. 
DOPH initializes pointers, registers, etc. 
and reads the first 4 records into input 
buffers 1, 2, 3, and 4. It scans and puts 
out the input stream. If a DO or END (of 
group) statement is encountered, the state¬ 
ment attribute table is stored in the Table 
Area. ANDO is called if a DO statement has 
been encountered, or ANEN if an END (of 
group) statement occurred. (See descrip¬ 
tion of ANDO and ANEN .) Before ANDO is 
called, a 'Begin of DO head' statement is 
put out. Before ANEN is called, the state¬ 
ment identifier END (of group) is replaced 
by the statement identifier NOP. 

The scan is continued until the end-of- 
program key is encountered. 


ANDO — AB, AC, AD (Open) 


Analyzes and processes DO statements. If 
the DO statement contains errors, a NOP 
statement is put out, EOST is called, and 
control returns to DOPH which continues the 
scan. 

If the DO statement is correct, a series 
of macros and statements is generated (see 
examples) . The attribute table stored in 
the table area is attached to each 
generated statement. 

Error messages are produced if the DO 
nest is deeper than 12 , and if there are 
more than 50 specifications in one DO nest. 


ANEN — AE (Open) 


Puts out macros and statements, depending 
on the structure of the corresponding DO 
statement. (See examples.) 

BSAC -- AG (Open) 

This routine stores the statement attribute 
table and the statement constant table in 
the table area. 
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B YBY — AO (Closed) 

This routine is called only if the specifi¬ 
cation contains a BY. It generates the 
following: 

SET 3T = expression 3; 

SET SCALAR = IT; 

branch NL 

define label ML 

SET SCALAR = SCALAR + 3T; 

define label NL 

BY PA — AH (Closed) 

Stores either the statement attribute table 
for variables or the statement attribute 
table for constants in the Table Area. 

CJpon exit, BSAC7 contains the address of 
the next free byte in the Table Area, and 
the statement body begins in input buffer 
1 . 

CO N — AK (Closed) 

CON may be considered as an entry to LGEN. 

Generates a 'name* for constant 0 or 1 and 
puts it into R1. The 'name* is a 3-byte 
element. The first byte of this element 
contains X'E9 f ; the subsequent two bytes 
contain the number of the constant. 

Retrievement of the constant number is 
discussed in the description of LGEN . 

E RROR, JERRA1 — AS (Closed) 

This routine is described in phase A35. 

EOS T, J EQSA1 — AR (Closed) 

Arranges the contents of input buffers 1 to 
4. The currently scanned EOS is moved to 
input buffer 1. This is accomplished by 
moving and by reading in new records. Puts 
out EOS and the error codes attached to it. 
Any additionally generated error codes are 
also put out. 

GE OS — AI (Closed) 

Moves the input pointer PIN until the last 
byte of the statement body is reached. 
Stores the value of PIN in IFPH96. 

GS N — AJ (Open ) 

This routine is described in phase C85. 

INC1 — AL (Closed) 

INC1 is called only if the specification 
contains a TO clause but not a BY clause. 

It generates the following: 

SET scalar = IT; 
branch nL 


define label mL 
SET scalar = Scalar + 1; 
define label nL 
IFFALSE oL scalar < = 2T; 

Generates an entry for the constant 1 in 
the statement attribute table for con¬ 
stants . 


JTRNA1 — A Q (Closed) 

Output routine. Register BYZ contains the 
number of bytes to be put out, register PIN 
the starting address. One output buffer is 
used. 

If the (remaining portion of the) string 
to be put out fits into the remaining unoc¬ 
cupied space of the output buffer, the 
string is moved into this space. BYZ is 
added to POUT to update the output pointer. 

If the string to be put out is too big, 
the output buffer is filled to capacity by 
a part of the string, and the contents of 
the buffer are written onto the output 
medium. POUT is reset to the start address 
of the buffer. BYZ is reduced by the num¬ 
ber of bytes moved into the buffer. PIN is 
incremented by that number. Then JTRNA1 is 
repeated until the output is completely 
accomplished. 

KRAFT — AM (Closed) 

Puts out: SET Scalar = IT; 
branch nL 
define label mL 

LGEN — A K (Closed) 

Generates a label constant of the following 
format: 

byte 0 X•EE', key for generated label 
constant 

bytes 1-2 number 

The number in bytes 2 and 3 of the con¬ 
stant is obtained by adding 1 to the coun¬ 
ter IJKMVC each time the routine is called. 
Upon exit, the generated label constant is 
stored right-justified in R1. IJKMVC is 
the "variable and constant counter" of the 
compiler. If the value of IJKMVC exceeds 
65534, an error is indicated. 

LVGE -- AK (Closed) 

LVGE may be considered as an entry to LGEN. 

The routine generates a label variable of 
the following format: 

byte 0 X 1 E4 1 , key for generated label 
variable 

bytes 1-2 number 
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The number in bytes 2 and 3 of the label 
variable is obtained by adding 1 to the 
counter IJKMVC each time the routine is 
called. Upon exit, the generated label 
variable is stored right-justified in R1« 
IJKMVC is the "variable and constant 
counter" of the compiler. If the value of 
IJKMVC exceeds 65534, an error is indicat¬ 
ed . 

ST EP — AF (Closed) 

The high-order 4 bits of the byte pointed 
to by PIN are tested. If these bits con¬ 
tain X' E' , PIN is incremented by 3. If 
they contain X'F*, PIN is incremented by 
the contents of the two bytes following 
next. If these bits contain any other 


value, a compiler error has occurred and a 
dump is initiated. 


TTS1 — AP (Closed) 

Puts an entry for the decimal fixed con¬ 
stant 1 into the statement attribute table 
for constants. If no available space is 
found in this table, an error message is 
given and the processing of the current 
statement is terminated. 

WHY — AN (Close d) 

Called only if a WHILE appears in a speci¬ 
fication. The routine puts out IFFALSE mL 
expression4 ; 




Phase PL/IC86 


159 




PL/I PLM 8 


IBM Confidential 


PHASE PL/IC95 (NEW INTERFACE) — AV 




This phase initiates the new interface used 
by the phases D00, D05, and DIO. This 
interface has only some of the capabilities 
of the main interface (see phase A00) and, 
therefore, is shorter. The storage saved 
is used by the phases using this interface. 

Both the old interface, which is located 
after the register save area and pointed to 
by register 12, and the LIOCS table for 
SYS001 are written on SYS001 and replaced 
by the new interface. 

All items of the communication region 
which are used by phases D00, D05, and DIO 
are saved in the communication region of 
the new interface. 

The new interface uses an automatic 
end-of-file branch on the text work files. 
Therefore, the address of the end-of-file 
routine of the new interface is inserted 
into the LIOCS tables. 

Phase D00 is called by the EOPH routine 
of the new interface. An end-of-file indi¬ 
cator is written on the current text output 
work file and the functions of the input 
and output work files are switched. 


LE : 

NEOFAD : 

EOFADD : 

EOFADT : 
DUMPSA.VE: 

IJKMVC : 

IJKMNN : 


IJKMBL : 

IJKMN : 
NINTL : 
INTBE3 : 
TABLE : 

EOPH : 


Length of area written 
Address of new end-of-file rou¬ 
tine 

Relative address of end-of-file 
entry in LIOCS table for disk 
and for tape work files 
Save area for old end-of-file 
address 

Variable counter, entry in old 

communication region 

Name of address constant for 

origin of compilation, entry in 

old communication region 

Block length on text work files, 

entry in old communication region 

Move routine of old interface 

Length of new interface 

Begin of new interface 

Begin of communication region in 

new interface 

End-of-phase routine in new 
interface. 


NEW INTERFACE 

Only three routines are provided by the new 
interface. A fourth entry is used inter¬ 
nally for handling the end-of-file condi¬ 
tion. 


Symbols used in fl ow chart s: 


IJKMJT : 

TEXTIN : 

TEXTOUT : 

KSYS001 : 
KSYS002 2 
KSYS003 2 
ZTOUT 2 

TASAVA 2 
ZTAB07 2 

IJKWT 2 
T 2 

IJKMTT 2 

TABLEM 2 
NOTEF 2 

POINTW 2 
BEGINT 2 
WRITEI 2 

ENDINT 2 
TABLEN 2 
INTTABEN2 

AR 2 


Job communication bytes (old 
interface) 

Contains address of text input 
work file table 

Contains address of text output 
work file table 

Contains information on IJSYS01, 
IJSYS02, and 

IJSYS03 in old interface 
Subroutine for reading table 
records 

Area for saving the SYS001 table 
TABTAB entry for DS table (not 
used at this point) 

Wait routine in old interface 
SYS001 

Begin of TABTAB, entry in old 
communication region 
Contains address of SYS001 table 
Area for building NOTE/POINT 
information 

LIOCS macro instruction 

Begin of old interface 

Begin of LIOCS write macro 

instruction 

End of old interface 

Length of LIOCS table 

Begin of communication region in 

new interface 

Begin and 


As in the old interface, the interphase 
linkage is established by a DSECT in the 
phases and with register 12 as base reg¬ 
ister. 

Read/Write — AW 


Only a non-overlapped input/output on the 
text work files is provided, the same macro 
area is used for both. Therefore, the 
command code must be stored in the 
READ/WRITE macro instruction. Register 1 
is set to text input or text output before 
entering the common part. Prior to execut¬ 
ing the READ macro instruction, the READ 
routine checks whether the end-of-file was 
reached and returns if this condition 
occurs. The length of the area to be read 
is inserted into the READ/WRITE macro 
instruction in the READ routine only 
because a READ always precedes a WRITE. It 
must be inserted because the EOPH routine 
may modify this parameter. After the 
read/write macro a check macro is given for 
the respective medium. 

The calling sequence is: 

LA 1,area 

BAL 14,READ/WRITE 

where area is the input or output area. 
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E OPH — AW 

The end-of-phase routine writes an end-of- 
file indicator on the current output work 
file. This is done for tape work files by 
giving a control macro instruction and for 
disk work files by using the write routine 
with the length parameter zero. The end- 
of-file indicator is set to zero, the text 
work files are reset to their beginning by 
POINTS macro instructions, and the 
functions of the text input and output work 
files are switched. At the end, a load 
macro instruction is given with the new 
phase name and a branch to register 1. 

The calling sequence is: 

L 1,=C* DXXb* 

BAL 14,EOPH 

where DXX is the suffix of the phase name 
to be called. 

E OF — A W 

This routine sets the end-of-file indicator 
on. It is automatically entered when an 
end-of-file indicator on the input work 
file is detected. 

C ommunication R egi on 

The entries IJKMVC, IJKMNN, IJKMBL, and 
IJKMWC are the same as in the old inter¬ 
face. 


IJKMJT has a length of only two bytes. 
The first 12 bits have the same meaning as 
in the old interface, bits 12-15 have the 
following meaning: 


bit 

12 

= 0: 

tape work files 



= 1: 

disk work files 

bit 

13 

= 1: 

GOTO library routine must be 
called 

bit 

14 

= 1: 

built-in functions in current 
compilation 


ADLIBI is one word of the library usage 
bytes matching bytes 5 through 8 of IJKMLB. 


Symbo l s used in flow charts : 


EOFIND 

CHECK 

TEXTI 

REWR 

INTTAB 

READ/ 

WRITE 

SAVOl 

TEXTOU 

PHASEN 

CNTRL 

CCWOFF 

POINTS 

LOAD 


End-of-file indicator 
LIOCS macro 

Holds address of text input work 
file table 

Area of read/write macro 
Begin of communication region 

LIOCS macros 

Register 1 save area 

Holds address of text output work 

file table 

Phase name area 

LIOCS control macro 

Offset in module where CCW chain 

bit is set into table 

LIOCS macro 

DOS/TOS macro 
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GENERAL DESCRIPTION OF PL/I PHASES D00 - Dll 


These phases process the following state¬ 
ments: 


PROCEDURE 

BEGIN 

END (PROCEDURE) 
END (BEGIN) 

CALL 


GOTO EXPRESSION 
ENTRY IF 

RETURN CALL OVERLAY 
NOP CALL DYNDUMP 
SET 


If conversion is required, the appropri¬ 
ate macro instructions are generated. The 
subscripted variables, fixed- and floating¬ 
point registers, and the working storage 
required during execution are determined 
and optimized. Note that DO loops have 
been replaced by assignment and IF state¬ 
ments during the phases C85 and C86. The 
compound statement IF was expanded to sim¬ 
ple statements in phase C25. 


INPUT 

Phases D00 - Dll are fetched after the 
first I/O scan (phases C50 - C65) and the 
phases decomposing the DO and IF state¬ 
ments. The input is the program string, 
which consists of statement bodies preceded 
by the statement key and the attributes of 
the variables and constants contained ther¬ 
ein. 


The statement body is followed by the 
corresponding EOS key and flags for the 
errors detected during previous phases. 
Label macro instructions and generated 
variable definitions may also appear in the 
program string but not inside the statement 
body. 


An expression statement is generated 
during the I/O scan 1 (phases C50 - C65) to 
allow the evaluation of expressions con¬ 
tained in these statements. 

The phases DOO - Dll use similar main, 
error handling, initialization, and data 
manipulation routines and the same I/O 
concept. 


The program string input or output con¬ 
sists of syntactical units that can be 
identified according to the preceding key, 
which may be X'Fn*, XEn* , X'On', or X*In', 
where n is a hexadecimal digit in the range 
from 0 to F. The keys and their meaning in 
the input string for the phases DOO - Dll 
are shown in Figures 1 through 3. 
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I I-level number 

1 block number 

' -not used in D-phases 

-statement number 

error masks 




reference to built-in function 


I/O intermediate key 


• name of generated label constant 


reference to generated label constant 



not available 

generated variable declaration 
not available 


table of constants 

table of declared variables 

not available 

constant in format statement 
e nd of program string. 


Figure 1. Input for Phase D00 (Part 2 of 2) 
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S I - number of embracing block 

*-current block number 

-prefix mask 

statement identifier 



name Imodifierl 


reference to declared variables 


Attribute 2 
'Attribute 1 


-operation 

-number of operands 





-statement operation 

number of operands 


picture offset 



statements operations 


■y- - -v- 

L U 


-not used 

name of WS1** 

-block number 

-level number 

initial value for working storage** 


on byte boundary 
on double-word boundary 





-not used 

number of arguments 


ip 


-current array number 

number of subscripts 


Figure 2. Input for Phase D05 (Part 1 of 4) 


define initial value for working 
storage of block 


name of 

WS2** 



evaluate subscript 
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E7 

name 

offset 

00 


: 

[i 

[7 

[7 

, 


-Attribute 2 


m 

register 

0050 


i 

i 

D 

a 

a 

HHli 


picture offset 


indirect reference (array assignment) 


tL 


reference to returned value 


Attribute 2 


picture offset 


E8 00 


1 - X^*, X'C 1 , X'}8' 


reference to variable with unkown 
attributes 


E9 


similar to El (17 bytes) 


] 


the constant j \ itself as in prestatement (22 bytes) ^ 


EA 

□ 

□ 

□ 

□ 

□ 




end of statement 


•statement number 
block number 
level number 
"not used in D05 


-error mask 




EB 


error message 


■error number 


EC 




reference to built-in functions 


name of built-in function 
number of available arguments 


ED similar to declared variable 




reference to character string constant 


EE and EF are not available. 


c 


Figure 2. Input for Phase D05 (Part 2 of 4) 
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( 


FO 


generated variable declaration 


FI 00 03 


UNSPEC function 


F2 


macro instruction 


F3 00 03 


string function 


F4 00 03 


UNSPEC pseudo variable 


EI 


00 03 


string pseudo variable 


F6 


assembler macro instruction 


F7 


not interesting program string 


FB 00 03 


array function argument (ALL ,ANY 
PROD, SUM) 


F9 


not available 


EC 


00 I 03 


array function argument (target) 
(PROD, SUM) 


fb|oo 


03 


array function argument (target) 
(ALL, ANY) 


FC 

FD 

FE 

FF 

00 to IF 


function reference (array function) 
DO separator 
not available 
end of program 

is array name and have the same 
format as X*E1'._ 


Figure 2. Input for Phase D05 (Part 3 of 4) 


Phases D00-D11 (General) 167 
























PL/I PLM 8 


IBM Confidential 


STATEMENT IDENTIFIER OPERATIONS 


E3 nn 03 



Where nn Is the number of operands 


Figure 2. Input for Phase D05 (Part 4 of 4) 
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E0 

□ 

□ 

□ 

□ 

□ 


L 


no embracing block 
no actual block 


-prefix 


-statement identification 


-X'OO' or X* FF* 


statement identifier 


operand of macros and functions 


18 bytes 


K may be: X 1 El' 

X'E7* 

X* E8* 

X*EF*, 

for detail see In put for the Routine PREMAC in phase DIO 


E3 


end of block 


m 


■ 

■ 

1 

1 

m 

□ 


n 

□ 

m 

G 

G 


*—block number 

— level number 

name c 

-not used 


define initial value for working 
storage of block 


I—name of WSl 
initial value for working storage 


WSl is the name for the working storage on double word boundary and 
WS2 is the name for the working storage on byte boundary. 


m 

■ 





premacros 


of operands following the E5 key 


HE 


1L 


•40 bytes 


constants 


for details see In put for the Routine PREMAC in phase DIO 


Figure 3, Input for Phase DIO (Part 1 of 2) 
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L—number of operands following the EC key 



for details see In put for the Routine PREMAC in phase DIO 



FF 



17 


end of statement 


error indicator 


function call 


'operands(s) to be requested 
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The attributes of variables and constants 
are packed into one byte as X'mn'. The 
meanings of m and n are shown in Figure 4. 


r-r- 

| m | Attributes* 


h 


Scalar variable without picture 
Scalar variable with picture 
Array without picture 
Array with picture 

ENTRY name or function name without 
picture 

Function name with picture 

Constant 

Format label 


H 


♦The high-order bit of the half-byte m is 
1 in case of controlled variables. Oth¬ 
erwise it is 0. 


h 




n j Attributes 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 
A 
B 
C 
D 
E 
F 


Binary float 
Binary fixed 
decimal float 
Decimal fixed 
Zoned decimal 
Zoned decimal (T) 
CS aligned 
BS aligned 
Sterling 
Label 
Pointer 
BS packed 
Major structure 
Minor structure 
Free 
File 


COMMON SERVICE ROUTINES 

The service routines shared by phases 
D00-D11 are briefly described in the 
following. 

Saver — DA 


This routine dynamically saves the rela¬ 
tive return address of a subroutine in an 
automatic save area. Base register BASE 1 
always points to this save routine. The 
link register LINK is assumed to contain 
the return address to be saved when the 
routine is entered. Upon return from the 
routine, LINK contains the computed rela¬ 
tive address that was saved. The routine 
is called as follows: 

BALR R4,SAVER 

SAVER, which always contains the return 
address (entry of XXXX), is equated with 
BASE1 . 

RETURN — DB 


This routine is used to dynamically 
return to the calling routine. It fetch¬ 
es the return address from the automatic 
save area and modifies the corresponding 
pointer by decreasing it by 2. The 
return routine is called as follows: 

BCR CON,RETURNER 

where CON is any condition code. RETUR¬ 
NER, which always contains the address of 
the entry point of the RETURN routine, is 
equated with BASE2• 


Figure 4. Format of Attribute Byte 


ERROR — DE 


Phases D00 - Dll fetch the input ele¬ 
ment by element and call the appropriate 
action according to the switch table 
EFACTION (32 bytes) . The actions are 
numbered from 0 - 31. ACTIONn refers to 
the key X'En* (or X*F(n-16) 1 if n greater 
than 16. The switch table contains the 
displacement of the actions 0-31 rela¬ 
tive to the origin action divided by 2. 
Division by 2 is performed in order to 
make each displacement fit into one byte. 
Each action corresponds to a routine to 
be activated if the respective key is 
detected in the input stream. The FETCH 
routine fetches the address of the action 
to be taken and stores it in RIO. 

Since the routines may be recursively 
activated, the return addresses are 
dynamically saved and restored. The 
principle of push-down store is extended 
by coupling it with the chain and list¬ 
processing technique to facilitate 
optimizing the use of registers and work¬ 
ing storage. 


The error routine is activated by: 

BAL LINK,ERROR 
DC X'mmnn 1 

where nn is the error number and mm is 
the severity code. The routine skips the 
statement in error up to the end of the 
statement and inserts the error into the 
text after the statement end. 

ADMVC — DF 

This routine generates names used during 
compilation. The routine fetches the 
current name from the communication area 
IJKMVC and loads it into register 0. An 
error is indicated if the name fetched is 
0 , i.e., if the number of names is great¬ 
er than 32K-1. If the name fetching is 
successful, IJKMVC is incremented by one. 
No arguments are required. The routine 
is called as follows: 

BAL LINK,ADMVC 
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Data Manipulation Routines — A3 

A general move routine MOVE is provided 
to move data between storage, work files, 
and table area. This routine is activat¬ 
ed by one of six routines that pass the 
required parameters for source and tar¬ 
get. The names and functions of these 
routines are given in Figure 5. New 
routines may be provided for additional 
requirements. The general instruction 
sequence of the routines listed in Figure 
5 is as follows: 


BALR 

R4,SAVER 

saves 

return address 

BAL 

RZ,MOVE 

calls 

MOVE routine 

DC 

AL2 (LS-Z) 



DC 

AL2 (LT-Z) 



DC 

X'1RS2RTRS1RT2' 


DC 

AL1 (AX-A1) 



DC 

AL1 (AY-A1) 




r-T-T-T-T-1 

I from| | | | 

|To | Input Output) Table | Storage| 

F-1-+-+-+-1 

jInput j MOVEII - | I I 

(Output j MOVE10 - j MOVETO) MOVESO j 

j Table j MOVEIT j | j 

jStorage j MOVEIS - j | | 

L-X_X_J_X_J 

Figure 5. Names and Functions of Data 
Manipulation Routines 

Definition of parameters: 

Z name of parameter list 
LS currently available source length 
LT currently available target length 
RS register containing source address 
RT register containing target address 
AX action to be taken if source length 
has been exhausted (can be A1 or A4) 

AY action to be taken if length of target 
has been exhausted 
A1 (can be A2 or A3) 

A1 origin of A-action routines. 

The general move routine assumes that RZ 
points to Z. 

Parameters used in the different MOVE 
routines. 

MOVEIT 

Z is VIT 

LS is IL currently available input 
length 

LT is TL currently available table 
length 

RS is 6 register containing input 
address 

RT is 8 register containing table 
address 

AX is A1 read input 

AY is A3 load new table pointer to RY 


MOVET O 
Z is VTO 

LS is TL currently available table 
length 

LT is OL currently available output 
length 

RS is 8 register containing table 
address 

RT is 7 register containing output 
address 

AX is A4 load new table pointer to RX 

AY is A2 write output 

MOVETO 

Z is VIO 

LS is IL currently available input 
length 

LT is OL currently available output 
length 

RS is 6 register containing input 
address 

RT is 7 register containing output 
address 

AX is A1 read input 

AY is A2 write output 

MOVEII 

Z is VII 

LS is IL currently available length of 
input 

LT is IL currently available length of 
input 

RS is 6 register containing input 
address 

RT is 6 register containing input 
address 

AX is A1 read input 

AY is A3 load new table pointer to RY 
MOVES O 
Z is VSO 

LS is TL currently available table or 
storage length 

LT is OL currently available output 
length 

RS is 1 register containing storage 
address 

RT is 7 register containing output 
address 

AX is A4 load new table pointer to RX 

AY is A2 Write output 

MOVEI S 

Z is VIS 

LS is IL currently available input 
length 

LT is TL currently available table or 
storage length 

RS is 6 register containing input 
address 

RT is 1 register containing storage 
address 

AX is A1 read input 

AY is A3 load new table pointer to RY. 
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Actions Taken in MOVE: A1,A2,A3,A4 -- A 4 

Routine A1. This routine is activated if 
the length available in the current input 
buffer is exhausted. One record is read 
and the length available for the input 
buffer as well as the corresponding input 
pointer PIN are initialized. 

Routine A2. This routine is activated if 
the length of the output buffer is 
exhausted. The following actions are 
performed: 

1. One record is put out; 

2. The available length and the output 
pointer are initialized; 

3. The routine waits for completion of 
the output operation. 

Routine A3. This routine is called if the 
table area is full. The initial value 
X 1 7FFF’ is moved into the corresponding 
target length. 

Routine A4. This routine differs from A3 
only in that it moves the initial value 
X'7FFF* into the source length. 


ACTION 31 

This routine is called if the end of the 
program is detected in the input stream. 
It terminates the current phase and calls 
the next phase. 


BUFFER CONCEPT AND PHASE LAYOUT 

The read and write buffers (one of each) 
are located in adjacent storage areas (see 
Figure 6) . The first record of the string 
to be processed is read into L2 of the 
read buffer and then scanned accordingly. 
If the beginning of L4 is detected, the 
contents of L4 are moved into LI and the 
next record of the string to be processed 
is read into L2 in non-overlapped mode. 

The pointer is set to the beginning of LI, 
and scanning is continued. This process 
is repeated until the entire string has 
been processed. For the write buffer, the 
procedure is the same. 

This buffer concept eliminates the 
necessity for using the NOTE and POINT 
macro instructions. 



BUFFER AREA- 



L1 - secondary read buffer 1 

L2 - read buffer 

L4 - secondary read buffer 2 

L5 - secondary write buffer 1 
L6 - write buffer 
L7 - secondary write buffer 2 


length differs from phase to phase, but is fixed in each phase 
length depends on available storage 
same as for LI 

same as for LI 
same as for L2 
same as for LI 


LI = L4 (may be zero) 

L5 = L7 (may be zero) 

Figure 6. Buffer Organization 
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PHASE PL/IDO Q (STATEMENT DECOMPOSITION) — AZ, BA 


This phase performs the following major 
functions: 

1. It reorders the input stream in rev¬ 
erse polish notation, 

2. It decomposes the array and structure 
assignments. 

3. It generates the prologue macro 
instructions. 

4. It processes and deletes the prestate¬ 
ment. 

The input stream consists of state¬ 
ments , each statement being preceded by 
its corresponding prestatement and fol¬ 
lowed by the end of statement. The input 
stream may be considered as a continuous 
number of syntactical units, each unit 
being defined by its first byte (key). 

This key may be X*En* or X'Fn*. Depending 
on the key found, one of a group of rou¬ 
tines (named ACTIONO through ACTI0N31, 
i.e., ACTIONn for key X'En* or ACTION 
(n+16) for key X'Fn*) is activated. 

The output is similar to the input, 
except that some of the syntactical units 
have a different format and meaning. 

The table and work areas, which are 
preceded by the area occupied by the I/O 
buffers, are dynamically allocated. 

O perator Prior i tie s 

The operators that may appear in a PL/I 
source program are ordered by relative 
priority, the lowest priority being zero. 
Within statements, operations with a high¬ 
er priority are performed before opera¬ 
tions with a lower priority preceding 
them. Expressions and assignment state¬ 
ments are evaluated from left to right. 
Exceptions are exponentiation, negation, 
prefix plus, and prefix NOT (logical NOT) , 
which are evaluated from right to left. 

The operations that may appear in a PL/I 
source program and the corresponding 
priorities are listed in Figure 1. 


DESCRIPTION OF ROUTINES 

N ote: the following routines are des¬ 

cribed in the section General D escription 
of Phases POP - Dl l. 

ADMVC MOVESO MOVEIT 

ERROR MOVETO SAVER 


Symbols used in flow charts : 

PIN -input pointer 

TP -table pointer 

SP -stack pointer 

INP -priority of input element 

STP -priority of element on top of 
stack 

SORG -Stack origin 
STRORG -structure origin 

Fetch — BC 


The routine computes the length of the 
current element in the input stream and 
loads the address of the appropriate 
action into registers RL and RIO, respec¬ 
tively. It uses the current value of the 
input pointer PIN as argument and the 
table ACTION as switch table for the indi¬ 
vidual actions. If the current element 
has an F-key, the length is fetched from 
the two bytes following the key. Other¬ 
wise, the length is computed from LETAB. 
The routine is activated as follows: 

BAL LINK,FETCH 
Initl — BB 


This routine is used to initialize the 
stack pointer and the table pointer. 

ACTIONO — BD 


This routine is activated when a statement 
identifier is detected in the input 
stream. The stack and table pointers are 
initialized after checking the necessity 
for output from the table area. If the 
statement is a DO header or DO trailer, it 
is replaced by X , F20004D5* or X'F20004E5', 
respectively. If the statement is a CALL 
statement replacing a BEGIN statement, it 
is put out unchanged. In all other cases, 
the statement is checked to determine 
whether it is one of the statements to be 
processed by the phases D00 through D20. 
These statements have the internal rep¬ 
resentation X , E00002' through X'EOOOIO'. 

If the current statement is one of these 
statements, switch SW1 is set to X'FF*. 
Otherwise, it is set to X*00'. 

ACTION 1, 3, 4, 6, 8, 9, 30 

This routine is called when a variable 
name is detected. It moves the current 
input element into the table area. 
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f —f 
0 
1 
2 

3 

4 

5 

6 

7 

8 


Delimiter 


Internal 
Repres entation 


Priority 
in String 


Type of 
Operation 


-H 


Built-in bracket 
Entry bracket 
Subscripted variable 
Prologue ( 

) 


bracket 


Comma 


E200E3 

E200E4 

E200E5 

E200E6 

E200E7 

E200E8 


Operand dependent 
Operand dependent 
Operand dependent 


10 

11 

12 

13 

14 

15 

16 

17 

18 


E203EA 

E204EB 

E205EC 


3 

4 

5 


String 

fBit 

Bit 


< 

> 

<= 

>= 


E207ED 

E207EE 

E207EF 

E207F0 

E207F1 

E207F2 


f — + 

19 

20 
21 

22 

23 

24 


Comparison 

Comparison 

Comparison 

Comparison 

Comparison 

Comparison 


-H 


l~-f 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 


infix + 
infix - 
* 

/ 

prefix + 
prefix - 


E208F3 

E208F4 

E209F5 

E209F6 

E20AF7 

E20AF8 


8 

8 

9 

9 

1 1 
11 


Arithmetic 

Arithmetic 

Arithmetic 

Arithmetic 

Arithmetic 

Arithmetic 


** 

statement identifier 

PROCEDURE 

BEGIN 

END (PROCEDURE) 

END (BEGIN) 

CALL 

GOTO 

ENTRY 

RETURN 

NOP 

SET 

EXPRESSION 

IF 

OVERLAY 

DYNDUMP 


E20AF9 
E2OAFA 
EOOOmn 
E0 0005 
E0 0006 
E0 0007 
E0 0008 
E0 0009 
E0000A 
E0000B 
E0000C 
E0000D 
E0000E 
E0000F 
E00010 
E0 0004 
E0 0003 


11 

11 


Bit 

Arithmetic 

Any 


Any 

Label 

Any 

Any 

Any 

Any 

Bit 

Character 

Any 


Figure 1, Operations and Corresponding Priorities 


A ction5, 7, 13, 15, 17, 21-28 

These routines are not available because 
the corresponding keys cannot occur in the 
text string. 

A CTION2 — BF 

This routine processes the delimiters in 
the input stream and sets the delimiter 
switch CUR to X•FF 1 • If the input is an 
equal sign, the routine returns after 
setting CUR to X'FF*. If the input is any 
delimiter other than open parenthesis, 
close parenthesis, or comma, the input 


priority is compared with the priority of 
the element on top of the stack. If it is 
higher, the current input element is 
stacked, the stack pointer SP is decreased 
by 3, and the routine is left. Otherwise, 
the element on top of the stack is moved 
to the table. Both the stack and the 
table pointer are then incremented by 3. 


The routine continues processing by 
comparing the input priority with the 
priority of the new element on top of the 
stack. 
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If the input element is a (, the pre¬ 
vious element is checked to determine 
whether it is a delimiter. If it is a 
delimiter (PREV switch is X f FF•) , the ( is 
stacked. If it is not (PREV switch is 
X 1 00 *) , a list parenthesis (X'E200E5) is 
stacked. 

If the input element is a comma, the 
elements in the stack are unstacked until 
a ( or a comma is found. 

If the input element is a ) , the list 
counter is set to 1 and the delimiter in 
the stack is checked. The following 
actions are taken depending on the element 
found: 

1. If the stacked element is a comma, the 
list counter is increased by 1. 

2. If the stacked element is a (, both 
parentheses are deleted and the rou¬ 
tine is left. 

3. If the stacked element is a list 
parentheses, the counter value is 
stored in the second byte, the paren¬ 
thesis in the stack is unstacked, and 
the routine is left. 

A CTI0N10 — BE 

This routine is activated if the end of 
statement is detected in the input stream. 
If the statement contains error (s) with a 
severity code other than tf, the entire 
statement is skipped. The end of state¬ 
ment is put out together with the corres¬ 
ponding error message (s) . Otherwise, 
control is transferred to STATEN. 

AC TI0N1 1 

The error in the input stream is put out 
unchanged. 

A CTI0N1 4 

The delimiter switch CUR is set to X'FF'. 
Processing is as in ACTION 1. 

A CTI0N16, 18, 29 

The delimiter switch CUR is set to X'FF' 
and the element is moved to the output 
medium. 

A CTION1 9 

Pointer TP is loaded with the origin of 
the constant table in the prestatement. 

A CTI0N2 0 

If the current statement is not an expres¬ 
sion, the element is moved to the table 
area. Otherwise, the delimiter switch CUR 


is set to X'FF* and the element is moved 
to the table area. 


CHECK O UT — B B 

This routine checks for elements in the 
table area that must be moved into the 
output buffer. 


STATE N — BG 

This routine is called by ACTIONIO if an 
end of statement is detected in the input 
stream. It determines whether the source 
program contains arrays or structures. 
PUTOUT is called if neither is present. 

If the current statement is an assign¬ 
ment statement and the source program 
contains arrays and/or structures, the 
statement is checked for array or struc¬ 
ture assignment. Depending on the type of 
statement, either ARROUT or STROUT is 
called to put out the statement. 

AC 1 - AC6 

After the statement end has been found in 
routine STATEN, the information stored in 
the table area is scanned again, element 
by element. For the individual text ele¬ 
ments (keys EO - EF) one of the routines 
AC1 through AC6 is called. Table T1 
(Figure 2) gives the routine called for 
the corresponding key. 

r-r-1 


Key 

i 

JL 

Routine 

EO 

T 

1 

AC 6 

El 

1 

AC 2 

E2 

1 

AC1 

E3 

1 

AC3 

E4 

1 

AC3 

E5 

1 

AC5 

E6 

1 

AC 5 

E7 

1 

AC 5 

E8 

1 

AC 3 

E9 

1 

AC3 

EA 

1 

AC 4 

EB 

1 

AC 5 

EC 

1 

AC3 

ED 

1 

AC 5 

EE 

1 

AC 3 

EF 

I 

AC3 


U -JL- J 

Figure 2. Format of Table T1 
AC1 — BR 

This routine is called for delimiters. If 
the delimiter indicates an array, a struc¬ 
ture, or a mixed array and structure 
expression, one of the routines ARRAY, 
CHAIN, or ARRCH is called. 
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AC2 -- BQ 

This routine is called for declared varia¬ 
bles. 

A C 3 -- BQ 

This routine is called for operands that 
are not declared variables. The stack 
pointer is decreased by 4. 

A C 4 — BQ 

This routine is called if the end of 
statement is detected again. One of the 
routines DYNDUMP, ARROUT, STROUT, or 
PUTOUT is called. 

AC5 

This routine is not available since the 
corresponding element cannot occur. 

AC 6 — BR 

This routine is called for a statement 
identifier. It is identical with part of 

AC 1. 

C HECKSP — BB 

This routine modifies and checks the stack 
pointer. Error 142 is indicated if a 
stack overflow occurs. 

ARROUT 

This routine puts out the array assignment 
statement and the corresponding header and 
trailer macros. PUTOUT is called. 

STROUT 

This routine puts out the structure 
assignment statements. PQTOUT and ARROUT 
may be called several times to put out the 
Statement after it has been modified. 

A RRAY, ARRAY Oj — BS 

This routine is called by AC1 or STROUT to 
process an array operand. If the operand 
was previously used, no action is 
required. The array is compared with 
other arrays in the statement, if any, for 
identical number of elements. 

C HAIN —BS 

This routine is called by AC1 for process¬ 
ing structure operands. 

ARRCH 

This routine is called when mixed array 
and structure expressions are found in 
AC1• The routine consists of a call of 
the error routine ERROR. 


LENGTH — BU 

The routine computes the internal length 
(in bytes) of a variable or constant. In 
case of arrays, the length of the element 
is computed. 


PUTOU T — BH 

When this routine is entered, the state¬ 
ment being checked is contained in the 
table area in reverse Polish notation. It 
is preceded by the corresponding attribute 
table and followed by the end-of- 
statement. The statement attribute table 
is used only to fetch the attributes of 
the variables and constants that appear in 
the source text. 

The routine scans the statement body 
element by element and activates the 
appropriate action (one of the routines EO 
through EF) via the switch table TAB10. 
Routine En refers to key En. 

If a prologue is required, one of the 
routines E005, E006, or E00B is called. 

The appropriate routine is selected as 
described in EO. 

EO — BI 

This routine processes the "operation" 
statement identifier. One of the subrou¬ 
tines E003 - E010 is called. Routine EOnn 
refers to the text element EOOOnn, which 
represents the statement shown in Figure 
1 . 

E003, E004, E00A, E00E, EQOF, E010 — BI 

The library bit is set to 1, if required, 
and the 3-byte operation is put out. 

EO05, E006, E00B — BJ 

These routines generate the prologue 
macros. An additional branch around the 
prologue is generated for ENTRY state¬ 
ments. 

E00C -- BI 

If a RETURN statement returns a function 
value, an assignment X , 3020E* and a cor¬ 
responding return macro are put out. In 
all other cases, only the return macro is 
put out. 

E007 — B I 

A return macro is put out for the end of 
block. X•E00007' is also put out. 

E00D 

The element is skipped. 
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E009 — BI 


If the CALL statement has no arguments, 
the corresponding CALL macro is generated. 
Otherwise, the number of arguments is 
retrieved from the previous element 
(function bracket) and inserted in the 
second byte of X , E0nn09'. 

El — B L 


The routine constructs and puts out the 
12-byte element by calling EIGEN and MOVE- 
SO. 

EIGEN — BK 


In the 12-byte field 0, the routine con¬ 
structs the operand to be put out. TP 
points to the operand in the statement 
body. After return from E1 GEN, field 0 
contains the following information: 


B ytes Conten ts 

0-2 name 

3-4 modifier 

5 storage class (attribute 1) 

6 data attributes (attribute 2) 

7 L = internal length in bytes 

8 p 

9 q 

10-11 offset of picture if numeric field 
E2 — B O 


The routine determines the number of oper¬ 
ands , inserts this number in the second 
byte of the delimiter and puts out 
X'E2nnkk•. 

E3 -- BM 


The routine puts out 12 bytes for 
character-string constants. Prior to 
output, the key is modified to ED. 

E4 — BN 


The routine puts out 12 bytes for generat¬ 
ed variables. 


E5 — BM 

The routine puts out a 12-byte operand for 
the indirect target for the RETURN state¬ 
ment. 


E6, E 7 , EB, ED 

Since the corresponding text elements 
cannot occur at this point, these routines 
are not available. 

E8 — BM 

The routine puts out X'E800xx' unchanged 
for variables with unknown attributes. 

E9 — BN 

A 12-byte operand is put out (in a format 
similar to a declared variable) for con¬ 
stants appearing in the statement body. 

The corresponding entry in the pres¬ 
tatement is also put out with the maximun 
possible length (22 bytes) . 

EA — BM 

The routine puts out the six bytes for the 
end of statement. 

EC — BM 

The routine puts out the function name 
(except for the NULL function) . In the 
latter case, the name for the NULL func¬ 
tion (12 bytes) is put out instead of the 
function name. 

EE — BM 

The routine constructs a 12-byte operand 
for a label constant or label variable. 

E F — BM 

The routine constructs and puts out 
12-byte operands for return values. If 
the RETURN statement refers to a main 
procedure, the ERROR routine is called. 

TESTN — BO 

This routine is called by E2 for checking 
the number of arguments. ERROR is called 
for any number other than 3. 
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This phase: 

1. determines the required conversions. 
The type of conversion depends on the 
operation and on the data types of the 
operands given. 


2. determines the resulting precision 
after conversion. 


3. determines the resulting precision of 
each operation. 

4. determines the macro keys for the 
operations. The macro key depends on 
the operation and the data type of the 
operand after execution of the 
required conversions described under 
item 1. An operation may be one of 
the following: 

a. Built-in function 

b. Statement identifier 

c. Subscript evaluation 

d. Function call 

e. String operation 

f. Arithmetic operation 

5. constructs intermediate macro instruc¬ 
tions. 

6. determines the necessity of working 
storage fixed-point and floating-point 
registers. 

7. determines the type of operands 
(fixed-point register, floating-point 
register, working storage, etc.) . 

This is machine dependent. 

The tables and work areas are 
dynamically allocated (push-down technique 
is used }• The I/O buffers are located in 
front of the dynamic area. 


P hase Input and Output 

The input stream is already ordered in 
reverse Polish notation. It consists of 
syntactical units that can be identified 
by the first byte of each element, which 
may be X # En' or X'Fn 1 , where n is a hexa¬ 
decimal digit from 0 to F. One of the 
actions 0 - 31 is activated depending on 
the key found. 

The output is similar to the input, 
only that some of the syntactical units 
have different formats and meanings. 


DESCRIPTION OF ROUTINES 
MAIN - - D J 

The main routine initializes the stack and 
table pointers (SP and TP) , activates the 
skip routine, fetches the program string 
element by element, and calls the corres¬ 
ponding action (ACTIONO to ACTI0N31) . 
ACTION (n) refers to key X'EO'+n. 

FETCH -- DP 

The routine computes the length of the 
current element in the input stream and 
loads the address of the corresponding 
action into register RIO. When the key n 
is detected, the address of 
ACTION (n-X *E0 ') is loaded. If the current 
input element undicates an array, ACTI0N1 
is prepared to be called. 

CHECKSP -- DJ 

The routine fetches an 18-byte entry into 
the stack. The fetched entry is cleared 
and overlap of the table (constant stack) 
and the variable stack is checked. Error 
142 is given in case of stack overflow. 

ACTION O_( Begin of Statement) -- DK 

This action is called When an EO-element 
is detected in the input string. The 
stack and table pointers are initialized, 
and the 6-byte input element is moved from 
input to output. 

ACTI0 N 1, 7, 13 — DK 

The routine is called when a constant or 
variable is fetched. The routine stacks 
the input element together with the cor¬ 
responding attributes. CHECKSP is called 
to get and clear an 18-byte stack entry. 

ACTIO N 2 (Operation) — DK 

The routine is called when an operation is 
detected. The routine branches to the 
EXPONENT routine if the detected operation 
is an exponentation. Otherwise, the 
address of the switch table (T20 - X^A') 
is loaded into register R5. The output 
switch is set to X'E4 f and the routine 
branches to ACTIONCO which is common for 
functions and operations. 

ACTI0N3 — DL 

This routine is called if a statement 
identifier is detected in the input 
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string. Using byte 2 of the input string 
as a switch, this action activates the 
corresponding routine (E302 - E310) for 
each statement. Routine E3nn refers to 
the input element E300nn. The switch 
table ACTTAB3 (15 bytes) is used for this 
purpose. Each byte of this table contains 
the displacement of the corresponding 
routine divided by 2. Division by 2 is 
performed to make the displacement fit 
into one byte. 


A CTI0N4 (Define Initial Value for Working 
St orage) — DN 

The current element is put out unchanged 
after saving the current block number and 
level number. 

A CTI0N5 -- DM 

A function call is generated. The routine 
moves 2 to ACT56+2 in order to allows 
saving of all floating-point registers, if 
necessary. The call switch CALLSW is set 
to 0 in order to pass a result argument. 
The current element is skipped and 
ACTI0N50 is called to process similar to 
the CALL statement. 

A CTIQN50 — DO 

The routine processes a CALL statement or 
function call. The arguments are checked 
and assignments to dummy variables are 
generated, if necessary (e.g., constant, 
variable inclosed between brackets 
...etc.). In case of function calls the 
target field in which the function value 
is to be returned is generated. 

A CTI6N6 — DN 

The routine converts the subscripts to 
binary integer, constructs the correspond¬ 
ing inermediate macro instruction, and 
puts it out together with additional 
request 0. The result which has the same 
data characteristic as the type of array 
is stacked and the indirect bit is set in 
the stack. 

ACTION8_ (Variables w ith Un k nown 

A ttributes) — DQ 

The operand is moved from input to stack 
(3 bytes) . If a value is already assigned 
to the operand, the corresponding attri¬ 
butes are moved from DO to the stack and 
the routine continues similar to ACTION 1. 
Otherwise, the routine is completed. 

A CTION9 — DK 

The action for constants is similar to the 
action for declared variables (ACTION1) . 

In addition, the 22 bytes following the 


constant reference are stacked in the 
constant table area. 


ACTION10 — DK 

The 6-byte end-of-statement is moved from 
input to output. 


ACTION11 — DK 

The error message is moved from input to 
output. 


ACTIO N 12 — DP 

The action is activated to process built- 
in functions. If the built-in function is 
a substring pseudo-variable, the routine 
3030 is called. Otherwise, R5 is set to 
point to the data table for built-in 
functions. The output switch ACTION1+1 is 
set to X'E3•; FI is set to X'13', and 
ACTIONCO which is common to ACTION2 and 
ACTION 120 is called. 


Action14, 25, 30 

These routines are not available since the 
corresponding text elements cannot occur. 

ACTION 15 -- DK 

Similar to ACTION1, but the key X'EF* is 
replaced by X'E5'. 

ACTION16, -22, -23, -28 — DR 

The input element is moved to output. 

ACTIO N17 

The routine processes the UNSPEC function. 
ACTIO N 18, ACTION2 9 — PS 

The input element is moved to output. The 
routine checks if the element is a DO 
header, DO trailer or none of both. If it 
is a DO header, the DO stack is initial¬ 
ized by clearing it to zero. If it is a 
DO trailer, the required DO variables are 
generated. Otherwise, it is put out 
unchanged. 

ACTION19 

This routine processes the STRING func¬ 
tion. It is similar to ACTION17 except 
that the bit switch is set to X'06 1 .. 

ACTION2 0 

The routine processes the UNSPEC pseudo 
variable. 
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ACTION2 1 

This routine processes the string pseudo 
variable. 


A CTION24 — DR 

The 3-byte element is skipped and the 
following 12-byte element is stacked. 


A CTI0N2 6 — DR 

The operand X 1 E800600000• is moved to the 
stack as source. The current input ele¬ 
ment is moved from input to output. 

A- CTI0N2 7 — DR 

The operand X'E100090000' is moved to the 
stack as source. The current input ele¬ 
ment is moved from, input to output. 

AC TION3 1 


PQ1 — DZ 

The routine computes p, q, L, and p-q for 
one operand on top of the stack and stores 
the results in Pi f Q1, LL1 and LMQ1, res¬ 
pectively. The routine then calls PQ. 


PQ2 —„DZ 

The routine computes p, q, L, and p-q for 
the two operands on top of the stack by 
calling PQ1 twice. The computed values 
are stored in the fields Pi, Q1, LL1, 

LMQ1, P2, Q2, LL2, and LMQ2, respectively. 

FINDKEY — E A 

The routine checks whether the available 
key or function name is to be modified 
according to the data type of the result 
and performs the modification, if neces¬ 
sary. The routine assumes that the field 
RESULT contains the type of the result of 
the current operation. 


This routine is called if the end of the 
program is detected. It terminates the 
current phase and calls the next phase. 

ACTIONC 0 — DP 

This routine is used for constructing 
premacros (key X'E5 f or X'EC’) . It con¬ 
sists of a sequence of subroutine calls. 
The following routines may be called: 


MOVED A TA — EB 

The routine computes N, N-1, N+1, N*18 
(N-1) *18, and (N+1) *18 and stores the 
results in NO, N1, N2, M0, Ml, and M2, 
respectively. N is the number of operands 
for the current operation. If N>12, an 
error is indicated (149) . 

PUTOUTE5 


MOVEII 

MOVEDATA 

CHECKENT 

ACTION2C 

DETERMIN 

FINDKEY 

PUTOUTFC/ 

PUTOUTE5 


to skip the current element in 
the input stream, 
to determine N-1, N+1, M, M-18, 
and M+18, where N is the number 
of operands and M is the current 
value for the stack pointer, 
to check if any one of the oper¬ 
ands is a function without argu¬ 
ments. The routine modifies the 
preceding key to X'61' if it is. 
to determine the required con¬ 
version and the precision 
resulting from this conversion, 
to determine the precision of 
the result. 

to determine the appropriate 
macro instruction key for the 
operation. 

to put out the intermediate 
macro instruction. 


This routine is used for putting out the 
output elements that refer to the opera¬ 
tion processed. The output consists of a 
5-byte element (with the key E5) , followed 
by the operands of the operation (18 bytes 
for variables, 40 bytes for constants), 
and terminated by an 18-byte EE element 
giving the additional requests. For 
details refer to the section Input for the 
Routine PREMAC in phase D10. 

PUTOUTFC 


This routine is used for putting out the 
output elements that refer to the function 
processed. Except for the first 5 bytes, 
the output has the same format as in the 
routine PUTOUTE5. 

ARITH1 — El 


In case of a comparison operation, a 
SET TRUE macro is put out in addition. 

PQ — DZ 

The routine computes the values p, q, L, 
and p-q and stores the results in R4, R5, 
R3, and R2, respectively. The routine 
assumes that R1 points to the operand on 
top of the stack. 


This routine moves attributes from a 
result of an operation or function to the 
RESULT field. 

ARITH2 — El 

After determining which operand represents 
the result of an operation, this routine 
moves the attributes of the result to the 
RESULT field. 
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RESLEN 

This routine is used to compute the length 
of a result. 


E XPONENT — EN 

This routine is used for exponentiation 
operations. After changing the operation 
key to a function key, the routine deter¬ 
mines the type of exponentiation and the 
corresponding function name. 

E 302 

The routine generates the intermediate 
macro instruction for the substring pseudo 
variable assignment. The data type of the 
substring (bit or character) is moved from 
the target field to the data vector. 

E 3 03 (CALL DYNDUMP ) — DU 

The routine generates the intermediate 
macro instruction for the DYNDUMP state¬ 
ment. E303 branches to ACTI0N12. 

E 304 (CALL OVERLAY) — DU 

The routine calls ACTI0N2 to generate the 
intermediate macro instruction for the 
CALL OVERLAY statement. 

E30 5, E306, E30B — DU 

No action is required. 

E 307, E3 08 — DU 

These routines are called when an END 
statement is encountered. The end-of- 
block element E3xxxx is put out. 

E309_ (CALL Statement with Arguments) — DO 

The routine calls ACTION50 after setting 
the CALLSWITCH to GENTAR1-GENTAR in order 
to suppress the generation of the target 
field. 

E 30A (GOTO Statement) — D T 

The routine checks whether the target is a 
label constant or label variable. If it 
is neither or both, a diagnostic is 
produced. If it is a label variable, a 
branch-to-label-variable intermediate 
macro instruction is generated. If it is 
a label constant and the level number of 
the label and the block containing the 
GOTO statement are identical, a simple 
branch macro instruction is generated. 
Otherwise, a label assignment is generated 
and a branch-to-label-variable macro 
instruction is generated. If a branch to 
■label variable* is generated, the library 
GOTO bit is set to 1. 


E3QE — DV 

The routine generates the assignment macro 
instruction. If the operand on the left- 
hand side of the equal sign is a constant 
or entry name, an error message (54) is 
generated. If the operand on the left- 
hand side is a DO variable, the attributes 
given on the right-hand side are stacked 
in the DO variable stack. 

E30F — DU 

This routine is called for expressions. 

The routine continues with routine E303 
after clearing the picture byte. 

E310 — DW 

The routine checks whether or not a 
comparison operation has been generated 
prior to the current IF and generates a 
branch-on-condition macro or a branch-if- 
true macro, respectively. 

Example 

a) IF A>B THEN GOTO L; 

Compare A,B 
BNH LI 

B L 

LI : . 

L : . 

b) IF A THEN GOTO L; 

Convert A to bit 
OC A* ,A* 

BZ LI 

B L 

LI : . 

L : . 

E30C, E30D 

These routines are not available since the 
corresponding elements cannot occur. 

ACTIO N 2C 

This routine is common for ACTION12 and 
ACTION2 which are called by ACTIONCO. The 
routine fetches the corresponding 
characteristic data for the operation or 
function from the T-table and stores this 
data in DATA+3. The routine calls the 
routines COMMON and CONVERT to determine 
the data and storage type required for 
each operand. 

DSGEN — DW 

The routine generates DS instructions for 
working storage in the current block. R0 
contains the length to be generated. To 
ensure that the generated working storage 
lies in the first 4K, the area is generat- 
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ed as a multiple of DS of length 8 
(double-word). If the length is 0, no 
working storage is generated, 

M OVECON — EM 

The routine tests whether the operand is a 
variable or a constant. If it is a con¬ 
stant integer, it is converted to binary 
integer in register RO and switch CON is 
set to 0. Otherwise, CON is set to X'FF'. 
SP points to the argument in the variable 
stack and TP points to the constant value 
in the constant stack. If the sign bit is 
1, the two's complement of the integer 
constant is loaded into RO. 

PR ECSION — EF 

The routine fetches the appropriate sub¬ 
routine according to the matrix FROTO (see 
Figure 1) to compute the precision result¬ 
ing from a specified conversion. R3, 
which contains the type available, and R5, 
which contains the type required, are 
passed as arguments. The resulting P, Q, 
and L are stacked in 15 (R1) , 16 (R1) , and 


14 (Rl) , respectively. The routine uses 
the tables FROTO, TYPER, and TYPEC and the 
group of routines PREC. 

CHECKENT — EE 

This routine is called by ACTIONCO. It 
checks whether the operand is an entry 
name without arguments. If an operand is 
an entry name (function value) , this is 
noted by replacing the El-key by 61 to 
allow the generation of a dummy variable 
as well as the appropriate function call 
in phase DIO. 

CONVERT — DX 

The routine computes the data type for n 
operands required by an operation. 

The conversion matrix MATRIX (see Fig¬ 
ure 2) is used to determine the data type 
required for the result. The required 
data type is a function of the type of 
operation and the data type of the oper¬ 
ands. An example of how the required data 
type is determined is given below. 


_ T - 

i i 


I 2 


TO/FROM 

1 1 

1 1 

|Binary|Binary 
|float (fixed 

1 

|Decimal 
j float, 
j numeric 

j _ _ . 

float 

field 

i 

i 

i 

| Bit 

1 Decimal 
[fixed, zoned, 
j zoned (T) , 

|decimal numeric field 

Binary float 

1 1 

j - j PREC3 

j PREC 6 


1 - 
j PREC15 

|PREC9 

Binary fixed 

|PREC1C| 

|PREC7 


|PREC16 

j PREC10 

Decimal float 

|PREC20) - 

j PREC11 


1 * 

|PREC1 1 

Bit 

j PREC1 j PREC4 

jPREC7 


1 - 

jPREC12 

Binary integer 

j PREC2 |PREC2 

|PREC2 


|PREC16 

|PREC2 

Decimal fixed 

I PREC23 j PREC26 

|PREC23 


j PREC25 

j PREC18 if not 

Character 

1 1 
1*1- 

1 

|PREC17 

if 

1 

|PREC13 

jdecimal fixed 
jPREC17 if 


1 1 

|numeric 

field 

1 

|numeric field 



x _ 


X 

X 


Character 


PRECIB 


h 


H 


Each of the routines PREC. computes the precision 
conversion. For details on the rules for computing 
SRL publication PL/I Subset Language Specification s 
not defined in the language are as follows: 


resulting from the data type 
these precisions refer to the 
, Form C28-6809. The precisions 


Binary float to binary fixed PREC1C 

P = min (P, 31) Q = 0 

Decimal float to binary fixed PREC7 

P = min (CEIL (P+3.32) ,31) Q = 0 
Binary float to decimal float PREC20 

P = CEIL (P/3.32) Q = 0/1 

Binary float to decimal fixed PREC23 
P = 5 Q = 0 

P, Q, and L of the source data are passed as parameters in RP, RQ, and RL. The 
resulting values are returned in the same registers. 


Figure 1. Matrix FROTO Used to Determine the Routine for Computing the Precision after 
Conversion 
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— 

CO 

NO 

H 

o 

O 

CO 

vj 

o 

Ol 


CO 

NO 

fl 

o 

■ 



Pointer 

Label 

Fixed 

decimal numeric field 

Float 

numeric field 

Binary 

integer 

Sterling 
numeric field 

CP 

Character 

Zoned 
decimal (T) 

Zoned 

decimal 

Decimal 

fixed 

Decimal 

float 

Binary 

fixed 

Binary 

float 


0 

Binary 

floaf 

D 

B 

o 

o 

o 

o 

o 

B 

o 

o 

o 

o 

o 

o 

o 

1 

Binary 

fixed 

a 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

2 

Comparison 

o 

*n 

CO 

NO 

B 

CO 

so 

co 

CO 

CO 

CO 

NO 

B 

o 

NO 

3 

Decimal 

fixed 

a 

B 

CO 

CO 

CO 

CO 

CO 

B 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

4 

Float 

a 

B 

NO 

N) 

o 

NO 

o 

B 

NO 

NO 

NO 

V) 

o 

o 

a 

5 

Fixed 

-n 

B 

CO 

CO 

B 

CO 

B 

B 

CO 

CO 

CO 

CO 

B 

B 

Ul 

6 

Character 

D 

B 

O 

O' 

B 

O' 

O' 

O' 

O' 

O' 

Tl 

B 

B 


O' 

7 

Bit 

D 

B 

a 

VJ 

B 

VI 

B 

B 

VI 

B 

V| 

B 

vi 

B 

B 

8 

String 

D 

B 

O' 

O' 

B 

O' 

VI 

O' 

O' 

O' 

B 

B 

B 

B 

00 

9 

Binary 

integer 

D 

B 

- 

- 

- 

- 

- 

B 

- 

- 

- 

- 

- 

- 

'O 

10 

Binary 

n 

B 

B 

o 

B 

B 

B 

B 

B 

B 

B 

o 

B 

o 

o 

11 

Decimal 

D 

B 

CO 

to 

CO 

CO 

CO 

B 

CO 

CO 

CO 

ro 

CO 

NO 

B 

12 

Label 

D 

n 

fl 

B 

B 

B 

B 

■n 

B 

B 

B 

B 

B 

B 

NO 

13 
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CO 

CO 

NO 

B 

o 
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Figure 2. Conversion Matrix MATRIX 


Assume an addition of two operands is to 
be performed. The first operand is of the 
type bit (X'FA* which corresponds to line 7 
in MATRIX) , the second operand is of the 
type numeric field floating point (X'A' 
which corresponds to line 10 in MATRIX) • 

The common data type to which both operands 
must be converted is then determined as 
follows: 


The addition implies that the operation 
type required is coded arithmetic (column 
15 in MATRIX) . 

For the first operand, column 15 of line 
7 in MATRIX points to 9, which is binary 
integer. For the second operand, column 15 
of line 10 points to 2, which is decimal 
float. 
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If an operation 0 of type to has n oper¬ 
ands of type t* , t 2 .tn, the common 

type required (t) is: 

t = MATRIX (tl r tO) S 
MATRIX (t2, tO) S 


MATRIX (tn, tO) • 

In order to determine the common data 
type of both operands, the values found 
(X'09' and X , 02 l ) are anded and yield a 
result of zero. Thus, the data type to 
which both operands must be converted is 0 
= binary float. 


CO MMON — DY 

This routine determines the data type 
required for each operand for a specified 
operation according to the information 
contained in DATA. The routine further 
determines the data type of the result and 
stores it in RESULT. The routine PRECSION 
is called n times to determine the preci¬ 
sion and length of each operand after con¬ 
version. R3 and R5, which contain the type 
available and the type required for each 
operand, are passed as arguments. 


DE TERMIN — ED 

This routine is called by ACTIONCO. It 
selects one of a group of routines provided 
for computing the resulting precision of an 
operation of function. The actions per¬ 
formed for operations by the individual 
routines are shown in flow chart ED. A 
special group of routines is called for 
functions. These routines have the stand¬ 
ard label P followed by the internal name 
of the function in decimal notation. For a 
list of all functions and their internal 
names refer to Appendix C. 

The routines store the characteristics 
of the result in the 6-byte field RESULT, 
whose format is as follows: 

bytes 0-1 data attribute 
byte 2 length (in bytes) of the 
result 

bytes 3-4 precision P and Q of the 
result 

byte 5 Zero 


No te: The type of the result is already 

determined and stored in the result field 
prior to calling any one of these routines. 
The routines may determine a new key by 
calling KEY4MOD and move it to DATA+2, if 
required. 


P (NA) 

This is a group of routines; the descrip¬ 
tions of the routines follow. P (NA) refers 
to the function with the internal decimal 
name NA. Functions other than those des¬ 
cribed below cannot occur as input for this 
phase. After phase D05, the set of possi¬ 
ble function names is expanded by separat¬ 
ing long and short float functions. 


P8Q ( T IME) 

The function length and precision 9 are 
moved into RESULT+2. 


P81 (DATE) 

The same as P80. L and P are 6. 


P82, PI 84 (NULL and ADDRESS) 

The attributes for pointer results are 
moved into RESULT. The pointer switch 
(MVCRES1+1) is set to X'20'. 


P84 - P11 6 

After conversion to float, if necessary, 
these functions have the same attributes as 
the argument. 

Pi 18 (ATAN (Radiant)) — EK 

The routine checks the number of arguments 
and modifies the name accordingly. If only 
one argument is available, ARITH1 is 
called. Otherwise, ARITH2 is called. 

Pi 20 (ATAN (Degree)) — EK 

The routine is similar to P118. The keys 
are different. 

PI 26 (REPE AT) — EK 

The routine computes the length of the bit 
or character string resulting from the 
REPEAT function. 

L = (N + 1) *P 

P1260 — EK 

This routine is used by routine Pi26 for 
computing and storing the length L of the 
result field. 

PI 2 8 ( INDEX) 

The result is binary integer with the pre¬ 
cision (15,0) . The routine modifies the 
key, if necessary, to 129 if the argument 
is of the type character. 
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P I 30 (SUBSTR) 

The length of the substring is checked and 
converted to binary integer. The resulting 
(L, P, Q) are determined by calling P1260. 

P I 32 (BOOL) 

RESULT (L, P, Q) = max (L 1f P 1 r Q„) / (L a , 

P 2 / Qz) ; For this reason, P132 calls GET- 
MAXPQ after modifying R1 and R2 to point to 
the first and second argument of the func¬ 
tion. 

PI 34 and PI38 (MAX and MIN) -- EJ 

The routines compute the precision result¬ 
ing from these functions. The precision 
rules are given in the SRL publication PL/I 
Su bset Lanquaqe # Form C28-6809. The func¬ 
tion name is modified according to the 
resulting data attribute. 

P1 344 

The routine computes P-Q in R4 and Q in R5 
for fixed-scale data. The parameter R1 
points to the 18-byte argument. 


PI 46 

short float 

** 

integer 

PI 47 

long float 

** 

integer 

PI 48 

decimal fixed 

** 

integer 

P1 49 

binary fixed 

** 

integer 

P1 50 

short float 

** 

short float 

PI 51 

long float 

** 

long float 


These routines compute the precision of 
exponentation results. For P146 and Pi 47, 

P is identical with the base. The preci¬ 
sion for P148 and P149 is previously deter¬ 
mined in the routine EXPONENT. Pi50 com¬ 
putes the precision of the floating-point 
result as max (PI, P2) . 

PI 60 (ABS) — EL 

The routine determines the key for the 
individual ABS functions (4 are available) 
and computes the resulting precision. If 
the argument is float, the result has the 
same precision as the argument. If the 
argument is fixed, the resulting precision 
is (P+1,Q). 

PI 61 (SIGN ) 

The routine computes the precision of the 
SIGN function. 

PI 6 2 (FLOOR) , PI 63 (CEIL) — EL 

These routines compute 

P = max ((P-Q+1) , 1) and 

2 = 0 

in case of fixed scale, and P in case of 
floating-point. 


PI 65 ( TRUNC) — E L 

After moving the initial key for TRUNC to 
KEY4MOD+3, processing is identical to PI 62 
and PI 63. 


PI 68 (ROUND) — EL 

The routine computes the precision of the 
result and modifies the function name 
according to the resulting data type. 

P166 BIT P171 FLOAT 

PI 67 CHAR P172 FIXED 

P169 BINARY P173 PRESISIO 

P170 DECIMAL 

These routines are identical. They 
generate assignments for the above func¬ 
tions. The precision of the target may be 
specified by the programmer. If the preci¬ 
sion is not specified, the rules for data 
type conversion are applied. 

PI 74 (MOD) 

The routine computes the precision of the 
result and modifies the function name 
according to the resulting data type. 

Pi 75 ADD 
PI 76 MULTIPLY 
P177 DIVIDE 

The routines are identical. The calling 
sequence is generated either in phase D20 
or in phase D17. The precisions, if speci¬ 
fied by the programmer, will be selected. 

If no precision is specified, the rules for 
the addition, multiplication, and division 
are applied. 

PI 78 ( HIG H ) > PI 79 (LOW) 

The two routines are identical. 

PI 80 SUM 
PI 81 PROD 
PI 82 ALL 
PI 83 ANY 

These four functions are identical. 

KEY4M0D 

The routine modifies the function name 
according to the data type of the result. 
The initial key is moved into KEY4MOD+3, 
and the routine assumes that the result has 
already been determined in RESULT. 

Note: The following routines are described 

in the section General Description of Phas¬ 
es POO - Dll . 

ERROR MOVE10 MOVESO MOVEIS 

ADMVC MOVEII SAVER 
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P HASE PL/ID 10 (MACRO GE NER ATION I) — EP 


This phase is built up of three logical 
parts: 

1. Scan (ACTIONO - ACTION31) 

2. Determination of registers and working 
storage. 

3. Generation of intermediate and conver¬ 
sion macros. 

The communication among the three parts 
is as follows: 


A CTIO NO 

The pointers for the register table, the 
stack, and the table area are initialized. 
If the current statement is an expression 
statement, a store macro instruction for 
the registers is generated, if required, 
and a switch is set for generating the 
corresponding restore macro instruction 
when processing of the statement is com¬ 
pleted. 

ACTIO N 1, - 7, -8, 14 


r- 1 

| Part 1 | 

L_J 

A 

L_ 


r- 

V 

r- i 

| Part 2 j 

l _j 

A 


V 

\ Part 3 "j 

L_J 


The element is moved to the table area. 
ACTI0N3 


The element is skipped and the working 
storage required in the current block is 
generated. 


S ymbols used in flow chart s: 


ACTION4 


PIN : 
OPR : 
SP : 
TP : 
INP : 
STP 

SORG : 
STRORG: 
SPB : 

SPA 

TABORG: 


input pointer 

output pointer 

stack pointer 

table pointer 

priority of input element 

priority of element on top of stack 

stack origin 

structure origin 

stack pointer (occupied stack 

chain) 

= SP = stack pointer (free chain) 
table origin 


Note: The following routines, which are 

used in this phase, are described in the 
section General Description of the Phases 
POO - D2Q. 


The initial values and the names of the 
byte-aligned and double-word-aligned work¬ 
ing storage are retrieved from the input 
stream and stored. The input element is 
moved into the field INITIAL. 

ACTIO N 5, ACTION12 — EQ 

The 5-byte element is moved to the table 
area. The corresponding operands are 
fetched from the input stream and also 
moved to the table area. If an operand is 
an intermediate result, it is retrieved 
from the stack. After all operands have 
been fetched, PREMAC is called to generate 
the necessary macro instructions for con¬ 
version and for the operation, if required. 


ADMVC MOVESO (=MOVSTO) 

SAVER MOVEIT 


PART 1 OF DIO — EP 

Part 1 scans the input, element by element, 
and calls the appropriate routine 
(ACTION (x) ) . ACTION (x) refers to text 
elements with the key X'EO'+x. There are 
as many actions as there are elements 
(marked by keys) to be processed in this 
phase. However, actions may be represented 
by the same coded routine. The subroutines 
ACTION (x) are the only subroutines used by 
part 1 of phase DIO. 

Operands are moved from input into a 
dynamic area (stack. 


ACTI ON6, -13 , -20, -21, -2, 17 

These actions are not available since the 
corresponding text elements cannot occur. 

ACTION 9 

The constant value is moved into the con¬ 
stant area. The constant operand is moved 
into the operand area. The negative offset 
value of the constant value in the constant 
area is moved into bytes 10-11 of the oper¬ 
and. 

ACTIO N 10 

This routine is called if the end-of- 
statement is detected in the input stream. 

A load-multiple macro instruction for these 
I/O registers is generated if registers 
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were saved at the beginning of the 
statement. The length of the working stor¬ 
age required in the current statement is 
compared with that of the current block. 

The greater of the two values is saved as 
working area of the block. 

A CTI0N1 1 ,-16,- 1 8,- 19,-2 2,- 2 4,-28 

The input element is skipped. 

ACTI0N1 5 


This routine is called if the input element 
replaces an intermediate result (EF-key) . 
The element is moved to the variable area 
and the corresponding stack address is 
evaluated and moved into bytes 2-5 of the 
variable. 

ACTI0N2 5 

Switch ACT10SW is set to and the routine 
proceeds similar to ACTION29. 

A CTI0N2 6, ACTION27 

The output is modified for array functions 
and the element is skipped. 

ACTI0N2 9 

The input element is skipped. 

A CTI0N3 0 

The specified registers are freed (by call¬ 
ing ACOMAX) if they are occupied. 

ACTI0N3 1 

f \hen the end of the text string is detect¬ 
ed, this routine terminates phase DIO and 
calls the interface macro IJKPH to fetch 
phase Dll. 


PART 2 OF DIO (PREMAC) — GF 


Part 2 of phase DIO (entry point PREMAC) is 
called if an operation is detected in the 
input stream. It prepares the macro 
instructions. This includes the processing 
of assignments, conversion of the operands 
to the required data types, moving of oper¬ 
ands to the required storage types, conver¬ 
sion of floating-point operands from short 
float to long float, and to make requests 
for additional required operands. The 
routines called for performing the indivi¬ 
dual functions are discussed in later sec¬ 
tions. 

The general input format of this routine 
is as follows: 


(1) (1) (1) (1) (1) (18) 
f - T - T - T -T-T- 1 

| K j N j K1 | K2 j K3 jOPI j 

L_X_X_X_X_ JL _J 


(18) (1) (1) (2) (2) 

- f - T - T - t- 1 - T-T-1 

| OPn | EE | M | AR1 | | ARm j | 

-L-X-X-X-J —-X X--j 

l-V-j 

18 bytes 

K = X•E5' for macro instructions 
X 1 EC 1 for functions 
N Number of operands 

OP Operand (see detailed description 
below) 

EE X 1 EE' 

M Number of additional requests 

AR Additional request 

The format of the operands is: 

Byte i s) C ontents 

1 Operand key 

2-3 Name of the operand 

4-5 Modifier 

6 Attribute byte = byte 5 of SYMTAB 
entry 

7 Attribute byte specifying data 
type of operand 

8 Length of the operand 

9 Precision of operand, or length in 
bytes (bits) for character (bit) 
string 

10 Scale factor of operand 

11-12 Offset in constant table pointing 
to corresponding constant if oper¬ 
and key E9 or 69. 

Offset in character string point¬ 
ing to corresponding ED if byte 13 
contains 8, 10, or 11. 

Name of corresponding DED if byte 
13 contains 4 or 5. 

13 Number giving available data type 
of operand. 

14 Number giving required data type 
of operand. 

15 Length of operand required after 
conversion 

16 Precision of operand required 
after conversion 

17 Scale factor of operand required 
after conversion 

18 Required storage type 

The output of the routine PREMAC may 
consist of the following: 

1. Macro instructions 

Byte (s ) Contents 
1 key X 1 F2' 

2-3 length of macro instruction. 

4 key; for the format of the 

following bytes see phase E50 
for the respective key. 
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2. Assembler instructions 


4. Premacros 


Byte (s) Con ten ts 
1 key X 1 F6 1 

2-3 length of instruction 

4-5 keyl, key2; for format see 


phase E50 
keys. 

3. Constants 

Byte (s) Contents 
1 key X'FD' 

2-3 length of 

itself is 
output of 


for the respective 


constant; constant 
taken unchanged from 
phase DO 5. 


Byte (s ) Contents 

1 key X*F5' or X*FC' 

2-3 length fo premacro; 1 = 12 

(N+1) +22 C 

4 number of operands 

5-7 K1, K2, K3 (see input) 

8-12 not used 


Each of the following operands is 12 
bytes long. A constant (22 bytes) may be 
appended to each operand. 




r 

"T— r - 

T 

■*i- 

“T 

*i- 

T 

"T 

"T 

"T 

-~\ - 

"1 



|0 

|1 1 2 

1 3 

14 

|5 

16 

|7 

|8 

1 9 

1 io 

in 

i 


r 


4 i 


-+- 

-+- 

I- 


-+- 

-+- 

-+- 


H 


i 

| BIN. 

j BIN. DEC. 

I DEC. 

1 ZONED!ZONED 

|CHAR 

| BIT 

[STERL 

. | BIN. 

1 FLOAT!FIXED! 


i 

1 FLOAT 1 FIXED 1 FLOAT 1 FIXED 1 DEC. 

| DEC (T) 

j STR. 

| STR. 

| N.F. 

| INT• 

| N.F. 

| N.F. 

1 

r 

i 

|- 

"f - | - 

"I 

"I 

"I 

■+- 

j- 

4 

4 

- j- 

-j- 

+ 


01 BIN. 

1 - 

|4/13 |1/3 

| 4/15 

| 3/9 

| 3/1 0 

| 0/0 

| 0/28 

| 4/19 

| 0/7 

[5/23 

| 5/24 



|FLOAT 

1 

i i 

i 

i 

i 

1 

i 

i 

i 

i 

i 


y 

i 

i - 

4 i — 


4 

- + 

*+- 


4 

4 

4 

4 



1|BIN. 

| 4/12 

| - |1/3 

| 4/ 1 5 

| 3/9 

| 3/1 0 

| 0/0 

[0/2 8 

| 4/19 

| 1/12 

[5/23 

[5/24 



|FIXED 

i 

i i 

i 

i 

i 

1 

i 

i 

i 

i 

i 


y 

+ 


4 i 

4 



4 — 


4 


4 

-+- 



2 | DEC. 

| 1/2 

|4/13 | - 

| 4/15 

| 3/9 

| 3/1 0 

| 0/0 

| 0/28 

| 4/19 

| 0/7 

| 5/23 

| 5/24 



j FLOAT 

i 

i i 

i 

i 

i 

1 

i 

i 

i 

i 

i 



“■f- 


4 — — 



■ + 



4 -■ 

4“ 

4 


~l 


3 | DEC. 

| 1/2 

|4/14 J 4/14 

j - 

| 3/9 

[3/10 

| 0/0 

| 0/2 8 

| 4/19 

| 7/18 

| 4/21 

| 5/24 



j FIXED 

1 

t i 

i 

i 

i 

1 

i 

i 

i 

i 

i 


y 

i 

+- 

4 1 

4 


• + 


i 



-+- 

4 

H 


4|ZONED 

| 1/2 

|4/13 |4/14 

I 3/5 

j - 

| 1/30 

| 0/0 

| 0/28 

| 4/19 

| 7/1 8 

| 5/23 

15/24 



| DEC . 

i 

i i 

i 

i 

i 

1 

i 

i 

i 

i 




—+- 

i- 

4 i 

4 

4 - 

-+- 

4 — 






H 


5|ZONED 

| 1/2 

|4/13 |4/14 

| 3/6 

| 1/29 

| - 

| 0/0 

| 0/2 8 

| 4/19 

| 7/18 

| 5/23 

| 5/24 



| DEC (T) 

t 

i \ 

i 

i 

i 

1 

1 

1 

1 

i 

1 


y 

1 

| - 

4 + *“ “ 

4~ 

- 

"i 

4 - 

| - 

4 

_ -j - 

4 

--f- 

H 


61 CHAR. 

1 0/0 

|0/0 |0/0 

|0/0 

| 1/1 

i i/i 

1 - 

| 4/1 7 

i i/i 

|0/0 

i i/i 

| 1/1 



1STRINGI 

1 1 

i 

i 

i 

1 

1 

i 

1 

i 

1 


y 

I 

| - 


4 


' + 

4 — 


4 

i 



--I 


7 1 BIT 

1 4/12 

|0/11 11/3 

| 2/4 

| 3/9 

| 3/10 

| 4/16 


| 4/1 9 

| 7/8 

| 4/22 

| 5/24 



STRING! 

1 1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


f 

1 

|- 

4 ~ i 

-+- 

4 

■I 

4— 


-+- 


4 


--I 


8|STERL. 

| 1/2 

| 4/13 | 4/1 4 

| 6/27 

| 3/9 

| 3/1 0 

| 0/0 

|0/28 

| - 

| 7/1 8 

| 5/23 

f 5/24 



| N.F. 

i 

1 1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


y 

i 


4 i — 

- 


‘I 

4— 

i— 

4 - 

- 

4 

- 

H 


9|BIN. 

| 4/12 

|0/11 11/3 

| 2/4 

| 3/9 

| 3/10 

| 0/0 

| 0/28 

| 4/19 

j - 

| 4/22 

| 5/24 



| INT. 

i 

1 1 

1 

1 

1 

1 

1 

1 

1 

1 

1 



“ i 

i- 

4 - i 

4 


" + 

4— 


4 


-■f - 




0 1 FLOAT 

| 1/2 

| 4/13 | 6/25 

| 4/1 5 

| 3/9 

| 3/ 10 

| 0/0 

| 0/2 8 

| 4/19 

| 0/7 

| - 

1 5/24 



| N . F . 

i 

1 1 

1 

i 

1 

J 

1 

1 

1 

1 

1 


y 

—+- 


4 i 


4- 

"i 

4— 


4 - 


4 


H 


1 | FIXED 

| 1/2 

|4/13 |4/14 

| 6/26 

| 3/9 

[3/10 

| 0/0 

| 0/28 

| 4/19 

| 7/18 

| 5/23 

j - 



| N.F. 


1 1 

1 

j 


1 

1 

1 

1 

1 



L. 

_ X 



.X 


-X 


x_ 

-X 

_L 

_x 


.j 


Figure 1. Conversion Table COTAB 
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r 

| 

L. 

- T - - 
SIR. | CONVERSION 

1 

1 




“T T 

|Type |New. 

|returned* j Attr. 

« _L 

T T “ T 

|Macro|Routine|Ind. Rout 
**|Key jName [Name 

~1 

T 

1| ZONED DEC• 

_l 

- 

CHAR 

STR. 

1 

6 

T 

1 

__L_ 

6 

T 

1 

X- 

- 

T 

1 

-X- 

- 

T 

1 

-X 


1 

i 

r 

L. 

2 1 BIN. 

FL. 

- 

DEC. 

FL. 

"i 

i 

2 

T 

1 

2 

T 

1 

X- 

- 

T 

1 

X- 

- 

T 

1 

-X 


1 

r 

L. 

3 |DEC. 

FL. 

- 

BIN. 

FL. 

T 

1 

0 

-f 

1 

1- 

0 

T 

1 

X- 

- 

T 

1 

-X- 

- 

T 

1 

-X 


1 

-4 

r 

L. 

4 |DEC. 

FIX 

- 

BIN. 

INT. 

1 

9 

T 

1 

- 1- 

1 

T 

1 

X- 

50 

+ 

l 

-X- 

- 

T 

1 

.X - 


1 

j 

r 

L. 

5 | DEC. 

FIX 

- 

ZON. 

DEC. 

1 

’ + 

4 

T 

1 

4 

T 

1 

- X- 

52 

T 

1 

X- 

- 

T 

1 

.X— - 


1 

-4 

r 

L. 

6 | DEC. 

. 1 - _ _ 

FIX 

- 

ZON. 

DEC. (T) 

1 

5 

T 

1 

1- 

5 

T 

1 

X- 

51 

T 

1 

-X- 

- 

T 

1 

.X - 


1 

-4 

r 

L. 

1 

7 j BIN, 

I NT 

- 

BIN. 

FL. 

1 

-4- - 

0 

T 

1 

1 _ 

0 

T 

1 

X. 

53 

T 

1 

X- 

- 

T 

1 

.X - 


1 

_j 

r 

L. 

8 j BIN. 

I NT 

- 

BIT. 

STR 

T 

1 

7 

-f 

1 

l_ 

7 

T 

1 

X- 

54 

T 

1 

.X- 

- 

T 

1 

.x 


1 

_ j 

r 

1 

9 i ZON. 

_ i 

DEC 

- 

DEC. 

FIX 

"f 

1 

3 

T 

1 

4— 

3 

T 

1 

X- 

55 

T 

1 

.X- 

- 

T 

1 

.X_ 


1 

j 

r 

L. 

T 

10|ZON. 

DEC T 

- 

DEC. 

FIX 

j. 

1 

3 

T 

1 

1 _ 

3 

T 

1 

X- 

55 

T 

1 

X- 

- 

T- 

1 

.x_ 


1 

_j 

11|BIN. 

FIX 
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Figure 2. Routine Table 
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C ONVERT — GG 

This routine performs the conversion of 
operands from available to required data 
type. Most of the conversions are pet- 
formed in single steps. 

The conversion table COTAB (see Figure 
1) is used to determine the conversion 
steps required. The elements V and W in 
column Y and row X in COTAB give the first 
conversion step for a conversion from avai¬ 
lable data type (Y) to required data type 
(X). V indicates the routine of this part 
of the phase (CACTION (V) ) that handles the 
required conversion step. W refers to the 
routines that represent the individual 
conversion steps. The data type Y' 
obtained after conversion step W is given 
as element (w) of ROUTAB. The new attri¬ 
bute of the operand is given as element (W) 
of ATAB. ROUTAB and ATAB are identical 
with columns 3 and 4 of the routine table 
(see Figure 2) . 

The conversion is continued with further 
conversion steps until the new data type Y" 
equals the required data type X* 

AD DPQL 

This routine determines P, Q, and L of the 
target depending on the routine number W. 
The table shown in Figure 3 gives the for¬ 
mulas to be evaluated for the routines. 

LS, PS, QS L, P, Q of the source 

LT, PT, QT L, P, Q of the target 

LC, LB length of character or bit 

string (for source (S) and 
target (T) , respectively. 

The routine number specified in the 
lefthand column of Figure 3 is the same as 
the number specified in the lefthand column 
of Figure 2. 


Rout. 

number 

T 

| EVALUATION OF LT, PT, QT 

1 

i 

3 

T 

|no evaluation (error) 

1 

| . _ _ .. - 

|LCT=PS, LT=LCT 

2 

|PT=CEIL (PS/3.32) 
j if PT > 6: LT=8,QT=X'58' 

j if PT < 6: LT=4, QT=X'00* 

l 

3 

T 

jPT=MIN (CEIL (PS*3. 32) ,31 
j if PT > 21: LT=8, QT=X'58‘ 

| if PT < 21: LT=4, QT=X’00* 

1 ... 

4 

T ' 

j PT=31 , LT=4 , QT=0 

X 


Figure 3. Evaluation of L, P / and Q of 
Target (Part 1 of 2) 


5 

6 

7 

8 
9 

10 

11 

12 

13 


PT=PS, QT=QS, LT=PT 


PT=PS, QT=QS, LT=PT 


H 


PT=PS, QT=0, LT=4 


-+- 


LBT=PS, LT=CEIL (LBT/8) 


PT=PS, QT=QS, LT=FLOOR (PT + 2)/2) 


PT=PS, QT=QS, LT=FLOOR (PT + 2) /2) 


PT=31, QT=0, LT=4 


PT=PS, QT=0, LT=4 


PT=PS 

if PT > 21: LT = 8, QT =X , 58‘ 
if PT < 21: LT = 4, QT =X'00' 


14 

15 


PT=PS, QT=0, LT=FLOOR (PT+2) /2) 


PT=PS 

if PT > 6: LT = 8, QT = X'58 1 
if PT <6: LT = 4, QT = X'00' 


-H 


16 

17 


LBT=MIN (LCS*8,64) , LT=MIN (LS, 8) 


H- 


fLCT=LBS, LT= LCT 


18 


PT=CEIL (PS/3.32) + 1, 

QT=0, LT=FLOOR (PT+ 2) / 2) 


19 

20 

21 

22 

23 


PT=PS, QT=QS LT=FLOOR (PT+2) /2) 


no evaluation (no routine) 


PT=PS, QT=0, LT=FLOOR(PT+2)/2) 


PT=31, QT=0, LT=4 


PT=PS 

if PT > 6: LT = 8, QT = X'58* 
if PT < 6: LT = 4, OT = X'00' 


4- 


24 


b 


PT=PS, QT=QS, LT=FLOOR (PT+2) /2) 


-H 


25 

26 
27 

1-- 

| 28 


must be assignment, 
PT, QT, LT are given 


|PT=31, QT=0, LT=4 

-JL _ 


Figure 3. Evaluation of L, P, and Q of 
Target (Part 2 of 2) 


ADASSI (0) , -12) — GI 


The routine processes assignments to binary 
float (X = 0) and decimal float (X = 2) . 

ADASS I (1) — GJ 

The routine processes assignments to binary 
fixed. If the source alos has the attri¬ 
butes binary fixed, the assignment is iden¬ 
tical with conversion CV36. 
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A DASSI (3) — GK 

The routine processes assigments to decimal 
fixed. If the source also has the attri¬ 
butes decimal fixed, processing is contin¬ 
ued by the part of the phase that prepares 
the input for the macro generation. The 
final assignment macro is then constructed 
in the following phase. 

A DASSI (4) , -5, -8, -11 — GL 

This routine processes the assignments to 
zoned decimal (X = 4) , zoned decimal T (X = 
5) , sterling numeric field (X = 8) , and 
fixed numeric field (X = 11) . The assign¬ 
ment is performed in two steps: first to 
decimal fixed and then final assignment to 
the required data type. 

If the initial assignment was 

where ATT = 0, 1, ... 11 

ATS =4, 5, 8, or 11 

it is separated into 

GWO (3,LGW0,PT,QT) =S (ATS, LS , PS , QS) ; 

T (ATT,LT, PT, QT) =GW0 (3 , LGWO , PT, QT) 

where LGWO = FLOOR ( (P+2) /2) 

The switch ADASCO separates the first 
assignment (GWO = S) and the second assign¬ 
ment (T = GWO) . The initial value of the 
switch is zero. Thus, the NO-branch refers 
to the first and the YES-branch to the 
second assignment. 

If the attributes of source and target 
are equal, the assignment is identical to a 
character-string assignment. 

AD ASSI (6) ,-7 - -GM 

The routine processes assignments to char¬ 
acter string (X = 6) and bit string (X = 

7) . 

ADASSI (9) , -10 — GN 

The routine processes assignments to binary 
integer (X = 9) and floating-point numeric 
field (X = 10) . If source and target have 
the attributes floating-point numeric 
field, the assignment is identical to 
action (4) of the conversion routine after 
setting the parameters V and W and changing 
a SECTAB entry. 

ADTEE6 — GO 

The subroutine is used for replacing indi¬ 
rectly given operands. If the macro 
instruction M (OP) has the operand OP, OP 
may be one of the following: 

1. a normal operand (no action required) 


2 . a variable or constant that must be 
taken only by its value. 

The instruction 

MVC X (L) , OP 

is generated and OP is replaced by X. 

M (OP) M (X) 

3. a call without parameters. The call 
macro 

CALL (OP, RE) 

where OP = entry name and RE = return 
value is generated and OP is replaced 
by RE. 

M (OP) M (RE) 

ADCOB3 — GP 

This routine is used for initializing poin¬ 
ters. Zl points to the start address of 
the text element with an E5 key. Z2 points 
to the first operand. N specifies the 
number of operands. 

CACTIONQ -- GQ 

The routine performs three conversion 
steps. Parameter W specifies the type of 
conversion. W = 0 indicates an invalid 
conversion. For W greater than zero see 
the routine table (Figure 3) . AD MVC is a 
subroutine used for increasing and testing 
the variable counter IJKMVC. 

CV36 -- GR 

This subroutine is used for the construc¬ 
tion of binary assignment macros. If the 
preceding statement identifier contained an 
indication that size overflow must be 
checked, the macro key X'05' is used. Oth¬ 
erwise, the key X'OG* is used. 

CACTION1 — GS 

This routine performs the conversion steps 
that require no transfer of the operand to 
another address. Thus, the requested tar¬ 
get field may be freed. For the individual 
conversion steps refer to the routine table 
(see Figure 3) . 

CACTION2 — GT 

This routine converts from decimal fixed to 
binary integer. 

CACTION3 —GU 

This routine performs the conversion steps 
between zoned decimal (T) and decimal 
fixed. Refer to the routine table in Fig¬ 
ure 3. 
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C ACTI0N4, -5 f -6 — GV-GX 

This routine performs the conversion steps 
that use library routines* Two types of 
macro instructions may be constructed: 

1. (D (2) (1) (1) (1) (6) (6) (2) (2) 

r-T-T-T-T-T-T-T-T- 1 

j F2|0016 j 41 j I |RN j OP 1j OP2|DED1j DED2| 
L-J._X-X-X-X-X_X_X-J 

2. (D (2) (1) (1) (1) (6) (6) (2) 

|F2|0014|42 | I |RN |op l}oP2 IdEd] 

l —x_x-x_x_x_x_x-J 

Format 1 refers to CACTION4 and is used 
for calling library routines that require 
two DEDs. 

Format 2 refers to CACTION5 and 
CACTION6• For CACTION5, DED must be the 
DED of OP1. For CACTION6, DED must be the 
DED of OP2. RN is the routine name. 

In addition to the construction of the 
required macro instruction, the routine 
sets the bits for the routine name and for 
the indirectly used library routine. The 
routine name and the name of the indirectly 
used library routine are given in columns 5 
and 6 of the routine table (see Figure 3) . 


D EROUTO-3,-6,-7 — GY 

These routines generate the DEDs. For 
coded arithmetic and string data the DEDs 
differ in their length and key (L and K) 
only. 

CACTION7 — GZ 

This routine performs two conversion steps 
(see routine table in Figure 3) . 

ACOMA — HA-HC 

This part of the program is no subroutine 
but a narrative description of that part of 
PREMAC that constructs the premacros (the 
YES-tree after the decision box D3 in flow 
chart GF. The following actions may be 
required: 

1. Additional request. 

Besides the operands, some macros and 
functions require additional registers 
or working storage. This additional 
storage must be "requested". 


3. Storage type conversion. 

Byte 17 of the specifies the required 
storage type. The operand gets the 
required storage type. This may cause 
a conversion if the operand already was 
assigned some storage type. 

4. Putting out premacros. 

The premacros are put out in the format 
described under Output of PREMAC . 


ADCOST — HD 

This subroutine converts operands from 
short float to long float. 

ADDEQ 

This subroutine is used to determine the 
sign of a scale factor. 


PART 3 OF DIO 

Part 3 of phase DIO consists of a collec¬ 
tion of subroutines called by part 2 to 
determine the operands required to con¬ 
struct the macro instructions. It checks 
the storage type required for the 
operand (s) . If required, registers are 
freed and working storage is generated. 

The technique applied is the so-called 
stack technique. This technique assumes 
that two stack chains exist at any moment 
during processing: a free chain and an 
occupied chain. If stacking is required, 
the last item of the free chain is deleted 
and added (with the corresponding 
information) as the last item to the occu¬ 
pied chain. Unstacking is the reverse 
procedure of stacking. 

The individual subroutines forming part 
3 are discussed in the following. 

SOURCE, (I) 

SOURCE (I) may be one of 0, 1, 2, 3, and 4. 
The routines are called if a source operand 
is to be converted to a required storage 
type. The routines merely provide the 
parameters for the routine SOURCE. The 
required storage type for SOURCE and the 
corresponding parameters for the individual 
routines are listed in the following table: 


Required 
Storage Type 

Any of 1, 2, 3, 4 
Declared or working 
storage 

Fixed register 
Float register 
Working storage 


Parameter 

X'OFOO' 

X'OCOO' 

X'OIOO' 

X ' 02 07 1 
X* 0400' 


Routine 

2. Conversion of float operands. 

Floating-point operands of float macros SOURCE0 

or float functions must have the same SOURCE 1 

length. If one of the operands is long 
float, all other float operands that SOURCE2 

are not long float must therefore be SOURCE3 

converted to long float. SOURCE4 
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T ARGET (I) 

TARGET (I) may be one of 0, 1, 2, 3, and 4. 
The routines are called if a target operand 
is to be converted to a required storage 
type. The routines merely provide paramet¬ 
ers for the routine TARGET. The required 
storage type for TARGET and the correspond¬ 
ing parameters for the individual routines 
are analogous to those of SOURCE (I) . 


SOURCE 

The routine evaluates the operand to be 
used in an operation as a reference to a 
source field. It may be called from one of 
the routines SOURCEO through S0URCE4 as 
follows: 

BAL LINK, SOURCE 

DC X'mmnn' 


FREE — ET 

The routine frees an operand in the occu¬ 
pied stack chain and adds it to the free 
stack chain. 


FREEING 

This routine is called after the macro 
generation for each operation. It frees 
all operands used as source fields during 
the respective operation if these operands 
are work areas that have entries in the 
occupied stack chain. 

REQUEST — ES 

This routine is called to get the work 
area, which may be specified as working 
storage, fixed-point register, or floating¬ 
point register. It is called as follows: 




where mm and nn are the parameters required BAL LINK, REQUEST 

for the routine GETOP, which performs the DC X'mmnn' 

main part of the processing. 

where mm is one of the following: 


TARGET 

This routine is called by one of the rou¬ 
tines TARGETO through TARGET4 and is simi¬ 
lar to SOURCE. The operands are used tar¬ 
get fields. 

The main part of the processing is per¬ 
formed by the called routine GETOP. 

G ETOP — EX 

This routine determines an operand with 
specified storage type (working storage, 
fixed-point register, or floating-point 
register). The routine checks if the type 
required and the type currently available 
are identical. If they are, the routine is 
left. Otherwise, REQUEST is called to 
generate an operand that has the required 
storage type and to store the contents of 
the current operand in the generated oper¬ 
and. 


00 single fixed-point register 
01 double fixed-point register 
02 short floating-point register 
03 long floating-point register 
04 full-word 
05 double-word 

06 byte-aligned working storage 
07 specified single fixed-point register 
08 specified double fixed-point register 
09 not used 

0A specified short floating-point register 
0B specified long floating-point register 

nn is the specified register or the length 
in bytes of the required storage. 

GETST — ER 

The routine deletes the last item in the 
free stack chain and adds it to the 
occupied stack chain. 

FETCHA, FETCH1 — EU 


This routine is called by SOURCE as 
follows: 

BAL LINK, GETOP 

DC X•mmnn 1 


This routine is called by REQUEST to select 
the parameters for the current request. 
Selection is performed using the tables D 
and P. The table P consists of 9-byte 
entries that have the following format: 


where mm may be 


X * OF * any type 

X'0c' no register type 

X'01• fixed-point register 

X'02* floating-point register 

X'04* working storage 


and nn is either X'07' (floating-point 
register) or X'00' (all other cases) . 


byte 0 
byte 1 

byte 2 
byte 3 
byte 4 
byte 5 
byte 6 

bytes 7-8 


mask for searching in REGTAB 
successful condition code during 
searching 

successful action displacement 
unsuccessful action displacement 
mask to reserve in REGTAB 
mask to free in REGTAB 
macro instruction key if storage 
change is required 
request, if required. 
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The register and working storage table 
REGTAB consists of full-word entries of the 
following format: 


The communication between the reference 
to the working area and the tables REGTAB, 
QTAB, and RTAB is as shown in Figure 2. 


byte 0 


byte 1 
bytes 2-3 


search mask (key) . It may be 
one of the following: 

X'OS* fixed-point register 
X'OC 1 floating-point 
register 

X'10• double-word 
X'OE* byte-aligned 
displacement in QTAB 
either register pair or offset 
if storage 


ACTIO (R5) 

The selection of the routine to be used 
depends on the address contained in reg¬ 
ister 5. One of the four routines des¬ 
cribed in the following may be selected. 


SACTIONX — EU 


The table QTAB contains the relative 
displacement (1 byte) for entries in RTAB. 
The entries in RTAB have the following 
format: 


byte 0 
byte 1 

bytes 2-3 
byte 4 
byte 5 

byte 6 


displacement of operand format 
relative to S00 

displacement (relative to R012) 
of routine to construct and 
return the operand. The routine 
is executed . 

the required request parameters 
(if available and required type 
are not identical) 
macro instruction key if storing 
is required (if available and 
required type are not identical) 
available storage type X'mn', 
where m and n have the following 
meaning: 

n = 1 - fixed-point register 
n = 2 - floating-point register 
n = 4 - working storage 
n = 8 - declared variable 
m = 0 - short 
m = 1 - long 
m = 2 - byte-aligned 
X 1 1 for floating-point data 
X* * in all other cases 


This routine is called if the required and 
available types of an operand are identical 
(successful action, see format of the P 
table) . In this case, the operand is a 
register or working storage. 


SACTIONZ — EV 


This routine is called if an operand is 
required as register, but it is currently 
contained in storage. In this case, a 
register (or a pair of registers) is 
requested by calling REQUEST with the 
appropriate parameters, and a load macro 
instruction is generated. 


FACTIONY — EU 

This routine is called if working storage 
on full-word or double-word boundary is 
required and this is not available in REG¬ 
TAB. 

SACTI0N7 — EW 

This routine is called if a specified reg¬ 
ister is required. 
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PHASE PL/D11 (MACRO GENERATION II) — HM - 

r 


F irst Part 

The first part of phase D11 restores the 
old interface for use by this and the fol¬ 
lowing phases. The new communication 
region is saved. The old interface and the 
saved LIOCS table for SYS001 are read from 
SYS001. The interface is read into the 
appropriate storage area, whereas the LIOCS 
table must be moved. If tape work files 
are used, a back-space record command is 
given to synchronize the tape position with 
the information in the table. 

All items of the old communication 
region that may have been changed in the 
new communication region by phases D00, 

DO5, or DIO are set to the new values. The 
text input medium is read to the end of 
information, and the NOTE information on 
that point is set into the old communi¬ 
cation region. The medium is reset with a 
POINTS macro instruction. The old end-of- 
file address is set into the appropriate 
entries of the work file tables. 

Symbols used in flow charts 

TABLE : Contains address of SYS001 in new 
interface 

TABLEM : Save area in phase Dll for 

information required from new 
interface 

INTTABEN: Begin of saved new communication 
region 

EOFADD : Relative address of end-of-file 
entry in LIOCS table for disk 
EOFADT : and for tape work files 
TEXTIN : Contains address of input work 
file table 

NEOFAD : Address of end-of-file routine 
used in this phase 
POINTR : LIOCS macro instruction 

T 1 SYS001 

CHECK : LIOCS macro instruction 

READ : LIOCS macro instruction 

EXCP : PIOCS macro instruction 


POINTS : LIOCS macro instruction 
DUMPSAVE: Save area for old end-of-file 
routine 

TEXTOUT : Contains address of output work 
file table. 

IJKMWC : Length of dynamic work space used 
in D00-D10, entry in old inter¬ 
face 

LREAD : Length that can be read regard¬ 
less of buffer boundaries 
LWRITE : Length that can be written 

regardless of buffer boundaries 
PIN : Input pointer 

OPR : Output pointer 

CURBUF : Current buffer index 

K : Key 

MAI : Area used for macro construction 

AA30 : Area containing the premacro 

AAP3 : Area containing P and Q of oper¬ 

ands 

Main Part 

The second part of phase Dll generates 
macros. The input of the phase contains 
so-called premacros, which furnish the 
information required for generation of the 
macros. The format of the generated macros 
must be the same as required by the code 
generation phases E50 and E60. The phase 
also generates compiler constants. 

Input 

The input to phase D11 may include the 
following elements: 

1. Statement identifier (6 bytes) with the 
key X 1 EO•• 

2. I/O text (12 bytes) with the key X'EI' 
or X'E4'. 

3. End of statement (6 bytes) with the key 

X* EA' . 


BSR 

: Backspace record 


4. 

Error indicator (2 bytes) with the key 

TASAVA 

: Area where SYS001 table is 
in 

: PIOCS macro instruction 
: Variable counter, entry in 
interface 

: Library usage bytes, entry 

read 


X' EB*. 

WAIT 

IJKMVC 

IJKMLB 

old 

in old 

5. 

Premacros 

Byte (s) Contents 


interface 

ADLIBIN : Part of IJKMLB in new interface. 
IJKMJT : Job communication bytes, entry in 
old communication region 
READ : LIOCS macro instruction 

IJKMBL : Block on work files, entry in old 
communication region 
NOTE : Contains information on input 

work file in old interface 


2- 3 


K = key X'FS* or X'FC*. If K = 
X 1 FC' and K2 is greater than 
X'40*, the text element rep¬ 
resents a function and is moved 
unchanged into the output buf¬ 
fer. 

Length of premacro 1 = 12 
{N+1) +22 C, where C = number of 
constants. 
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4 Number of operands (N) . 

5 K1 

6 K2 

7 K3 

8-12 Not used 

These 12 bytes are followed by the 
operands, each of which has a length of 
12 bytes. Each operand may be followed 
by a 22-byte constant. 

6 . Permutable text elements 

Byte (s) Contents 

1-12 Text element 1 
13 Key X'FE* 

14-16 Not used 
17-28 Text element 2 

Text element 1 is exchanged for text 
element 2. 

7. End of text string, key X*FF*. 

8 . Further F keys 
Byte (s) Contents 

1 F-key other than those des¬ 

cribed above. 

2-3 Length to be skipped (including 

bytes 1-3) . 

4-n Element to be skipped. 

O utput 


Format of the macros 
Byte (s) Contents 
1 X'F2 f 

2-3 Length to be skipped 

4-n Element to be skipped 

Format of the constants 

Byte (s) Contents 

1 X* F3 * 

2-3 Length to be skipped 

4-n Constant to be skipped 

5. Compiler constants have been inserted 
at the beginning of the text string. 


DESCRIPTION OF ROUTINES 

First, the phase evaluates the buffer 
addresses and the buffer lengths. Then the 
input buffer is filled with input text. 

The first output moved into the output 
buffer consists of compiler constants. For 
the scan of the text string the routine 
FETCH is used. The processing of the indi¬ 
vidual input elements is performed by the 
corresponding ACTION routines. 

The routine MOVESO is discussed in the 
description of phase D00. 


The output of phase Dll contains the same 
number of elements as the input. However, 
the following additions and permutations 
have been performed: 

1. After the statement identifier indicat¬ 
ing an entry statement, the assembler 
code CNOP 0,4 has been inserted into 
the text string. 

Format of the code: 

X , F6000780C00004* 

2. After the end of block statement, the 
assembler code 

END OF BLOCK CNOP 0,4 

has been inserted into the text string. 
Format of the code; 

X'F6000380C6000080C00004' 


Symbols used in flow charts : 


LREAD 

LWRITE 

PIN 

OPR 

CURBUF 

K 

MAI 

AA30 

AAP3 


Length that can be read regard¬ 
less of buffer boundaries 
Length that can be written 
regardless of buffer boundaries 
Input pointer 
Output pointer 
Current buffer index 
Key 

Area used to construct the macro 
Area containing the premacro 
Area containing P and Q of the 
operands 


FETCH — HN 


The routine FETCH scans the text string, 
and determines the subscript for calling 
the appropriate ACTION routine for the 
individual input elements. 


3. The text element following the FE-key 
is exchanged with the text element 
preceding the FE-key. The FE-key has 
been changed to X , F7 f . (See Input .) 

4. Premacros (see Inpu t) have been proc¬ 
essed to macros and constants. 


ADMVC — HO 

ADMVC increments and tests the variable 
counter of the compiler. If more than 
641536 variables are counted, the current 
statement is skipped and an error message 
is inserted into the text string. 
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ACTIONO — HP 

The statement identifier is saved by STIN. 
If this statement identifier indicates an 
END statement, switch ACTIO is set to zero. 
If this statement identifier indicates an 
entry statement, CNOP 0,4 is generated. 


A CTION1, -4 — HQ 

The text element is either an operand 
(which is moved unchanged into the output 
buffer) or information on I/O statements 
(which is required for the routine ADIOST 
(see MASU (X) ) . 

ACTION2, 3, 5-9, 12-15, 25, 27 

These routines are not available sincethe 
corresponding text elements cannot occur in 
the text string. 

A CTION10 - HR 

This routine is used when the end of a 
statement is detected. The text element is 
moved unchanged into the output buffer. If 
the statement was an end-of-block 
(ACT10=0) , the assembler code 

'END OF BLOCK' CNOP 0,4 

is generated. 

ACTION1 1, 16-20, 22-24, 26, 29 

The text element is moved unchanged into 
the output buffer. 

ACTION2 8 — HS 

The text element is either a function call 
(moved unchanged into the output buffer) or 
a decimal arithmetic macro (processed like 
in ACTION21) 

A CTION3 0 — HT 

The permutable text element is exchanged as 
described under Input . 

ACTION31 — HU 

This routine detects the end of the input 
text and initiates the calling of the next 
p hase . 

A CTION21 — HV, HW 

ACTION (21) performs the main objective of 
phase Dll, the generation of macros. 


HV/D3 If the macro to be generated is the 
decimal compare macro, the number of 
operands N will be set to 3. The 
premacro contains two operands but 
the macro must have three. The 
third operand OP1 must not contain 
any information. 

HV/F4 The pointers are set: PI pointer to 
the macro generation area, P2 poin¬ 
ter to the premacro (input) , P3 
pointer to P-Q-save area. 

HV/H4 Byte 8 of the operand is extended to 
one word and stored in P3. 

HV/J4 Byte 9 of the operand is extended to 
one word and stored in P3+4. 

HV/J1 If SWY is unequal to 0, OP1 was 

followed by a constant or the macro 
contains more than one operand. If 
OP (1) is not followed by a constant, 
the bytes addressed by P2+7 and 
AA30+31 must have the same contents: 
because in the routine MASU (X) 
AA30+31 will be used for P2+7. If 
the contents of these bytes are not 
identical to each other, one byte is 
moved. 

HW/B3 SW1=15: a decimal macro is generat¬ 
ed. 

HW/B4 Normally, the operands of the prema¬ 
cro are given in the sequence OP (N) , 
OP (2) , OP1. The operands of the 
decimal premacros are given in the 
sequence 

OP (1) , OP (N) OP (2) (N = 2 or 3) . 

Therefore, the operand in the macro 
generation area and P, Q in P-Q-save 
area must be rearranged. 

HW/E3 X is determined by using table TAB1. 
If X exceeds 18, the appropriate 
element of TAB1 contains an offset 
pointing to routine MASU (X) , which 
then constructs the macro. If X 
does not exceed 18, the appropriate 
element of TAB1 contains the length 
of the macro. 


ADMACO — HX 

Routine ADMACO moves the constants follow¬ 
ing the operands of a premacro into the 
output buffer. 

MASU (X) 

The routines MASU (X) refer to several macro 
keys. The relation between the macro key 
and the routine name is given by the table 
TAB1 shown in Figure 1. 
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r 

L 

Macro Key 

-T- 

1 

1 

--I-- 


MASU (X) 

- T- 

1 

1 

4~ 

MACRO 

“1 

_1 

r 


T 




T 


1 


0 

1 

DC 

ALl 

(ADBASC-MASU) 

1 

BINARY ADDITION 



1 

1 

DC 

AL1 

(ADBASC-MASU) 

1 

BINARY SUBTRACTION 



2 

1 

DC 

AL1 

(16) 

1 

BINARY MULTIPLICATION WITH O.C. 



3 

1 

DC 

AL1 

(ADBOIV-MASU) 

1 

BINARY DIVISION 



4 

1 

DC 

AL1 

(10) 

1 

BINARY NEGATION 



5 

1 

DC 

AL1 

(ADASSI-MASU) 

1 

ASSIGNMENTS 



6 

1 

DC 

AL1 

(4) 

1 

BINARY ASSIGNMENT WITHOUT O.C. 



7 

1 

DC 

AL1 

(4) 

1 

BINARY EXPONENTIATION 



8 

1 

DC 

AL1 

(ADBASC-MASU) 

1 

BINARY COMPARISON 



9 

1 

DC 

AL1 

(ADMULI-MASU) 

1 

BINARY MULTIPLICATION WITHOUT O.C. 



10 

1 

DC 

AL1 

(4) 

1 

FREE 



11 

1 

DC 

AL1 

(4) 

1 

FREE 



12 

1 

DC 

ALl 

(ADI OST-MASU) 

1 




13 

1 

DC 

AL1 

(4) 

1 

FREE 



14 

1 

DC 

AL1 

(4) 

1 

FREE 



15 

1 

DC 

AL1 

(4) 

1 

FREE 



16 

1 

DC 

AL1 

(ADD ARI-MASU) 

1 

DECIMAL ADDITION 



17 

1 

DC 

AL1 

(ADDARI-MASU) 

1 

DECIMAL SUBTRACTION 



18 

1 

DC 

AL1 

(ADDMUU-MASU) 

1 

DECIMAL MULTIPLICATION 



19 

1 

DC 

AL1 

(ADDIV-MASU) 

1 

DECIMAL DIVISION 



20 

1 

DC 

AL1 

(ADDNEG-MASU) 

1 

DECIMAL NEGATION ONE OP. 



21 

1 

DC 

AL1 

(ADDSHI-MASU) 

1 

DECIMAL ASSIGNMENT 



22 

1 

DC 

AL1 

(ADNEG1-MASU) 

1 

DECIMAL NEGATION,TWO OP. 



23 

1 

DC 

AL 1 

(4) 

1 

DECIMAL EXPONENTIATION 



24 

1 

DC 

AL1 

(ADDARI-MASU) 

1 

DECIMAL COMPARISON 



25 

1 

DC 

AL1 

(4) 

1 

FREE 



26 

1 

DC 

AL1 

(4) 

1 

FREE 



27 

1 

DC 

AL1 

(4) 

1 

FREE 



28 

1 

DC 

ALl 

(4) 

1 

FREE 



29 

1 

DC 

AL1 

(4) 

i 

FREE 



30 

1 

DC 

ALl 

(4) 

1 

FREE 



31 

1 

DC 

ALl 

(ADUNA-MASU) 

1 

UNARY PLUS 



32 

1 

DC 

ALl 

(16) 

1 

SHORT FL.ADDITION 



33 

1 

DC 

ALl 

(16) 

1 

SHORT FL.SUBTRACTION 



34 

1 

DC 

ALl 

(16) 

1 

SHORT FL.MULTIPLICATION 



35 

1 

DC 

ALl 

(16) 

1 

SHORT FL.DIVISION 



36 

1 

DC 

ALl 

(16) 

1 

SHORT FL.NEGATION,20P. 



37 

1 

DC 

ALl 

(10) 

1 

SHORT FL.NEGATION,1 OP. 



38 

1 

DC 

ALl 

(16) 

1 

SHORT FL.ASSIGNMENT 



39 

1 

DC 

ALl 

(4) 

1 

SHORT FL.EXPONENTIATION 



40 

1 

DC 

ALl 

(16) 

1 

SHORT FL.COMPARISON 



41 

1 

DC 

ALl 

(4) 

1 

SHORT FL.GENERAL EXPONENTIATION 



42 

1 

DC 

ALl 

(4) 

1 

FREE 



43 

1 

DC 

ALl 

(4) 

1 

FREE 



44 

1 

DC 

ALl 

(4) 

1 

FREE 



45 

1 

DC 

ALl 

(4) 

1 

FREE 



46 

1 

DC 

ALl 

(4) 

1 

FREE 



47 

1 

DC 

ALl 

(4) 

1 

FREE 



48 

1 

DC 

ALl 

(16) 

1 

LONG FL.ADDITION 



49 

1 

DC 

ALl 

(16) 

1 

LONG FL.SUBTRACTION 



50 

1 

DC 

ALl 

(16) 

1 

LONG FL.MULTIPLICATION 



51 

1 

DC 

ALl 

(16) 

1 

LONG FL.DIVISION 



52 

1 

DC 

ALl 

(16) 

1 

LONG FL.NEGATION,2 OP. 



53 

1 

DC 

ALl 

(10) 

1 

LONG FL.NEGATION 1 OP. 



54 

1 

DC 

ALl 

(16) 

1 

LONG FL.ASSIGNMENT 



55 

1 

DC 

ALl 

(4) 

1 

LONG FL.EXPONENTIATION 



56 

1 

DC 

ALl 

(16) 

1 

LONG FL.COMPARISON 



57 

1 

DC 

ALl 

(4) 

1 

LONG FL.GENERAL EXPONENTIATION 



58 

1 

DC 

ALl 

(4) 

1 

FREE 



59 

1 

DC 

ALl 

(4) 

1 

FREE 



60 

1 

DC 

ALl 

(4) 

1 

FREE 



61 

1 

DC 

ALl 

(4) 

1 

FREE 



62 

1 

DC 

ALl 

(4) 

1 

FREE 


L. 


. 1 . 

_ 


- 

_ i. 
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r — 

: “ 

T‘ 




- T - 


— - 1 


63 

1 

DC 

AL1 

(4) 

1 

FREE 



64 

1 

DC 

AL1 

(ADCHOP-MASU) 

1 

CHAR.STR.CONCATENATION 



65 

1 

DC 

AL1 

(4) 

1 

CONVERSION,ACTION 4 



66 

1 

DC 

AL1 

(4) 

1 

CONVERSION,ACTION 5 



67 

1 

DC 

AL1 

(4) 

1 

CONVERSION, ACTION 6. 



68 


DC 

AL1 

(4) 

1 

FREE 



69 

1 

DC 

AL1 

(4) 

1 

FREE 



70 

1 

DC 

AL1 

(4) 

1 

FREE 



71 

1 

DC 

AL1 

(4) 

1 

FREE 



72 

1 

DC 

AL1 

(4) 

1 

FREE 



73 

1 

DC 

AL1 

(4) 

1 

FREE 



74 

1 

DC 

AL1 

(4) 

1 

FREE 



75 

1 

DC 

AL1 

(4) 

1 

FREE 



76 

1 

DC 

AL1 

(4) 

t 

FREE 



77 

1 

DC 

AL1 

(4) 

1 

FREE 



78 

1 

DC 

AL1 

(4) 

1 

FREE 



79 

1 

DC 

AL1 

(4) 

1 

FREE 



80 

1 

DC 

AL1 

(4) 

1 

CONVERSION 0 



81 

1 

DC 

AL1 

(4) 

1 

CONVERSION 1 

f 


82 

1 

DC 

AL1 

(4) 

1 

CONVERSION 2 



83 

1 

DC 

AL1 

(4) 

1 

CONVERSION 3 



84 

1 

DC 

AL1 

(4) 

1 

CONVERSION 4 



85 

1 

DC 

AL1 

(4) 

1 

CONVERSION 5 



86 

1 

DC 

AL1 

(4) 

1 

CONVERSION 6 



87 

1 

DC 

AL1 

(4) 

1 

CONVERSION 7 



88 

1 

DC 

AL1 

(ADCHAP-MASU 

1 

CHAR,S TR,COMPARISON 



89 

1 

DC 

AL1 

(16) 

1 

SHIFT AR.SINGLE RIGHT 



90 

1 

DC 

AL1 

(16) 

1 

SHIFT AR.SINGLE LEFT 



91 

1 

DC 

AL1 

(16) 

1 

SHIFT AR.DOUBLE RIGHT 



92 

1 

DC 

AL1 

(16) 

1 

SHIFT AR. DOUBLE LEFT 



93 

1 

DC 

AL1 

(4) 

1 




94 

1 

DC 

AL1 

(4) 

1 

FREE 



95 

1 

DC 

AL1 

(4) 

1 

FREE 



96 

1 

DC 

AL1 

(4) 

1 

FREE 



97 

1 

DC 

AL1 

(4) 

1 

FREE 



98 

1 

DC 

AL1 

(4) 

1 

FREE 



99 

1 

DC 

AL1 

(ADBSIP-MASU) 

1 

BIT STR.NOT,2 OP. 



100 

1 

DC 

AL1 

(ADDING-MASU) 

I 

BIT STR.NOT,1 OP. 



101 

1 

DC 

AL1 

(ADBISA-MASU) 

1 

BIT STR.ASSIGNMENT 



102 

1 

DC 

AL1 

(ADBSOP-MASU) 

1 

BIT STR.AND 



103 

1 

DC 

AL1 

(ADBSOP-MASU) 

1 

BIT STR.OR 



104 

1 

DC 

AL1 

(ADBASA-MASU) 

1 

BIT STR.COMPARISON 



105 

1 

DC 

AL1 

(16) 

1 

SHIFT LO.SINGLE RIGHT 



106 

1 

DC 

AL1 

(16) 

1 

SHIFT LO.SINGLE LEFT 



107 

1 

DC 

AL1 

(16) 

1 

SHIFT LO.DOUBLE RIGHT 



108 

1 

DC 

AL1 

(16) 

1 

SHIFT LO.DOUBLE LEFT 



109 

1 

DC 

AL1 

(4) 

1 

FREE 



110 

1 

DC 

AL1 

(4) 

1 

FREE 



111 

1 

DC 

AL1 

(4) 

1 

FREE 



112 

1 

DC 

AL1 

(4) 

1 

BRANCH ON CONDITION 



113 

1 

DC 

AL1 

(ADRTLC-MASU) 

1 

RETURN TO LABEL CONSTANT 



114 

1 

DC 

AL1 

(7) 

1 

DEFINE LABEL 



115 

1 

DC 

AL1 

(4) 

1 

FREE 



116 

1 

DC 

AL1 

(4) 

1 

FREE 



117 

1 

DC 

AL1 

(ADRTLC-MASU) 

1 

ASSIGN LABEL CONST. 



118 

1 

DC 

AL1 

(16) 

1 

POINTER ASSIGNMENT 



119 

1 

DC 

AL1 

(4) 

1 

FREE 



120 

1 

DC 

AL1 

(16) 

1 

POINTER COMPARISON 



121 

1 

DC 

AL1 

(4) 

1 

FREE 



122 

1 

DC 

AL1 

(ADIF-MASU) 

1 

IF-MACRO 



123 

1 

DC 

AL1 

(4) 

1 

FREE 



124 

1 

DC 

AL1 

(4) 

1 

FREE 



125 

1 

DC 

AL1 

(ADUNA-MASU) 

1 

UNARY PLUS 



126 

1 

DC 

AL1 

(4) 

1 

FREE 



127 

1 

DC 

AL1 

(4) 

1 

FREE 



128 

1 

DC 

AL1 

(11) 

1 

RETURN TO 1.VARIABLE 


L_ 


_X- 




_X. 







200 






PL/I PLM 8 


IBM Confidential 


129 

| DC 

AL1 (10) 

130 

| DC 

AL1 (4) 

131 

j DC 

AL1 (16) 

132 

| DC 

AL1 (16) 

133 

j DC 

AL1 (11) 

134 

| DC 

AL1(ADBASA-MASU) 

135 

j DC 

AL1 (4) 

136 

| DC 

AL1 (4) 

137 

| DC 

AL1 (4) 

138 

j DC 

AL1 (4) 

139 

j DC 

AL1 (4) 

140 

j DC 

AL1 (4) 

141 

| DC 

AL1 (4) 

142 

j DC 

AL1 (4) 

143 

j DC 

AL1 (4) 

144 

j DC 

AL1 (ADCALL-MASU) 

145 

| DC 

AL1 (4) 

146 

j DC 

AL1 (4) 

147 

| DC 

AL1 (16) 

148 

| DC 

AL1 (16) 

149 

j DC 

AL1 (16) 

150 

j DC 

AL1 (4) 

151 

j DC 

AL1 (4) 

152 

| DC 

AL1 (4) 

153 

j DC 

AL1 (4) 

154 

j DC 

AL1 (4) 

155 

| DC 

AL1 (4) 

156 

| DC 

AL1 (4) 

157 

| DC 

AL1 (4) 

158 

j DC 

AL1 (4) 

159 

| DC 

AL1 (4) 

160 

j DC 

AL1 (4) 

161 

| DC 

AL1 (4) 

162 

j DC 

AL1(ADOVLA-MASU) 

163 

| DC 

AL1 (16) 

164 

| DC 

AL1 (16) 

165 

j DC 

AL1 (11) 

166 

| DC 

AL1 (4) 

167 

j DC 

AL1 (4) 

168 

j DC 

AL1 (4) 

169 

| DC 

AL1 (4) 

170 

| DC 

AL1 (4) 

171 

| DC 

AL1 (4) 

172 

| DC 

AL1 (4) 

173 

| DC 

AL1 (4) 

174 

j DC 

AL1 (4) 

175 

j DC 

AL1 (4) 

176 

1 DC 

AL1 (4) 

177 

| DC 

AL (ADSECO-MASU) 

178 

j DC 

AL1 (4) 

179 

j DC 

AL1 (16) 

180 

j DC 

AL1 (16) 

181 

j DC 

AL1 (4) 

182 

j DC 

AL1 (4) 

183 

| DC 

AL1 (4) 

184 

j DC 

AL1 (4) 

185 

j DC 

AL1 (4) 

186 

j DC 

AL1 (4) 

187 

j DC 

AL1 (4) 

188 

j DC 

AL1 (4) 

189 

j DC 

AL1 (4) 


L_-L_X_ 

Figure 1• Table TAB1 Used to Find MASU (X) 


RETURN TO INVARIABLE 

FREE 

FREE 

FREE 

ASSIGN LABEL /• 

ASSIGN CHAR.STR. 

FREE 

FREE 

FREE 

FREE 

FREE 

INITIAL 

FORMAT 

LOAD TRANSMIT 

FREE 

CALL 

RETURN 

PROLOGUE 

STM 

STD 

MOVE ADDRESS 
DO BEGIN 
DS 

ARRAY EXPR.BEGIN 

FREE 

FREE 

FREE 

LOAD VARIABLE 
SET BYTE 
MOVE 
FREE 

LIBRARY CALL (1) 
RETURN FUNCTION VALUE 
OVERLAY 
L 

LE 

MVI 

DO END 
DC 

ARRAY EXPR.END 

FREE 

FREE 

FREE 

LOAD DED 
LOAD SCALAR 
LOAD ARRAY 
FREE 

LIBRARY CALL (2) 

SET TRUE ON COND. 

FREE 

LM 

LD 

DEF.RESULT 

FREE 

FREE 

FREE 

FREE 

FREE 

FREE 

LOOP BEGIN 
LOOP END 
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Routines Listed in TAB1 

They generate the individual macros. 

L : Length of the macro 

n : Number of operands 

R1 : Precision of the (n-1) -th operand 

R2 : Scale factor of (n-1) -th operand 

R3 : Precision of the n-th operand 

R4 : Scale factor of the n-th operand 

LABEL : Label taken from IJKMVC 

SO : The location after the n operands 

of the macro 

{R1-R2}-> SO (2 bytes) 

means R1-R2 will be inserted with 
a length of two bytes into loca¬ 
tion SO. 

A DBASC 

Used for binary addition, subtraction, and 
comparison 

L = 18 

{R1-R2}-> SO (2 bytes) 

ADBOIV 

Used for binary division 
L = 18 

{R3+1} -> SO (2 bytes) 


10-11 attributes 

12 E4 

13 P 

14 Q 


ADDARI 

Used for decimal addition, subtraction, 
comparison. 

L = 28 

{FLOOR ( (R3 + 2) /2) }-> SO 

{FLOOR ( (R1 + 2) /2) }- >SO+1 

{Byte (3) from stmnt. identifier}-> SO+4 

{N-R4} -> SO+2 

{N-R2} -> SO+3 

{LE} -> SO+5 

N is given by AAP3+20 

LE is given by AA30+19. 


ADDMU 

Used for decimal multiplication 
L = 27 

{FLOOR ((R3 + 2) /2) }- >SO 

{FLOOR ( (R1 +2) /2) }-> SO+1 

{Byte (3) from stmnt. identifier}-> SO+4 

{LE} -> SO+2 

ADDIV 


ADASSI 

Used for assignments except the decimal 
fixed, the bit string, and the label 
assignment. No macro will be constructed. 
The premacro is used only for generation of 
constants if necessary. 

ADMULI 

Used for binary multiplication 

a. if overflow must be checked: 

Macro key : X , 02* L = 16 

b. if overflow must not be checked: 

Macro key : X'09 1 L = 16 

if OP1 is given by a register R, the 
preceding register R-1 is used as the 
operand. 

ADIOST 


Used for decimal division 
L = 25 

{FLOOR ((R3 + 2) /2) }- >SO 

{FLOOR ( (R1 +2) /2) }- >SO+1 

{Byte (3) from stmnt. identifier}-> SO+4 

{15-R3}-> SO+2 

ADDNEG 

Used for decimal negation with one operand, 
overlay, and if-macros. 

L = 11 . 

{LE} -> SO 

LE is given by AA30+19 

ADDSHI 

Used for decimal assignment 
L = 21 

{FLOOR ((R3 + 2) /2) }-> SO 

{FLOOR ((R1 + 2) /2) }->SO+1 

{Byte (3) from stmnt. identifier}-> SO+4 

{R4-R2} > SO+2 


No macro but a text element which must be ADNEG1 

generated in connection with I/O state- 


ments. 

The 

element has the format 

Used for decimal negation with 

two operands 




L = 18 




bytes 

0 

F7 

[FLOOR 

((R3+2) /2) } 

-> SO 



1-2 

0010 

[FLOOR 

( (R1 + 2) /2) } 

-> SO+1 



3 

10 






4-5 

name 

ADUNA 





6 

E4 






i 

00 

modifier 

Used for prefix plus. 

No macro 

will be 


9 

E4 

generated. 




w 
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ADCHOP 

Used for character string concatenation 
L = 24 

{R3} -> SO 

{R1} -> SO+1 

A DCHAP 

Used for character string comparison 


{R3} 


- 

—> so 


{Rl} 


—■ 

— > SO+1 

a. 

if 

Rl 

= R3 





L = 

18 

b. 

if 

Rl 

* R3 





L = 

24 


third operand : GWO 
{GWO}-> SO+2 (6 bytes) 

ADBSIP 

Used for 'bit string not* with two operands 
L = 19 

{LI} -> SO 

{M} > SO+2 

LI is given by AA30+31 
M is a mask depending on R3. 

A DDNIG 

Used for 'bit string not' with one operand 
L = 13 

{LI} -> SO 

{M} > SO+2 

LI is given by AA30+19 
M is a mask depending on Rl. 

ADBISA 

Used for bit string assignment 
L = 19 

{L2} > SO+1 

L2 is given by AA30+19 
Otherwise identical to ADBSIP. 

A DBSOP 

Used for bit string 'and' and 'or' 

L = 18 

a. if Rl does not exceed R3 

{LI}-> SO 

{L2}-> SO+1 


b. if Rl exceeds R3 

{LI}-> SO+1 

{L2}-> SO 

0P1 and 0P2 are exchanged. 
LI is given by AA30+31 
L2 is given by AA30+19. 


ADBASA 

Used for bit string comparison and charac¬ 
ter string assignment 
L = 18 

{LI} -> SO 

{L2} -> SO+1 

ADRTLC 

Used for return to label constant and 
assign label constant. 

L = 25. 

ADIF 

Used for IF macro. 

L = 17. 

Otherwise identical to ADDNEG. 

ADCALL 

Used for the CALL macro 

1. The number of parameters N is inserted 
preceding the operands. 

2. The macro identification =X'90' is 
inserted. 

3. The length of the macro is calculated 

(L = (N+2) *6-1) and inserted. 

4. The second operand is also used as the 
(n+1)-th operand. 

5. If the first operand is extern, 0P1 DC 
V (0P1) is generated. 

ADSECO 

Used for the set true on condition macro 
L = 14 

{LABEL} -> SO (2 bytes) 

Byte AA30+6 will be inserted preceding the 
operands. 


Phase PL/ID11 
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PHASE PL/ID15 (EVALUATION OF SUBSCRIPTS) — JA 




This phase evaluates the subscripts. If 
the subscripts are constants, evaluation is 
optimized as far as possible. In addition, 
this phase generates the macro instructions 
required for the format label assignments. 
The phase is skipped if there are no arrays 
and no format labels in the source program. 



must be always 
a register 


P hase Input 

The text input string may contain informa¬ 
tion marked by one of the keys listed 
below. The input string is skipped or 
processed depending on the key found (see 
Figure 1) . 


Key 

|Meaning 

i 

l 

jSkippable Length 
jif not Processed 

i 

E0 

+ 

|Begin of state- 

T 

1 


jment 

(Implied: 6 bytes 

EA 

|End of state- 

i 


jment 

(Implied: 6 bytes 

EB 

|Error informa- 

i 


j tion 

|Implied: 2 bytes 

F2 

|Possible format 

jProcessed. For 


jlabel assign- 

jstring format see 


jment 

jFigure 2. 

FC 

jArray 

jProcessed. For 

FFFF 

i 

i 

|End of program 

jstring format see 
(Figure 3. 

1 

Other 

j Of no interest 

(Skippable length 

F-keys 

1 

(contained in the 


1 

1 

r _ 

|2 bytes following 
jthe key. 

x . 


Figure 1. Keys Scanned in the Input Text 
String 


SUBSCRIPT3 

CONSTANT j 


SUBSCRIPT2 

— I 

CONSTANT j 


SUBSCRIPTS 

CONSTANT j 



ARRAY NAME 



Figure 3. Format of Input String Marked by 
FC-Key 


Phase Output 

During the scan through the text, the 
information marked by an FC-key is checked 
for subscripts. If subscripts are found, 
the corresponding macro instructions are 
generated and put out. If a label assign¬ 
ment macro instruction is detected, it is 
modified to format label assignment if the 
label operand is a format name. This is 
checked by searching the corresponding name 
table. All other information is put out 
unchanged. 





E 

Skipp. 

Length 

75 

OP1 

OP2 

OP3 

OP4 


Figure 2. Format of Input String Marked by F2-Key 
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Generated Macro Instructions 


Multiply Half-word 


OP1 


Calling Sequence: MH R,OP1 

2. Add -- AMAK 

F2 )3j012 00 OP1 Ol 

Calling Sequence: 

a. if 0P2 register 

AR 0P1, 0P2 

b. if 0P2 storage 

A 0P1, OP2 

3. Load — LMAK 

F2 0010 A3 R 

Calling Sequence: 

If OP2 = register 
LR R, OP 2 

if OP2 = storage 
L R,0P2 

4. Move Address — MOVMAK 


TARGET REGISTER 


SUBSCRIPT X 


ARRAY NAME 


CONSTANT j 


Figure 4. Input String (1-Dimensional 
Array) 

A = array number (used to find the 
corresponding entry in the array 
table) . The array table entry has the 
format shown in Figure 5, 



F2 I 0010 95 


Calling sequence: 

a. if 0P1 = register 

LA 0P1,0P2 

b. if 0P1 = storage 

LA 5,0P2 
ST 5,OP 1 

5. Format label assignment macro instruc¬ 
tion 


F2 | 0010 I 95 | _OP1_I_ OP2 

For a description see the generator 
phases E50-E61. 


Ev aluation of S ubsc ript ed Variables 


Figure 5. Format of Array Table Entry 
for 1-Dimensional Array 


The element A (X) is determined as fol¬ 
lows: 

A (X) = A (1) + FO + L * X 

If X is a constant, L * X is computed 
during compilation and added to FO. In 
this case, the code produced is: 

LA REG,A (1) 

A REG,FO 

Otherwise, the code produced is: 



L 

REG, X 

Arrays with 1 dimension: 

MH 

REG, L 


A 

REG, FO 

In the input string, the subscript 

LA 

R5, A (1) 

appears in the form shown in Figure 4. 

AR 

REG, R5 
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Arrays with 2 dimensions; 


A (X, Y) =A (1,1) +F0+L (Y+B2*X) 


If there are two subscripts, the input 
string has the format shown in Figure 

6 . 


FC Length 03 15 


The code produced is: 

L REG,X 

MH REG,B2 

A REG,Y 

MH REG,L 

A REG,F0 

LA R5, A (1, 1) 

AR REG,R5 


TARGET REGISTER 


constant, Y = variable 


A (X, Y) =A (1,1) + F0+L^B2fX + L*Y 


SUBSCRIPT Y 


CONSTANT 


L * B2 * X is computed during com¬ 
pilation and added to FO. 


SUBSCRIPT X 


ARRAYNAME 


CONSTANT Jj 


The code produced is: 


REG , Y 
REG, L 
REG,F0 
R5,A(1,1) 
REG,R5 


LR if Y register 


Figure 6. Input String (2-Dimensional 
Array) 

The corresponding entry in the array 
table has the format shown in Figure 7. 



Y = constant, X = variable 

A (X, Y) =A (1 , 1) +F0+L*Y+L*B2*X 

L * Y is computed during compila¬ 
tion and added to FO. 

The code produced is: 

L REG,X 

MH REG,L*B2 
A REG,F0 

LA R5 , A (1, 1) 

AR REG,R5 


d. X and Y = constants 


A (X,Y) =A (1,1) +F0 + L*Y+L*B2*X 


Figure 7. Format of Array Table Entry 
for 2-Dimensional Array 

The code produced for evaluation of 
A (X,Y) depends upon the subscripts X 
and Y. The following 4 cases are pos¬ 
sible: 

a. X and Y = variables 


L * Y and L * B2 * X are computed 
during compilation and added to FO, 

The code produced is: 

LA REG, A (1,1) 

A REG,F0 


Arrays with 3 dimensions: 

If there are 3 subscripts, the input 
string has the format shown in Figure 

8 . 
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< 




0 

Length 

£4 

15 


A 

x 


TARGET REGISTER 


SUBSCRIPT Z 

CONSTANT Z J 


SUBSCRIPT Y 

1 

CONSTANT Y j 


SUBSCRIPT X 

CONSTANT X j 



| ARRAY NAME 


b. X = constant, Y and Z = variables 


A(X,Y,Z) =A( 1,1,1) +F0 + L*B3*B2*X +L (Z + B3*Y) 

L * B3 * B2 * X is computed during 
compilation and added to FO. 

The code produced is: 

L REG,Y 

MH REG,B3 

A REG,Z 

MH REG,L 

A REG, FO 

LA R5 , A (1 , 1, 1) 

AR REG,R5 

c. Y = constant, X and Z = variables 

A (X, Y,Z) =A (1,1,1) +F0 + 

L*B3*Y +L (Z + B3*B2*X) 


Figure 8. Input string (3-Dimensional 
Array) 


L * B3 * Y is computed during com¬ 
pilation and added to FO. 

The code produced is: 


The corresponding entry in the array 
table has the format shown in Figure 9. 



Figure 9. Format of Array Table Entry 
for 3-Dimensional Arrays 


The code produced to evaluate the ele¬ 
ment A (X,Y,Z) is optimized as follows: 


L REG,X 

MH REG,B3*B2 

A REG,Z 

MH REG,L 

A REG,F0 

LA R5, A (1,1,1) 

AR REG,R5 

d. Z = constant, X and Y = variables 

A (X, Y,Z) =A(1 ,1,1) +F0+L*Z+L*B3 (Y+B2* X) 

L * Z is computed during compila¬ 
tion and added to FO. 

Code produced is: 


L 

REG,X 

MH 

REG,B2 

A 

REG, Y 

MH 

REG,L * B3 

A 

REG,F0 

LA 

R5, A (1,1,1) 

AR 

REG,R5 


e. X and Y = constants, Z = variable 


a. X, Y, and Z = variables 


A (X, Y, Z) =A (1, 1 ,1) +F0+ L*B3*Y + L*B3*B2*X +L*Z 


A (X, Y, Z) = A (1,1, 1) +F0 + L (Z+B3 (Y+B2*X) 


L * B3 * Y and L * B3 * B2 * X are 


The code produced is: computed during compilation and 


L 

REG,X 

added to FO. 

MH 

REG,B2 



A 

REG, Y 

The 

code produced 

MH 

REG,B3 



A 

REG, Z 

L 

REG, Z 

MH 

REG,L 

MH 

REG,L 

A 

REG,FO 

A 

REG,F0 

LA 

R5,A (1,1,1) 

LA 

R5,A (1,1,1) 

AR 

REG,R5 

AR 

REG,R5 
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f. X and 

Z = constants, Y = variable 

IREC 

: 

Switch indicating the number 





of records to be read 

MX,Y,Z) =M1,1 

,1)+F0+L*Z+L*B3*B2*X+L*B3*Y 

OREC 

: 

Switch indicating the number 





of records to be put out 

L * Z 

and L*B3*B2*X are com- 

ONSWIT 

: 

Switch which is set to one if 

puted 

during compilation and added 



phase D17 must be called 

to FO. 


EOS 

: 

End of statement 



BUFFL 

: 

Buffer length 

The code produced is: 

SLENG 

: 

Skippable length 



SAVRO, T 

: 

Save buffers for registers 

L 

REG, Y 

COLE 

: 

Constant length 

MH 

REG,L*B3 

ADBL 

: 

Pointer to array name 

A 

REG,FO 

TRBYT 

: 

1-byte entry used to hold 

LA 

R5 ,A (1,1,1) 



type of subscripted Variable 

AR 

REG,R5 

STABL 

: 

Contains frame for X'E9' 





operand 



FDCO 

: 

Contains frame for X'FD' 

q. Y and 

Z = constants, X = variable 



operand 



AMAK 

; 

Add macro 

MX f Y,Z)=A(1,1 

,1) +F0+L*Z+L*B3*Y+L*B3*B2*X 

MHMAK 

2 

Multiply-halfword macro 


L * Z and L * B3 * Y are computed 

during compilation and added to FO. INIT 1 — JB 


The code produced is: 

L REG,X 

MH REG,L*B3*B2 

A REG/FO 

LA R5/A (1/1/1) 

AR REG/R5 


h. X/ Y/ and Z = constants 


The routine tests for arrays or format 
labels in the current compilation. If an 
array or format label is found/ the corres¬ 
ponding routine is called in order to read 
in the array table and/or the format label 
table. The addresses for the 3 input buf¬ 
fers and the 2 output buffers are computed 
and the input and output pointers are set 
to their initial values. 


A (X/Y/Z) =A (1/1/1) +F0+L*Z+L*B3*Y+L*B3*B2*X EOAC T — JC 


The underlined expressions are 
computed during compilation and 
added to FO. 

The code produced is: 

LA REG/A (1/1/1) 

A REG/FO' 


DESCRIPTION OF ROUTINES 

The text input string is read into the 3 
consecutive input buffers IBU1 f IBU2 r and 
IBU3. The array table has a maximum length 
of 384 bytes and is read into the area 
IBU1-384. The format label table has a 
maximum length of 256 bytes and is read 
into the area following the input buffer 
IBU3. The main routine (see general flow 
chart JA) controls the scan of the input 
string and calls the corresponding process¬ 
ing routine. The following symbols are 
used in the individual routines: 


Input: INPT points.to an EO-key. 

The routine resets the error switch 
ERRSW and clears the error stack ERROSTK. 
The begin of statement (6 bytes) is put out 
and the input pointer is adjusted. 

EAACT — JD 

Input: The input pointer INPT points to an 
EA-key. 

The key EA indicates the end of state¬ 
ment. If the error switch ERRSW is not 
zero, a bit is set to indicate that execu¬ 
tion is to be deleted, and both the end-of- 
statement and the error stack ERROST are 
put out. Otherwise, only the end of state¬ 
ment is put out. 

EBAC T --JE 

The error message marked by the EB-key is 
put out and the input pointer is increased. 

ASKIP — JF 


IBU1, 2, 3 : 

Input buffers 1, 2, 3 

OBU1, 2 : 

Output buffers 1, 2 

INPT : 

Input pointer 

OPT : 

Output pointer 


This routine is required to move input 
information to the output. It increases 
the input pointer by means of the skip 
routine SKIP. 
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S KIP — JG 

Input parameter: Reg 0 contains the length 
by which the input pointer is to be 
increased. 

The input pointer is increased by the 
specified length and checked as follows: 

r- t-T-1 

| Bufferl | Buffer2 | Buffer3 j 

L- X-X_J 

A A A A 


IBU1 IBU2 IBU3 0BU1 

If the input pointer points to one of 
the buffers 2 or 3, the buffers 2 or/and 3 
are shifted to the left and the input poin¬ 
ter is updated accordingly. Then, the next 
records are read into the buffers 2 or/and 
3. 


RE ADIN — J H 

Input parameter: IREC (1 byte) indicates 
the number of records to be read into the 
input buffers. 

This subroutine controls the reading of 
the input string into the input buffers. 

M 0V31 — JI 

The subroutine moves the contents of the 
input buffer IBU3 into IBCJ1. 

M 0V21 -- JI 

The subroutine shifts the contents of the 
two input buffers by one buffer length to 
the left in the first input buffer. 

M 0V r Q21 -- J I 

The subroutine moves the contents of the 
second output buffer into the first output 
buffer. 

MOVOUT -- J J 

Input parameters: REGO contains the length 
to be moved. REG1 contains the address of 
the field to be moved. 

The routine moves the input string or 
the data specified in REGO and REG 1 into 
the output buffer and transfers control to 
the routine OUT. 

O UT — JK 

RO contains the length by which the output 
pointer OPT is to be increased. The rou¬ 
tine updates the output pointer and, if the 
buffer is full, the record is written. 


EOPACT — JL 

The input pointer INPT points to the end- 
of-program (EOP) key. The routine writes 
the last record onto the work file and 
tests whether or not the next phase D17 is 
to be called. Phase D40 is called if phase 
D17 is skipped. 


IJKNN — JH 

The routine fetches a name from IJKMVC in 
the communication region and stores it in 
NAME. The name counter is increased by 1 
and restored into the communication region. 
If the name counter becomes greater than 
64K, an error message is generated. 


ARRTA B — JN 

The routine reads the array table from the 
work file into the area following the 
output buffers. 


FORMT k B — JO 

The format label table is read from the 
work file into storage. 

LABEL A S — JP 

The macro instruction is tested for label 
assignment. If it is a label assignment, 
the label operand is tested for format 
label by searching the format label table. 
When the label name is found in the label 
•table, the macro instruction is modified to 
a format label macro instruction. 

S UBSC R — JQ 

The subroutine controls the evaluation of 
subscripted variables. It calls the error 
check routines and the routines that gener¬ 
ate the macro instructions. 

INITSUB — JR 

The subroutine initializes the evaluation 
of subscripts. The array number is used to 
find the corresponding entry in the array 
table. (See the description of the input 
string.) 

DIMCH K — JS 

Depending on the number of subscripts, the 
routine calls the appropriate routine to 
test the array table entry. 

CHECK 3 , 4, 5 -- JT 

The routines test the array table entry. 

If it contains an invalid number of dimen¬ 
sions, the error routine is called. 
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TR ACT5 — J U 

The routine calls one of 8 possible actions 
in the case of 3 dimensions (see the sec¬ 
tion Ev al ua tio n of Subs cri p ted Variabl es). 


T RACT4 — JV 

Calls the corresponding action in the case 
of 2 dimensions (see the section Evaluation 
o f Subscripted Var i ables ) . 

I RACT3 — JW 

Calls the corresponding action in the case 
of 1 dimension (see the section Evaluation 
of Subscripted Variable s) . 

TE SCON — J X 

Tests if the subscripts X, Y, and Z are 
constants. 

If X=constant, bit 7 in TRBYT is set to 1. 

If Y=constant, bit 6 in TRBYT is set to 1. 

If Z=constant, bit 5 in TRBYT is set to 1. 

SA CT50 — J Y 

Evaluates A(X,Y,Z) where X,Y,Z = variables 
A (X,Y, Z) =A (1,1, 1) +F0 + L (Z+K (Y+J+X) ) where 

L = length of array element 
K = bound 3 of declared array 
A(I,J,K) 

J = bound 2 of declared array 
A (I, J,K) 

FO = - (C0+C1+C2) 

where CO = L 

Cl = L * K 
C2 = L * K * J 

S ACT51 — JZ 

Evaluates A(X,Y,Z) where X = constant, Y 
and Z = variables. 

S ACT52 — JZ 

Evaluates A(X,Y,Z) where Y = constant, Y 
and Z = variables. 

S ACT53 — J Z 

Evaluates A(X,Y,Z) where Z = constant, X 
and Y = variables. 

SA CT54 -- K A 

Evaluates A(X,Y,Z) where X and Y = con¬ 
stants , Z = variable. 

S ACT55 —.KA 

Evaluates A(X,Y,Z) where X and Z = con¬ 
stants , Y = variable. 


SACT5 6 — KA 

Evaluates A(X,Y,Z) where Y and Z = con¬ 
stants, X = variable. 

SACT57 — KA 

Evaluates A(X,Y,Z) where X, Y, and Z = 
constants. 

MOVG EN — KC 

The routine puts out the constant specified 
by R4 and moves the internal name of the 
constant into the area MAK87. 

CVFISCH — KD 

R4 points to the argument to be converted. 
The routine calls the conversion routine 
and returns the converted constant to R4. 

PMAK87 — KE 

The routine puts out the constant FO and 
moves its internal name into the area 
MAK87. (For a description of FO see 
SAC 5 0). 

MAKGE N — KF 

The routine generates the macro instruc¬ 
tions according to the number N in the area 
MAK87. The contents of MAK87 are shown in 
Figure 10. 



Figure 10. Contents of MAK87 


The code produced is: 

1. if N = 0: LA REG,AO 

A REG,F0 

2. if N = 1: L REG,VI LR if VI register 

MH REG,A1 jr- 

A REG,F0 i 

LA R5,A0 ^ 

AR REG,R5 
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3. if N = 

2: 

L 

REG,VI 

LR 

if VI 

register 



MH 

REG,A1 






A 

REG,V2 

AR 

if V2 

register 



MH 

REG, A.2 






A 

REG,FO 






LA 

R5,A0 






AR 

REG,R5 




4. if N = 

3: 

L 

REG,VI 

LR 

if VI 

register 



MH 

REG,A1 






A 

REG,V2 

AR 

if V2 

register 



MH 

REG,A2 






A 

REG,V3 

AR 

if V3 

register 



MH 

REG,A3 






A 

REG,FO 






LA 

R5,A0 






AR 

REG,R5 




SACT40 — 

KG 






Evaluates 

A (X 

:,*) 

where X 

and 

Y = variables. 

A(X,X) =A(1 

,1) 

+ F0+L (Y+J*X) 




where: L 

= 

length of array 

element 


J = bound 2 in the declared 


array A (I,J) 

FO = - (L + L * J) 

SACT 41 — K G 

Evaluates A (X,Y) where X = constant, 

Y = variable. 

A (X,Y) =A (1,1) +F0+ L*J*X +L*Y 

L* J*X is computed and added to FO. 

S ACT42 — KG 

Evaluates A(X,Y) where Y = constant, 

X = variable. 

A (X, Y) =A (1, 1) +F0+ L*Y +L*J*X 

L * Y is computed during compilation and 
added to FO. 


SACT4 3 — KG 

Evaluates A(X,Y) where X and Y = constants. 
A (X, Y) = A (1,1) +F0 + L* J*X + L* Y 

L * J * X and L * Y are computed during 
compilation and added to FO. 


LJX — KH 

Computes L * K * X and adds the result to 
FO. (For a description of L, K, X and FO 
see S&CT4Q) . 

LY — KH 

Computes L * Y and adds the result to FO. 
SACT3 0 — KI 

Evaluates A (X) where X = variable. 

A (X) = A(1) + FO + L * X where 

L = length of array element 

FO = -L 

SACT3 1 — KI 

Evaluates A (X) where X = constant. 

A (X) = A(1) + FO + L * X 

L * X is computed during compilation and 
added to FO. 

FISCH -- KJ , KL - KO 

The routine converts constants from their 
intermediate representation to binary inte¬ 
ger. The input parameter PIN contains the 
address of the constant entry that contains 
the constant to be converted. Output par¬ 
ameter PIN remains unchanged. The result 
is stored in CONS (4 bytes) . 
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PHASE PL/I D17 (LIBRARY CALL S FOR BUILT-IN FUNCTIONS I) -- LA 


The function of this phase is to generate 
macro instructions for the linkage required 
to call the library built-in functions. 
However, in some cases, the functions are 
evaluated in line, i.e., not via the 
library. If the compilation contains no 
built-in functions, this phase is skipped. 

Ph ase I nput a nd Ou tput 

The text string may contain information 
marked by E or F keys. The formats of the 
various types of information are shown 
below. The E or F key is always contained 
in the first byte of the particular string 
of information. 

1. Begin of statement (six bytes) : EO 

2. End of statement (six bytes): EA 
Last byte contains statement number 

3. Error information (two bytes): EB 

4. Information string containing a library 
built-in function indicated by an FC 
key and X'13* in byte 4. The format of 
the string is as follows: 


a library built-in function) and FF 
(end of program) are skipped. 


All information marked by E and F keys 
(except FC) is written out unchanged. When 
a statement is marked by an FC key, the 
routine determines the library function and 
either generates an appropriate internal 
macro instruction or causes (1) the infor¬ 
mation to be written out unchanged and (2) 
phase D20 to be called. Which of the 
actions is performed is determined by the 
type of library function involved. If the 
input text does not contain functions that 
are to be processed by phase D20, that 
phase is skipped and phase D40 is called. 
The internal macros that may be generated 
during this phase are listed below. In 
addition, the format of the information 
string written out by this phase and the 
calling sequence generated are shown for 
each of the possible macros. 

Internal macros are identified by an F2 
key in the first byte and a macro identifi¬ 
cation in the fourth. The second and third 
bytes indicate the skippable length. 


byte 0 
bytes 1-2 
byte 3 

byte 4 
byte 5 
bytes 6-12 


X’FC' 

skippable length 
number of arguments 
including target 
X' 13* 

internal name 
not used 


The arguments may be constants, varia¬ 
bles, or registers. Variables and 
registers appear in the following form: 


1. LIBRARY CALL: 

j” F2 Io007l BA I E9 I 00 ] LIB*| 

L_X_X_X_X_X_J 

Calling sequence: 

L 15,LIB-name 

BALR 14,15 

2 . 01 : 


byte 

0 

E-key 

bytes 

1-2 

internal name 

bytes 

3-4 

modifier 

bytes 

5-6 

attributes 

byte 

7 

length at object time 

byte 

8-9 

precision (P, Q) 

bytes 

10-12 

not used 


Constants are marked by an E9-key and 
contain the following additional infor¬ 
mation: 


bytes 

0-1 

internal name 

bytes 

2-7 

attributes 

bytes 

8-9 

length of constant 

bytes 

10-22 

intermediate form of 
constant (left-aligned) 


1 - 

1 

1 ^ 

I NJ 

t 

1- 

1 O 1 
1 O 1 
1 O 1 
1 03 1 

1-1 

1 1 

1 03 1 
1 1 

1 1 

j -( 

t I 

t 1 

OP1 

1 

s 1 

1 

1 

- \ 

1 

1 

Calling sequence: 
01 POI,M 

3. MV I : 



[ F2 i 000B J A5 j 

L X X X _ 

OP1 

1 

1 

1- 

1 

! s 

1 


Calling sequence: 
MV I OP 1, M 

4. MOVE MAK9E: 


5. End-of-program key (FFFF) . 

Note: F-keys other than FC (indicating 


r - T - T -1 

J F2 10011j 9E | 

L_X_X_X_ 


~T" 

I 

-X_ 


*T“ 

I 

-X- 


OP1 


OP 2 
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Calling sequence: 

MVC OP1 (L) , OP2 

5. MOVE MAK86: 

\ F2 J0OI2I 86 ] OP1 ] OP2 I LI ] L2 ] 

L-1_X_X-JL_X_X_J 


Calling sequence: 


a. if LI 

< L2: 

MVC 

OP1 (LI) ,OP2 

b. if LI 

> L2: 

MV I 

OP1,X'40' 

MVC 

OP1 + 1 (LI-1) ,OP1 

MVC 

OP1 (L2) , OP2 


6. MOVE ADDRESS MAKO: 

f - T T -T-T-1 

j F2 j 0010 j 95 j OP1 j OP2 | 

L_X X_X_X_J 

Calling sequence: 

a. if OP1 = register 
LA OPl,OP2 


b. if OP 1 = storage 
LA 5,OP2 

ST 5,OP1 

7. SUBSTR MAK88: 


f - T - T - T -T- 1 

| F2 |00101 88 j OP1 | OP2 | 

L_X_X_X_X_J 

Calling sequence: 

LA 5,OP 1 

A 5,OP2 (or AR 5,OP2) 

BCTR 5,0 


BUILT-IN FUNCTIONS PROCESSED 


The table shown in Figure 1 is a listing of 
all bailt-in functions processed by this 
phase. In addition, this table shows the 
names of the modules called for the built- 
in function at object time, the internal 
representation generated for the built-in 
function, and the type of linkage used to 
transfer control to the appropriate module. 


| Built-in Function 

1 

1 

1 


1 

1 

1 

_ 1 . 

Module 

Name 

1 

h 

1 

x 

Internal 

T 

Dec | 

_ j 

Name 

Hex 

1 

-1 

1 

-X- 

Link Type 

1. — . 

j TIME 


1 

1 

STMM 

T 

1 

80 j 

50 

T 

1 

S 

j DATE 


1 

SDTM 

1 

81 | 

51 

1 

S 

j SQUARE ROOT 

(SHORT) 

1 

QQSM 

1 

84 | 

54 

1 

A 

j SQUARE ROOT 

(LONG) 

1 

QQLM 

1 

85 | 

55 

1 

A 

j EXP 

(SHORT) 

1 

QASM 

1 

86 | 

56 

1 

A 

j EXP 

(LONG) 

1 

QALM 

1 

87 | 

57 

1 

A 

j LOG 

(SHORT) 

1 

QLSA 

1 

88 | 

58 

1 

A 

j LOG 

(LONG) 

1 

QLLA 

1 

89 | 

59 

1 

A 

j LOG 2 

.(SHORT) 

1 

QLSC 

1 

90 | 

5A 

1 

A 

| LOG2 

(LONG) 

1 

QLLC 

1 

91 | 

5B 

1 

A 

j logio 

(SHORT) 

f 

QLSB 

1 

92 | 

5C 

1 

A 

| LOGIO 

(LONG) 

1 

QLLB 

1 

93 | 

5D 

1 

A 

j SINE 

(SHORT) 

! 

QSSD 

1 

94 | 

5E 

1 

A 

j SINE 

(LONG) 

1 

QSLD 

1 

95 | 

5F 

1 

A 

j SINE-DEGREE 

(SHORT) 

1 

QSSC 

1 

96 | 

60 

1 

A 

j SINE-DEGREE 

(LONG) 

1 

QSLC 

1 

97 | 

61 

1 

A 

j COSINE 

(SHORT) 

1 

QSSB 

1 

98 | 

62 

1 

A 

j COSINE 

(LONG) 

1 

QSLB 

1 

99 | 

63 

1 

A 

j COSINE-DEGREE 

(SHORT) 

1 

QSSA 

1 

100 | 

64 

1 

A 

j COSINE-DEGREE 

(LONG) 

1 

QSLA 

1 

101 | 

65 

1 

A 

j TAN 

(SHORT) 

1 

QTSB 

1 

102 | 

66 

1 

A 

j TAN 

(LONG) 

1 

QTLB 

1 

103 | 

67 

1 

A 

j TAN-DEGREE 

(SHORT) 

1 

QTSA 

1 

104 | 

68 

1 

A 

j TAN-DEGREE 

(LONG) 

1 

QTLA 

1 

105 | 

69 

1 

A 

j SINH 

(SHORT) 

1 

QCSA 

1 

106 | 

6A 

1 

A 

j SINH 

(LONG) 

1 

QCLA 

1 

107 | 

6B 

1 

A 

| COSH 

(SHORT) 

1 

QCSB 

1 

108 | 

6C 

1 

A 

j COSH 

(LONG) 

1 

QCLB 

1 

109 | 

6D 

1 

A 

j TANH 

(SHORT) 

1 

QDSA 

1 

110 | 

6E 

1 

A 

L 

- 

X. 

- 

_x_ 

X 


X. 


Figure 1• Table of 

Built-in Functions 

during 

Phase 

D17 

(Part 1 

of 2) 
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l 


“T— 

T 

— "" 

T" 


“l 


TANH 

(LONG) 

i 

QDLA 

1 

111 | 

6F 

1 

A 



ATANH 

(SHORT) 

i 

QBSA 

1 

112 | 

70 

1 

A 



ATANH 

(LONG) 

i 

QBLA 

1 

113 | 

71 

1 

A 



ERF 

(SHORT) 

i 

QRSB 

1 

114 | 

72 

1 

A 



ERF 

(LONG) 

i 

QRLB 

1 

115 | 

73 

1 

A 



ERFC 

(SHORT) 

i 

QRSA 

1 

116 | 

74 

1 

A 



ERFC 

(LONG) 

i 

QRLA 

1 

117 | 

75 

1 

A 



ATAN 

(SHORT) 

i 

QNSD 

1 

118 | 

76 

1 

A 



ATAN 

(LONG) 

i 

QNLD 

1 

119 | 

77 

1 

A 



ATAN-DEGREE 

(SHORT) 

i 

QNSC 

1 

120 | 

78 

1 

A 



ATAN-DEGREE 

(LONG) 

i 

QNLC 

1 

121 | 

79 

1 

A 



ATAN- (X/Y) 

{SHORT) 

i 

QNSB 

1 

122 | 

7A 

1 

B 



ATAN- (X/Y) 

(LONG) 

i 

QNLB 

1 

123 | 

7B 

1 

B 



ATAN-DEGREE (X/Y) 

(SHORT) 

i 

QNSA 

1 

124 | 

1C 

1 

B 



ATAN-DEGREE (X/Y) 

(LONG) 

i 

QNLA 

1 

125 | 

ID 

1 

B 



REPEAT BIT 


i 

RBRB 

1 

126 | 

IE 

1 

C 



BIT CONCATENATION 


i 

RBKA 

1 

127 | 

IF 

1 

D 



INDEX BIT 


i 

RBIM 

1 

128 | 

80 

1 

D 



INDEX CHARACTER 


i 

RGIM 

1 

129 | 

81 

1 

D 



BOOL 


i 

RBBM 

1 

132 | 

84 

1 

E 



REPEAT CHARACTER 


i 

RGKM 

1 

133 | 

85 

1 

D 



MAX. 

(FLOAT SHORT) 

i 

RMSX 

1 

134 | 

86 

t 

F 



MAX. 

(FLOAT LONG) 

i 

RMLX 

1 

135 | 

87 

1 

F 



MAX. 

(BIN FIXED) 

i 

RMBX 

1 

136 | 

88 

1 

F 



MAX. 

(DEC FIXED) 

i 

RMPX 

1 

137 | 

89 

1 

F 



MIN. 

(FLOAT SHORT) 

i 

RMSN 

I 

138 | 

8A 

1 

F 



MIN. 

(FLOAT LONG) 

i 

RMLN 

1 

139 | 

8B 

1 

F 



MIN. 

(BIN FIXED) 

i 

RMPN 

1 

140 | 

8C 

1 

F 



MIN. 

(DEC FIXED) 

i 

RMPN 

1 

141 | 

8D 

1 

F 



SUBSTR BIT 

(RIGHT) 

i 


1 

142 | 

8E 

1 

H 



SUBSTR CHAR 

(RIGHT) 

i 


1 

143 | 

8F 

1 

in-line 



SUBSTR BIT 

(LEFT) 

i 


1 

144 | 

90 

1 

H 



SUBSTR CHAR 

(LEFT) 

i 


1 

145 | 

91 

1 

in-line 



EXP 

(FLOAT SHORT + INTEGER) 

i 

RESM 

1 

146 | 

92 

1 

I 



EXP 

(FLOAT LONG + INTEGER) 

i 

RELM 

1 

147 | 

93 

f 

I 



EXP 

(DEC + INTEGER) 

i 

REPM 

1 

148 | 

94 

1 

J 



EXP 

(BIN FIX + INTEGER) 

i 

REBM 

1 

149 | 

95 

1 

K 



EXP 

(GENERAL SHORT) 

i 

RXSA 

1 

150 | 

96 

1 

L 



EXP 

(GENERAL LONG) 

i 

RXLM 

1 

151 | 

97 

1 

L 



HIGH 


i 


1 

178 | 

B2 

1 

in-line 



LOW 


i 


1 

179 | 

B3 

1 

in-line 



ADDRESS 


i 


1 

184 t 

B8 

1 

in-line 



DYNDUMP 


i 

SDMP 

1 

194 | 

C2 

1 

M 



FLOOR 

(FLOAT SHORT) 

i 

RTSM 

i 

200 | 

C8 

1 

A 



FLOOR 

(FLOAT LONG) 

i 

RTLM 

1 

201 | 

C9 

1 

A 



FLOOR 

(BIN FIXED) 

i 

RTBM 

1 

202 | 

CA 

1 

N 



FLOOR 

(DEC FIXED) 

i 

RTPM 

1 

203 | 

CB 

1 

O 



CEIL 

(FLOAT SHORT) 

i 

RVSM 

1 

204 | 

CC 

1 

A 



CEIL 

(FLOAT LONG) 

i 

RVLM 

1 

205 | 

CD 

1 

A 



CEIL 

(BIN FIXED) 

i 

RVBM 

i 

206 | 

CE 

1 

N 



CEIL 

(DEC FIXED) 

i 

RVPM 

1 

207 | 

CF 

1 

O 



MOD 

(FLOAT SHORT) 

i 

RSSM 

1 

208 | 

DO 

1 

B 



MOD 

(FLOAT LONG) 

i 

RSLM 

1 

209 | 

Dl 

1 

B 



MOD 

(BIN FIXED) 

i 

RSBM 

1 

210 t 

D2 

1 

P 



MOD 

(DEC FIXED) 

i 

RSPM 

1 

211 | 

D3 

1 

Q 



ROUND 

(FLOAT SHORT) 

i 

RUSM 

1 

212 | 

D4 

1 

in-line 



ROUND 

(FLOAT LONG) 

i 

RULM 

1 

213 | 

D5 

1 

in-line 



ROUND 

(BIN FIXED) 

i 

RUBM 

1 

214 | 

D6 

1 

R 



ROUND 

(DEC FIXED) 

i 

RUPM 

1 

215 | 

Dl 

1 

R 



TRUNC 

(FLOAT SHORT) 

i 

RWSM 

1 

216 | 

D8 

1 

A 



TRUNC 

(FLOAT LONG) 

i 

RWLM 

1 

217 | 

D9 

1 

A 



TRUNC 

(BIN FIXED) 

i 

RWBM 

1 

218 | 

DA 

1 

N 



TRUNC 

(DEC FIXED) 

i 

RWPM 

1 

219 | 

DB 

1 

O 


u 





_ 

-L 


—L. 
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The various types of linkages are 
described below. 


Li nkage Type A 

R1 contains the address of a parameter 
block (PBL) as shown below. 


r 


y 

i 


-1 

Address of Source | 

-^ 

Address of Target | 

_j 


The compiler generates one of four pos¬ 
sible variations of a coding sequence. 
Which of the four variations is generated 
is determined by the type of storage 
(static or dynamic) that contains the 
source and target data: 


Link ag e T y pe B 

R1 contains the address of a parameter 
block (PBL) as shown below. 


r - 1 

| Address of X | 

|- - -| 

| Address of Y | 

(■-H 

| Address of Target | 

l _j 


The compiler generates a coding sequence 
as determined by the type of storage 
(static or dynamic) that contains the argu¬ 
ments X and Y and the target data. The 
process of generating the coding sequence 
is as for type-A linkages. 

Linka g e Type C 

R1 contains the address of a parameter 
block (PBL) as shown below. 


1. If both SOURCE and TARGET are STATIC, 
the compiler generates: 

LA R1 , PBL 

L R15,LIB 

BALR R14,R15 


PBL DC A (SOURCE) 

DC A (TARGET) 

2. If only SOURCE is STATIC, the compiler 
generates: 


LA 

R1,PBL 

LA 

R5,TARGET 

ST 

R5,PBL+4 

L 

R15,LIB 

BALR 

R14,R15 

DC 

A (SOURCE) 

DC 

XL4’0' 


3. If only TARGET is STATIC, the compiler 
generates: 


LA 

R1,PBL 

LA 

R5,SOURCE 

ST 

R5,PBL 

L 

R15,LIB 

BALR 

R14,R15 


L i 

Address 

of 

Bit String 

N | 

Address 

of 

Target 


where L = length of bit string and 
N = repetition factor. 

The compiler generates a coding sequence 
as determined by the type of storage 
(static or dynamic) that contains the bit 
string and the target. The process of 
generating the coding sequence is as for 
type-A linkages. However, L and N must be 
inserted into the PBL before control is 
transferred. This is ensured by two MVI 
instructions as shown in the example below, 
which is a sequence for both bit string and 
target data in STATIC storage: 


LA 

R1, PBL 

MVI 

PBL, L 

MVI 

PBL+4,N 

L 

R15,LIB-name 

BALR 

R14,R15 

DC 

A (BITSTRING) 

DC 

A (TARGET) 


PBL DC XL4'0 1 

DC A (TARGET) 


Linka g e Type D 


4. If neither SOURCE nor TARGET is STATIC, 
the compiler generates: 


LA 

R1,GWS 

LA 

R5,SOURCE 

ST 

R5,GWS 

LA 

R5,TARGET 

ST 

R5,GWS+4 

L 

R15,LIB 

BALR 

R14,R15 


where GWS = general working storage in 
the outermost block. 


R1 points to a parameter block (PBL) as 
shown below. 


r- T - 

| LI | Address of String 1 

Y -+- 

| L2 | Address of String2 

I--*- 

| Address of Target 


where LI = length of string 1 
L2 = length of string 2 


i 

i 

i 
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The compiler generates a coding 
sequence. The process of generating the 
coding sequence follows the same rules that 
apply to type-A. linkages. LI and L2 must 
be inserted into the PBL before control is 
transferred. This is accomplished by MVI 
instructions as are used to the insert L 
and N into PBL for a type-C linkage. 


PBL 


DC 

A (OPERAND 1) 

DC 

A (DED1) 

DC 

A (OPERANDn) 

DC 

A (DEDn) 

DC 

A (TARGET) 

DC 

A (DED OF TARGET) 




Lin kag e Ty p e E 


R1 points to a parameter block (PBL) 
shown below. 


LI 

"T 

1 

1 

Address 

of 

String 1 

L2 

T 

1 

1 . ... 

Address 

of 

String2 


Address 

of Mask 



L 

"T ‘ 

1 

Address 

of 

Target 


For each operand in DYNAMIC storage, the 
address is determined by means of code and 
stored in PBL as shown: 

LA R5 / OPERANDi 

ST R5,PBL+4 (i-1) 

where i = operand identification. 


Linka g e Type H 

R1 contains the address of SOURCE. 

R2 contains the address of OURCE DED.* 
R3 contains the address of TARGET. 

R4 contains the address of TARGET DED.* 


where LI = length of string 1 (1=1,2) 

L = max (LI , L2) 

The compiler generates a coding 
sequence. The process of generating the 
coding sequence follows the same rules that 
apply to type-A linkages. Li, L2, and L 
must be inserted into the PBL before con¬ 
trol is transferred. This is accomplished 


* Format of the DED: 


f - T - T -1 

| 25 | J | I | 

L_X_X_J 


where J = length, 
I = offset. 


by MVI instructions 

as are used 

to the 

The compiler 

generates: 

insert L and N 

into 

the PBL for 

a type-C 



linkage. 




LA 

R1,SOURCE 





LA 

R2,SOURCE DED 





LA 

R3,TARGET 

Linkage Type F 




LA 

R4,TARGET DED 





L 

Rl5,LIBname 

Rl points to a 

parameter block 

(PBL) as 

BALR 

R14 , R1 5 




shown below. 



Address 

of 

Operand1 


Address 

of 

DED (Operandl)* 


Address 

of 

Operandn 


Address 

of 

DED (Operandn) * 


Address 

of 

Target 

X 

00 

o 

i - 

Address 

of 

DED (Target) * 


* The format of DEDs is shown under Lin kage 

If all operands and the TARGET data are 
in STATIC storage, the compiler generates: 


Link ag e T y pe I 

R1 contains the address of argument X. 
R2 contains the address of exponent N. 
R3 contains the address of TARGET. 

The compiler generates: 


LA 

LA 

LA 

L 

BALR 


R1 , X 
R2,N 

RO,TARGET 
R15,LIBname 
R14,Rl5 


Linka g e Type J 




Rl 

contains 

the 

address 

of 

argument 

X. 

LA 

R1,PBL 

R2 

contains 

the 

address 

of 

DED (X) . 


MVI 

PBL+8n,X‘ 80’ 

R3 

contains 

the 

address 

of 

exponent 

N. 

L 

Rl5,LIBNAME 

R4 

contains 

the 

address 

of 

TARGET. 


BALR 

Rl4,Rl5 

R5 

contains 

the 

address 

of 

TARGET DED. 
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The DEDs have the following format: 
1. FIXED BINARY: 


r- t-t 

| Li | L2 | 

L-X-±_ 


“T-T- 1 

| Ln | X•FFFF' j 

_x_x_j 


0 


- T -1 

P j Q+128 j 
_x-J 


R1 points to an address block (PBL2) as 
follows: 


2. DECIMAL FIXED: 


3. FLOAT: 


P j Q+128 ] 
_x_J 



Address 

of 

Argument 

1 


Address 

of 

Argument 

2 


Address 

of 

Argument 

n 





The compiler 

generates: 

| 4 | P 

i 




L X- 

-j 


LA 

R,PBL1 




LA 

R1,PBL2 

The format 

used 

for the generation of 

L 

R15,LIBname 

DEDs is determined 

by the type of data to 

BALR 

R14,R15 

be described. 

The 

compiler generates: 




LA 

R1 ,X 

LA 

R2 , DED (X) 

LA 

R3,N 

LA 

R4,TARGET 

LA 

R5,TARGET DED 

L 

Rl5,LIBname 

BALR 

R14,R15 


Linkage Type K 

R1 contains the address of argument X 
R3 contains the address of exponent N 
R4 contains the address of TARGET 


The 

compiler 

generates: 


LA 

Rl ,X 


LA 

R3 , N 


LA 

R4,TARGET 


L 

Rl5,LIBname 


BALR 

Rl4,R15 

Linkage Type 

L 

Rl 

contains 

the address i 

R2 

contains 

the address i 

R3 

contains 

the address < 

The 

compiler 

generates: 


LA 

Rl, Y 


LA 

R3 ,X 


LA 

R3,TARGET 


L 

Rl5,LIBname 


BALR 

Rl4,R1 5 


TARGET 


Lin kage Type M 

RO points to a parameter block (PBL1) as 
f ollows: 


Link ag e Type N 

R1 contains the address of a parameter 
block (PBL) as shown below: 


T 

Q+128 | 

JL 

Address 

of 

Argument X 


Address 

of 

Target 


The compiler generates a coding 
sequence. The process of generating the 
coding sequence follows the same rules that 
apply to type-A linkages. The value of 
Q+128 must be inserted into the PBL before 
control is transferred. This is accom¬ 
plished by an MVI instruction (refer to 
L inka g e T y pe C. 


L ink ag e T y pe 0 

R1 points to a parameter block (PBL) as 
shown below. 


r 

i 

i- 

Address of Target 

i 

i 

j 

* Format of the DED: 


r- t-t-1 

j P of Source j Q+128 j P of Target | 

L_X_X_J 

The compiler generates a coding 
sequence. The process of generating the 
coding sequence follows the same rules that 
apply to type-A linkages. 



Address 

of 

Source 


Address 

of 

Target 


Address 

of 

DED* 
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Li nkage Type P 


* Format of the DED: 


R1 contains the address of a parameter r - T - x - 

block (PBL) as shown below: j P j Q+128 | N j 

L-i._X_J 



f - T -1 

| Q1+128 | Address of Argument X 

h-i- 

| Q2+128 | Address of Argument Y 

I-- x --- 

| Address of Target 

L_J 


The compiler generates a coding 
sequence. The process of generating the 
coding sequence follows the same rules that 
apply to type-A linkages. The value of 
Q+128 must be inserted into the PBL before 
control is transferred. This is accom¬ 
plished by MVI instructions as are used to 
the insert L and N into the PBL for type-C 
linkages. 


Linkage T yp e Q 

R1 contains the address of a parameter 
block (PBL) as shown below. 


Address 

of 

X 

Address 

of 

Y 

Address 

of 

Target 

Address 

of 

DED * 


♦Format of the DED: 

r- t-t-1 

j P of X j (Q of X) +128 j P of Y j 

L_X-X_J 


The compiler generates a coding 
sequence. The process of generating the 
coding sequence follows the same principle 
rules that apply to type-A linkages. 

Link ag e T y pe S 

R1 contains the address of TARGET. The 
compiler generates: 

LA R1,TARGET 

L R15,LIBname 

BALR R14,R15 


IN-LINE FUNCTIONS 

This section describes the operations per¬ 
formed on built-in functions that are gen¬ 
erated in-line. 

Substring Built-in Function 

A substring function may appear in either 
of the following two formats: 

1 . X = SUBSTR (CS, I, J) 

2. SUBSTR (CS, I, J) = X 

If the function appears in the first of 
the two formats, the compiler generates: 

LA R5,CS 

A R5,1 

BCTR R5,1 
MVC X (J) ,0 (R5) 

otherwise,, the compiler generates: 


- r - T - 

| (Q of Y) +128 I P of Target | 

_L_X_J 

The compiler generates a coding 
sequence. The process of generating the 
coding sequence follows the same rules that 
apply to type-A linkages. 


Li nkage Type R 

R1 contains the address of a parameter 
block (PBL) as shown below. 


Address 

of 

X 

Address 

of 

Target 

Address 

of 

DED * 


LA R5,CS 

A R5,1 

BCTR R5,0 
MVC 0 (J, R5) , X 

However, if J exceeds the length of X, 
the compiler generates the following three 
instructions for the MVC instruction in the 
above sequences: 

MVI 0 (R5) ,X' 40 1 
MVC 1 (J- 1,R5) ,0 (R5) 

MVC 0 (L, R5) , X 

where L = length of X. 

The following condition is tested for 
during compile time: 

1 < J < K 

where K = length of CS. In case of an 
error, J is replaced by K. 
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HIGH an d L OW Built-in F un ctions 

Code generated for T = HIGH (X) 

or T = LOW (X) is: 

1. If X = 1 either MVI TARGET,X * FF 1 

or MVI TARGET,X' 00' 

2. If X M either MVI TARGET,X'FF' 

or MVI TARGET,X * 00 1 
and MVC TARGET+1 (LT-1) , 
TARGET 

where LT - length of target 

ROUND B uil t -i n Function for Floa ti ng Po int 

If argument X is FLOAT, the compiler gener¬ 
ates : 

MVC TARGET (L) ,SOURCE 

01 TARGET+LI,X 1 01' 

where L = length of source 

LI = 3 if short floating point 
LI = 7 if long floating point. 

ADD R (X) Built-in F u nction 

For the address function, i;he compiler 
generates the macro instruction MOVE 
ADDRESS. This is described in the section 
Ph ase I npu t an d Ou tp ut . 


DESCRIPTION OF ROUTINES 

Three input buffers are available to read 
the input text string. Two output buffers 
are used to write out the output informa¬ 
tion. 

The text string is scanned and the 
information is written out unchanged as 
long as no E or F keys are encountered. 
When an FC key is encountered, the 
appropriate Macro-Generation routine is 
called. 

The saving and restoring the link reg¬ 
ister on entering and leaving nested sub¬ 
routines is done by a save and a return 
routine. The various routines of this 
phase are described in the following. 

S ymbols used in flow chart s: 

EOP : End of program 
IBUI : Text input buffers 
IBU2 
IBU3 

INPT : Input pointer 

0BU1 : Text output buffers 

0BU2 

0BU3 

OPT : Output pointer 

EOS : End-of-statement key 

SLENG : Skippable length 

IREC : Number of input records desired 


OREC : Number of output records desired 
ADBL : Stack containing pointers to argu¬ 
ments 

GWS8 : Internal name of general working 
storage 

MAKO : Move-Address macro instruction 

ADCO : Contains address for address macro 

DED : Data element descriptor 

LIBC : Library call macro 

D1 7 — LA 

This is the main routine. It controls the 
input, the output, and the processing of 
the text string. The various E- and F-keys 
are translated and the appropriate subrou¬ 
tines are called. 

INIT1 — LB 

This routine determines the addresses of 
the three input buffers IBU1, IBU2, and 
IBU3 and the two output buffers OBU1 and 
OBU2. The input pointer (INPT) and the 
output pointer (OPT) are set to their ini¬ 
tial values. 

E0ACT — LC 

Input parameter: INPT points to an EO-key. 

The routine resets the error switch ERRSW 
and clears the error stack ERROSTK. The 
begin statement is written out and INPT is 
updated. In addition, the error counter 
ERRCT (set to indicate previously detected 
errors) is set to zero. 

EAAC T -- LD 

Input parameter: INPT points to an EA-key. 

An EA key indicates the end of the current¬ 
ly processed statement. If the error 
switch ERRSW is not 0, a bit is set to 
indicate that (1) execution is to be sup¬ 
pressed and (2) the end of the statement 
and the error stack ERROSTK are to be writ¬ 
ten out. Otherwise, only the end of state¬ 
ment is written out. 

EBACT — LE 

The error message marked by an EB key is 
written out and INPT is increased. 

ASKI P, SKIPF7, INCRE — LF 

This routine is used to move input informa¬ 
tion to the output area. The routine uses 
the routine SKIP to increase the constants 
of INPT. 

SKIP -- LG 

Input parameter: 

Register 0 contains the length by which 
the input pointer INPT is to be increased. 
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INPT is increased by the specified 
length and checked to determine which of 
the buffers (1, 2, and 3) INPT points to. 

If INPT points to buffer 2 or 3, buffers 2 
and/or 3 are shifted to the left and INPT 
is updated accordingly. The following 
records are read into buffers 2 and/or 3. 

R EADIN — L H 

Input parameter: 

IREC (1 byte) indicates the number of 
records to be read into the input buffers. 

This routine controls the reading of the 
input string into the input buffers. 

M0V31, M0V21, M 0V0 21 — L I 

Routine M0V31 moves the contents of input 
buffer IBU3 into IBU1. Routine M0V21 
shifts the contents of input buffers 2 and 
3 to the left by one buffer length. Rou¬ 
tine M0V021 moves the contents of the sec¬ 
ond output buffer into the first output 
buffer. 

MOVOUT — L J 

Input parameters: 

REGO contains the length of the data to be 
moved; 

REG1 contains the address of the area that 
contains the data to be moved. 

The routine moves the input string or 
data as determined by registers REGO and 
REG1 into the output buffer. Control is 
then transferred to the OUT routine. 

OU T — LK 

Input parameter: 

RO contains the value by which OPT is to be 
increased. 

The routine updates OPT and, if the buffer 
is full, writes a record. 

EO PACT — LL 

Input parameter: 

INPT points to the end-of-program key 
(EOP) . 

The routine causes the last record to be 
written on TXTOUT and determines whether or 
not the next phase (D20) is to be called. 

If phase D20 is not to be called, phase D40 
is called. 

IJ KMNN — L M 

This routine fetches a name from the com¬ 
munication region IJKMVC and stores this 
name in NAME. The name counter is 
increased by 1. If the value in the name 
counter exceeds 64K, an error message is 


passed on; otherwise, the name counter is 
restored. 

INTREST -- LN 


When an FC-key is found, the main routine 
calls the appropriate macro generation 
routine. A translate table is used to 
determine the proper macro generation rou¬ 
tine. 

Before the selected routine is entered, 
the number of arguments is checked. If an 
improper number of arguments is provided, 
control is returned to the main program. 

N1, N 2 , N3, N4, N6 — LO 

The routine checks the number of arguments 
specified by the user. In case of an 
error, the error routine SETERR is called. 

SETERR — LP 

This routine moves the error message into 
the error stack and increases the error 
pointer ERRSW. 

FUNCTA — LQ 

This routine generates the parameter block 
for the linkage. An internal macro is 
generated to load the address of the param¬ 
eter block into register 1. 

If all arguments are in automatic stor¬ 
age, the parameter block is generated in 
the general working storage of the outer¬ 
most block. Otherwise, the parameter block 
is generated in static storage. 

If the parameter block is generated in 
the general working storage of the outer¬ 
most block, an address is calculated and 
inserted for each parameter in the paramet¬ 
er block during object time. If the param¬ 
eter block is generated in static storage, 
an address constant is generated for each 
of the parameters. 

Abbreviations used in the flow chart: 

ADBL = Stack containing the pointers to 
the arguments. 

GWS8 = Internal name of general working 
storage. 

MAKO = Move-Address macro instruction. 

See the description of macro 
instructions in the section 
Phase Input and Output . 

REPRO U N — LR 

REPROUN is a secondary entry point of the 
FUNCTA routine. It exchanges the pointers 
to the arguments in block ADBL to permit 
the linkages for the REPEAT and ROUND func¬ 
tions to be handled in the same way as for 
other functions. 
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AR GADR -- L S 

When this routine is entered, INPT points 
to the FC-key of a function. The routine 
scans the function and stores the pointers 
to the arguments in reverse order of their 
appearance in block ADBL. In addition, the 
arguments are checked to determine if they 
are in static storage. 

G ENADCO -- LT 

Input parameter: 

R5 points to the argument. 

The routine generates an address con¬ 
stant and moves it into the output buffer. 
The address constant has the following 
format: 

( 1 ) ( 2 ) ( 2 ) ( 1 ) ( 2 ) ( 2 ) ( 2 ) 

C-T-T-T-T-T-T-1 

I I lint. | | |lnt.| | 

| FD |000C|Name j60 |0004|Name|Modif| 

L_X_X_X-X_X_._X_J 

Bytes 8 through 12 are the name and the 
modifier of the argument for which the 
address constant is to be generated. Bytes 
3 and 4 contain the name of the parameter 
block if it is the argument in the block; 
otherwise, these bytes contain 0. 

G ENCO — LU 

Input parameter: 

R5 points to the argument. 

The routine generates a 4-byte constant 
which is not optimizable. If it is the 
first constant in the parameter block, the 
name of the constant is obtained from the 
name counter in the communication region. 
Otherwise, the name field of the constant 
is set to 0. 

PM AKO — LV 

This routine writes out the internal macro 
MAK0. For the format and the calling 
sequence of this macro refer to the section 
P hase Input and Output . 

P UCO — LV 

Input parameter: 

R4 contains the address of a 34-byte entry 
for the constant. 

If the argument is a constant required 
during object time, the skippable length is 
calculated and the constant is written out 
with an FD-key. 

S PECFUN — LW 

The routine determines if the function 
concerned is one without standard linkage. 


If so, the routine calls the corresponding 
linkage-generating routine to generate the 
additional linkage information. 


BOOLF — LX 

For the BOOL function the internal MVI 
macros are generated in addition to the 
standard linkage in order to store the 
lengths of strings in the parameter block. 
See the description of type-E linkages in 
the section Built-in Functions Processed. 


MAMIF I Ro u tine -- LY 

The function key is tested to determine if 
it is for a MAX or a MIN function. If it 
is a function key for a MAX or a MIN func¬ 
tion, the DEDs for the arguments are gener¬ 
ated and the address constants for the DEDs 
are passed on. 


INCHARF — LZ 

This routine generates internal MVI macros 
and stores the lengths of arguments in the 
parameter block for the INDEX and REPEAT 
(BIT) functions. 

HIGHL O W — MA 

This routine generates the required inter¬ 
nal macros for the functions: 

TARG = HIGH (X) and 
TARG = LOW (X) . 

Code produced is: 


1. 

if X = 

1: 


MVI 

TARGET,X'FF* or X'00' 

2. 

if X > 

length of target: 


MVI 

TARGET,X'FF’ or X’00' 


MVC 

TARGET+1 (LT-1) ,TARGET 

3. 

if 1 < 

X < length of target: 


MVI 

TARGET,X'40' 


MVC 

TARGET+1 (LT-1) ,TARGET 


MVI 

TARGET,X’FF' or X’00' 


MVC 

TARGET+1 (X-1) ,TARGET 


ADDRF — MB 

This routine generates an internal Move 
Address macro for the address function. 

For the code produced, refer to the des¬ 
cription of the MOVE ADDRESS MAK0 macro in 
the section Phase Input and Output . 

MODF — NA 

This routine generates internal MVI macros 
that store the scale factor in the first 
byte of each of the addresses in the param¬ 
eter block. Refer to the description of 
type-2 linkages in the section Built-in 
Functions Processed. 
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F LCEILF — NB 

This routine generates an internal MVI 
macro that stores the scale factor Q+128 in 
the first byte of the source address. 

Refer to the description of type-N linkages 
in the section Built-in Functions Proc¬ 
e ssed, 

F LCLDF — N C 

This routine generates the DED (Data Ele¬ 
ment Descriptor) for a function that 
requires a type-0 linkage. Refer to the 
description of type-0 linkages in the sec¬ 
tion Built-in Function s Processed. 

G ENDEDAD — ND 

Input parameter: 

NAME (two bytes) contains the name of the 
DED. 

The routine generates an address constant 
for the DED. 

M ODDF — NE 

This routine generates the DED for a func¬ 
tion that requires a type-Q linkage. Refer 
to the description of type-Q linkages in 
the section Built- in Functions Processed. 

R OUNDBF — NF 

This routine generates the DED for a func¬ 
tion that requires a type-R linkage. Refer 
to the description of type-R linkages in 
the section Bu i lt- in Functi ons Pro cessed. 

CONVN — NG 

Input parameter: 

R4 points to the 34th byte of argument N; 

N is converted to a binary integer. 

The routine is entered if the programmer 
has specified a decimal integer. This 
decimal integer is converted to binary 
fixed and stored in N (one byte) • 

RE PE — NH 

This routine generates internal MVI macros 
for the REPEAT function. 

The MVI macros are generated to store, 
at object time, the length of the bit 
string and the repetition factor N in the 
parameter block. Refer to the description 
of type-C linkages in the section Built-in 
Fu nctions Processed. 

EX POA — NI 

This routine generates internal Move- 
Address macros to properly pass on the 
parameters. Refer to the description of 


type-I linkages in the section Built-in 
Functions Processed . 


PARG — N J 

This routine writes out the internal Move 
Address macro and determines whether or not 
the argument pointed to by R4 is a 
constant. If so, the constant is written 
out using the routine PUCO. 


EXPOB — NK 

This routine generates the linkage for a 
general exponentiation. Refer to the des¬ 
cription of type-J linkages in the section 
Built-in Functions Processed . 

DED — NL 

This routine fetches an internal name for 
the DED from the communication region and 
generates an internal Move-Address macro in 
order to pass on the address of the DED. 

DEDGEN — NM 

Input parameters: 

R4 points to a 12-byte entry; 

NAME (two bytes) contains the internal name 
to be given to the DED. 

The routine generates the DED according 
to the type specified in the 12-byte entry 
and writes out the DED constant. 

DYNDU M P — NN 

This routine generates the linkage for the 
DYNDUMP library module. Refer to the des¬ 
cription of type-M linkages in the section 
Built-in Functions Processed . 

PLENG — NO 

The length of the currently processed argu¬ 
ment is normally fetched from byte 7 of the 
entry. If the argument is an array or a 
structure, the length is fetched from bytes 
10 and 11 and then stored in the length 
block LBLOCK. 

TIMDAT — NP 

The routine generates (1) an internal LA- 
macro to pass on the address of the target 
and (2) an internal Library-Call macro for 
the functions TIME and/or DATE. 

FLTRO — NQ 

The routine generates the internal macros 
for the ROUND (float) function. Refer to 
the description of the ROUND built-in 
function for floating point in the section 
IN-Line Functions. 
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An internal MAK9E macro is generated to 
cause the generation of the MVC instruc¬ 
tion. An 01 macro causes the generation of 
the 01 instruction. For formats of the 
macros, refer to the section Phase Inpu t 
a nd Output . 

L IBCALL — NR 

The routine generates the library macro 
instruction for the appropriate built-in 
function and calls the BITSET routine. 

B ITSET — N S 

The routine sets the appropriate bit in the 
library bit string of the communication 
region. 

T SCSIJ — N T 

This routine evaluates: T = SUBSTR (CS,I,J) 
where CS = character string. 

For the code produced and the format of 
the internal SUBSTR MAK88 macro which pro¬ 
duces the MVC instruction to move the 
substring to T, refer to the description of 
the SUBSTR MAK88 macro in the section P hase 
I nput and Output . 

C HECKJK — NU 

The routine determines whether or not the 
following requirement for the SUBSTR func¬ 
tion is met: 1 < j < k 

If the requirement has not been met f an 
error message is produced. 

S CSIJT — N V 

This routine evaluates SUBSTR (CS, I, J) = 

X. The generated calling sequence is: 


LA R5,CS 

A R5 f I 

BCTR R5, 0 

For the format of the internal macro 
MOVE MAK8 8 which is generated to produce 
the MVC instruction (s) that moves X into 
the substring area, refer to the descrip¬ 
tion of the MOVE MAK88 macro in the section 
Phase Input and Output . 


TBSBST — NW 


This routine evaluates: T = SUBSTR(BS / I, 

J) and SUBSTR (BS, I, J) = T 
where BS = bit string. 

For the code produced as a calling 
sequence/ refer to the description of type- 
H linkages in the section Built-in 
Functions Processed. 


TSUBST — NX 


This routine generates the DED for the 

source if T = SUBSTR (BS # I,J) 

or for the target if SUBSTR (BS/I r J) = X. 

SUBSTT — NY 


The routine generates the DED for the tar¬ 
get if T = SUBSTR (BS # I/J) 
or for the source if SUBSTR (BS r I/J) = X. 

EXCHP — NZ 


The routine exchanges the pointers to the 
arguments if SUBSTR (BS f I ,J) = X. 
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PHASE PL/ID20 (BUILT-IN FUNCTIONS II) — 


This phase scans the input stream for func¬ 
tions not processed in phase D17. When an 
FC-statement key is detected/ the appropri¬ 
ate subroutine (selected according to a 
special key in the FC-statement) is called 
for processing the function. Upon comple¬ 
tion of processing, the FC-statement is 
skipped and scanning continues. All state¬ 
ments that do not have an FC key are either 
moved unchanged into the output stream or 
skipped. 

Input and output handling of this phase 
is the same as that of phase D17. If no FC 
key was detected in phase D17, this phase 
is skipped. 

Ph ase Input 


bytes 3-4 modifier: refers to internal 
name 

byte 5 attributes 1 

byte 6 attributes 2 

byte 7 object-time length in bytes 

byte 8 precision 

byte 9 scale factor 

bytes 10*11 not used 

If the argument is a constant, the fol¬ 
lowing information is appended to the 
12-byte argument: 

bytes 12-13 internal name 
bytes 14-17 attributes 
bytes 18-19 length of constant 
bytes 20-31 intermediate form of constant 
(left-aligned) 


The built-in functions processed in this 
phase have one to four source arguments and 
one target. The source and target argu¬ 
ments follow one another in inverse order 
of the function F=F (XI,X2, X3,X4) . The 
standard input format is as follows: 

FC statement — 12 bytes 
Target operand — 12 bytes 
Argument Xn<n4) — 12 bytes 

Argument XI — 12 bytes 

No te: If one of the arguments is a con¬ 

stant, the 12-byte argument is immediately 
followed by the information on the con¬ 
stant. 

Fo rmat of the FC Statement 
byte 0 statement key 

bytes 1-2 skippable length (includes the 

12 bytes of the FC statement + 
12 x number of arguments) 
byte 3 number of arguments (including 

target) 

byte 4 X*13* (indicates that this is 

a library function) 

byte 5 internal library function name 

(00 - FF) 
bytes 6-12 not used 

F ormat of Argu m ent s 

The format of variable and register argu¬ 
ments is as follows: 

byte 0 key: El refers to a declared 

variable; E5 refers to a reg¬ 
ister pointing to data, 
bytes 1-2 internal name (number of reg¬ 
ister or internal number used 
for variable) 


The array functions SUM / PROD, ALL, and 
ANY use the following non-standard input: 

bytes 0-11 FC statement 

bytes 12-22 array statement. It has the 

same format as the other 
arguments (with the exception 
of the last byte - see byte 23 
below) . The array elements 
are converted to equal base 
and scale. The array argument 
is the source of conversion, 
byte 23 number of array elements 

bytes 24-nn conversion macro instructions 

of the length xx. The F8 key 
of the following statement 
indicates the end of the con¬ 
version macro instruction and 
the end of the function input. 
The F8 statement contains the 
information on the target of 
conversion. The conversion 
macro instructions are moved 
into the output as part of the 
function output. 

Phase Output 

With the exception of the library functions 
processed in this phase (identified by an 
FC key) , all statements are moved unchanged 
into the output stream. Constants in the 
argument operands cause the generation of a 
constant with an F3 key. For the string 
array functions ALL and ANY, a string vari¬ 
able is generated to accommodate the provi¬ 
sional result. 

The generated output macro instructions 
(except for the F2 key, the skippable 
length, and the special macro instruction 
KEY) generally have a target and source 
operands. These operands are identical to 
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the first six bytes of the input operand. 
Label f length, and precision information is 
added to the macro instruction as required. 
Length and precision are taken from the 
attributes of the input operands. The 
output formats for the individual libary 
functions are as follows: 

ABS 


byte 

0 

X' F2' 


bytes 

1- 2 

skippable 

length 

byte 

3 

key: 3B - 

long float 



2B - 

short float 



IB - 

decimal fixed 



OB - 

binary fixed 

bytes 

4- 9 

target argument 

bytes 

10-15 

source argument 


SIGN 


begin) . 

EAACT : Action for end-of-statement key 
(move out error stack, output of 
statement end) . 

EBACT : Action for EB key (move out error 
message) . 

ASKIP : Increase input pointer (move input 
into output area) . 

READIN : Read records into input buffer. 


ABS, S IGN — OA 

A special macro instruction (see the macro 
generator phases E50-E60) is provided for 
these functions. Thus, only base and scale 
must be tested to obtain the correct macro 
instruction. The operands are moved 
unchanged from the input stream into the 
macro instruction. 


byte 

0 

bytes 

1- 2 

byte 

3 

bytes 

4- 9 

bytes 

10-15 

bytes 

16-17 

bytes 

1 8-19 


X* F2' 

skippable length 
key: 2A - float 

1A - decimal fixed 
OA - binary fixed 
target 
source 
label 

length (inserted only if the 
source is decimal fixed 


ADD, MULTIPLY # DIVIDE 

The standard macro instructions ASSIGN, 

ADD, MULTIPLY, and DIVIDE are used for 
these functions. The number, order, and 
type of the macro instructions used depend 
on the scale and precision of the arguments 
and on the arithmetic operation. The 
ASSIGN macro instruction is used to assign 
one or two arguments to a register or work¬ 
ing storage. The result of the arithmetic 
operation is always stored in a register. 

If required, the register is assigned to 
the target. 

S UM, PROD 

An example of the output format (and the 
generated code) for these functions is 
shown in Figure 1. 


ADD, M ULT I PLY, DIVIDE — OB, PC 

These functions are not used in version 1 
of this compiler. 


EOPACT — QE 

This subroutine terminates the phase after 
all input has been processed. It generates 
the string variables and register save 
areas required for the array built-in func¬ 
tions processed in this phase. Finally, it 
loads phase D40. 


INTRE S T — OP 

This subroutine is called if the FC key 
indicates a built-in function to be proc¬ 
essed in this phase. The appropriate proc¬ 
essing routine is selected by means of the 
function key, which is part of the input. 
The output of the code macro is part of the 
processing routine for the respective func¬ 
tion. On return from this routine, the 
input pointer is increased and the next 
statement is scanned. 

SUM, P ROD, ALL, ANY — OF 


AL L, AN Y 

An example of the output format (and the 
generated code) for these functions is 
shown in Figure 2. 

DESCRIPTION OF ROUTINES 
Subroutines Described in D17 


Because of their similar output, these 
array functions are handled in nearly the 
same way. They differ in their key and in 
the length of the macro instructions only. 

The string variable in the string array 
functions ALL and ANY replaces the 
floating-point register to hold the partial 
result. The initialization values for the 
individual functions are as follows: 


INTI 

EOACT 


Initialization routine (get buffer 
length, set buffer pointer) 

Action for EO key (reset error 
switches, output of statement 


SUM - zero 

PROD - floating-point 1 
ALL - all ones 
ANY - all zeros 
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A SGN -- 01 

Depending on the attributes of source and 
target, this subroutine generates the 
appropriate assign macro instruction. (For 
a detailed description of the macro 
instructions refer to the macro generator 
phases E50/E60.) The following five cases 
may occur: 

decimal to decimal 

binary fixed to binary fixed 
short float to short float 
long float to long float 
short float to long float 

Source and target (pointed to by reg¬ 
isters 5 and 6, respectively) must have the 
same base and scale. The macro instruction 
key is determined by means of the source 
attributes (base and scale) and the preci¬ 
sion. The field width is calculated by 
means of the precision and the scale fac¬ 
tor. The generated macro instruction is 
moved into the output stream. 

This subroutine is called as follows: 

BAL LR, ASGN 
SETPNT — 0L 

This subroutine sets pointers to one or two 
source and one target arguments in the 
input stream. R5 is used to point to one 
source argument; R6 and R5 are used to 
point to the first and second source argu¬ 
ment, respectively; R4 is used to point to 
the target argument. 

Precision arguments are disregarded; the 
precision is always taken from the argument 
attributes. Contrary to argument con¬ 


stants, precision constants contained in 
the input stream are skipped. The two 
types of constants are differentiated by 
their appearance in the input stream. 
Therefore, every function calling this 
subroutine furnishes the parameters for the 
expected minimum and maximum number of 
arguments. An error message is produced if 
the actual number of arguments in the FC 
statement is either lower than the minimum 
or higher than the maximum. The subroutine 
is called as follows: 

BAL LR, SETPNT 
Parameters: 

RO = number of required arguments 
R1 = number of actual a arguments 
R2 = maximum number of arguments permitted 
in this function. 


M0V0UT 

This subroutine moves a character string 
into the output buffer. RO contains the 
length and R1 the begin address of the 
string. 

GENLAB 

This subroutine fetches a label name from 
the variable counter. The counter is 
increased each time a label is generated. 
If the counter overflows, an error message 
is produced and the counter is reset. 

SETERR 

This subroutine stores the error number 
(ERRNR) in the error stack up to a maximum 
of 8. 
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Figure 1. Example of Output Format for SUM and PROD 
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F 2 

0 0i2 

67 

E 4 0 0 0 9 

8 0 

E10002000000 

0 8 0 8 


F 2 0 0 1 2 

6 3 

E 4 0 0 0 9 

8 0 

E 4 0 0 0 9 8 0 

0 8 0 8 


ALL 

ANY 


F 2 00 0 E 7B 

ARRAY 

N 

LABEL 


LABEL : 


OC STRING(8),=X' FFF... ,F' 

XC STRING(8), STRING 

LA 4,ARRAY 

LA 3,N 

CONVERSION 

MACROS 


CONVERSION 

MACROS 


length after 
conversion 


El 

00 12 

6 6 
6 7 

E4000980 

target of 
conversion 

0 0 0 8 








E 

0 0 0 8 

BD 

l L l 

LABEL 




} 


/nc 

\oc 


LA 

BCT 


STRING(L),TARGET 

4,8(4) 

3, LABEL 




sr — n , 



Figure 2, Example of Output for ALL and ANY 
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Input 

The input text stream for this phase con¬ 
sists of source statements in internally 
coded form, and of both E-key and F-key 
items generated and inserted into the text 
by previous phases. 


FUNCTIONAL DESCRIPTION 

The Block Description Table generated dur¬ 
ing this phase is part of the static stor¬ 
age during object program execution. Each 
compilation block is represented in this 
table by a single block description in the 
format shown in Figure 1. 


ON, REVERT, SIGNAL, and STOP statements <-4 bytes-> 

are in the output format of phase A65. 

Some I/O statements are still in an inter¬ 
mediate format and are to be processed 
later by the subsequent compiler phases D75 
and D80. 


Each statement in the source program 
results in the following input to phase 
D40: statement identifier key X'EO', end- 
of-statement key X'EA 1 , and, if any, error 
keys X'EB 1 ; located between each of these 
begin- and end-of-statement keys are either 
E- or F-keys representing the function of 
the statement, or the statement in inter¬ 
nally coded form. 

Blocks in the input text are not nested. 
All procedure blocks or begin blocks have 
been filed one after the other in phase 
C3 5. 


Output 

The following elements have been processed: 

Block description table for static stor¬ 
age. 

Prologue macro. 

Certain F-key elements. 

Statement prefixes, 

ON statement, 

REVERT statement, 

SIGNAL statement, 

STOP statement 


OFFSET 


PREFIX 


A (ENTRY 1) 
A (ENTRY2) 


A (ENTRYn) 
ON ENTRY1 
ON ENTRY2 


ON ENTRYn 


OFFSET 

PREFIX 

A (ENTRY1) 
A (ENTRYn) 
ON ENTkYn 


Contains offset to first ON 
entry, if present. Otherwise 
ignored. 

Dynamic and static prefix byte 
as described in the library 
control routine. 

Address of the first entry 
point of the block. 

Address of the nth entry point 
of the block. 

Present for each ON condition 
mentioned in the block. 


Appropriate macros have been substituted 
for each ON, SIGNAL, REVERT, or STOP state¬ 
ment. Certain entries in each prologue 
macro have been made. A Block Description 
Table for each program block has been 
inserted into the text. 


Figure 1. Format of Block Description 
Table 

Each block description entry is gener¬ 
ated during scanning of the corresponding 
block in the text stream. 


Macros have been inserted for each 
statement with an individual prefix, sig¬ 
naling these statements during execution. 

No input/output action on SYS001 occurs 
in this phase. The processing of the pro¬ 
logue macro and of the REVERT statement 
require two text scans in phase D40. 


The half-word for PREFIX consists of a 
dynamic and a static prefix byte. 

The static prefix byte will be set up 
during phase D40 according to the prefix 
status at the beginning of the block. 
Whenever a single statement in the source 
program of the compilation is prefixed. 
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certain macros are inserted into the text 
stream, providing a corresponding status 
of the dynamic prefix byte during execu¬ 
tion of this statement. (See pertinent 
section on prefixes) . 

If an entry point for a block is 
encountered during scanning of the input 
text stream, an address constant is gener¬ 
ated and added to the block description 
entry. This address constant contains the 
name of the entry in internally coded 
form. 

Each generated block description entry 
is named internally. These names form a 
string of labeling numbers, used for 
designating single block descriptions. 

Each individual name is created by adding 
1 to the current value of the communi¬ 
cation region entry IJKMNN. Each block 
description entry will be keyed in such a 
form that a contiguous portion of the 
static storage in the object program is 
occupied by the entries. 

Generation of single ON entries in the 
block description is discussed in the 
section dealing with ON statements. 

Process ing of the Prologue Macr os. A 
prologue macro has been generated during 
preceding phases for each entry point to a 
begin or procedure block. The format of 
these prologue macros is discussed in the 
description of phase E50. During phase 
D40, three entries in each prologue macro 
are completed: 

1. The entry name of the block in inter¬ 
nally coded form. This entry name is 
contained in the last label macro 
preceding the prologue macro. 

2. The internal name of the Block Des¬ 
cription Table. This entry is com¬ 
pleted during the second text scan. 

3. X'03' is entered into a reserved byte 
of the prologue macro, if the block 
includes ON statements. X*01' is 
entered, if no ON statements are 
included. This entry is completed 
during the second text scan, after the 
block has been checked for ON state¬ 
ments during the first scan. 

Eliminating Spe ci al F-k ey E le me nts . The 
input text includes X , F7* keys, which 
served to exclude statements from process¬ 
ing during preceding phases. These keys 
are eliminated. Certain types of pre¬ 
viously excluded statements may now be 
processed. 

Label macros of the form 

X'F2000772.* are eliminated during 

the first text scan because they are now 


obsolete. These label macros, located 
outside the associated block, specified 
block names. 


Proc es sing of Prefixes. Each statement 
contains the prefix mask assigned to it 
according to the prefix lists in the 
source program. 

If a PROCEDURE or BEGIN statement is 
encountered, the associated prefix mask 
becomes the static prefix byte in the 
Block Description Table for the corres¬ 
ponding block. Certain special macros are 
inserted into the text stream whenever the 
prefix of a single statement differs from 
the prefix of the whole block. These 
macros are inserted at the beginning of a 
statement (following the label, if any) 
and at the end of the prefix scope. The 
macro inserted at the beginning of the 
statement initiates modification of the 
dynamic prefix byte of the Block Descrip¬ 
tion Table in the static storage. The 
macro inserted at the end of the prefix 
scope initiates restoring of the block 
prefix mask to the preceding status. Nor¬ 
mally, the end of a statement is also the 
end of a prefix scope, if the statement 
has its own prefix. However, GOTO, IF, 
CALL, and RETURN are an exception to this 
rule.. 

For GOTO, the prefix mask must be 
restored before the macro branch. This is 
done by a scan performed before branching. 
Similar procedures are provided for CALL 
and RETURN. 

Into each IF statement an end-of- 
statement key is inserted after the 
evaluation of the scalar expression. The 
scope of the condition prefix ends at this 
key. However, certain branch macros 
inside the evaluation of the scalar 
expression branch to an address beyond the 
condition scope. For this reason, the 
condition is reset before branching, and 
set again after the branch macro with one 
exception: If the branch macro is followed 
by an end-of-statement key, the statement 
prefixes are not restored after the branch 
macro. In any case, the block prefix is 
reset at the end-of-statement. 

Proce s sin g of ON Statements. In the PL/I 
source program, the ON statement defines 
the action to be performed if an interrupt 
occurs for the specified condition. To 
provide this action during object program 
execution, the following code is generat¬ 
ed: 

1. For each condition specified in an ON 
statement inside a block, a so-called 
ON-doubleword is set up in the Block 
Description Table for this block. 
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2. Specific macros are inserted into the 
text where the ON statement is locat¬ 
ed. These macros modify the contents 
of the ON-doubleword in the Block 
Description Table. 

If an interrupt occurs during execution 
of the PL/I program, a library routine 
called 'interrupt handler' scans the sta¬ 
tic storage for the ON-doubleword corres¬ 
ponding to the condition in the actual 
block. The performed interrupt action 
depends on the presence and contents of 
this ON-doubleword. 


tion with this file name is encountered. 
The macro for this move instruction is 
generated by this phase. 


Flag B yte Field 

Flag bit 0 is set to either 0 or 1 by this 
phase in generating the ON entries. The 
flag bits 1, 3, 4 are set during the exe¬ 
cution of the object program: a macro for 
a MVI instruction is inserted for each ON 
statement, taking into consideration the 
setting of flag bit 0. 


The format of the ON-doubleword in the 
Block Description Table is as follows: 


Pointer Field 


bytes 0-1 
bytes 2-3 
byte 4 
bytes 5-7 


ON code 

file address or not used 
flags 

printer to address constant 
for label 


ON Condition Field 


X' 01 ' 
X' 03' 
X' 04' 
X' 05' 
X' 06' 
X' 09' 
X' 0A' 
X' OB' 
X'OC' 
X' 0D' 
X' 0E' 


OVERFLOW 

ZERODIVIDE 

FIXEDOVERFLOW 

SIZE 

CONVERSION 

ERROR 

ENDFILE 

ENDPAGE 

TRANSMIT 

KEY 

RECORD 


Fl ag Byte 


bit 

bit 

bit 

bit 

bit 

bits 


0 if on: last ON entry of the block 

1 if off: ON statement not executed 

2 reserved 

3 if on: ON mark = system action 

4 if on: ON mark = GOTO statement 

5-7 reserved 


File Address Fields 


This second field is used exclusively for 
I/O conditions: ENDFILE, ENDPAGE, TRANS¬ 
MIT, KEY, and RECORD. The field is res¬ 
erved to contain the address of the cor¬ 
responding DTF table. If an I/O condition 
is mentioned in an ON statement, the file 
name named together with this condition 
may designate either a file constant or a 
file variable. If the file name desig¬ 
nates a file constant, a macro for the 
file address is generated and inserted to 
point to the file address constant of the 
form AL3 (file DTF) in the double word. If 
the file name designates a file parameter, 
the file address required in the ON entry 
depends upon the value of this parameter. 
For this reason, the actual file address 
value is moved into the ON entry whenever 
an ON statement concerning an I/O condi- 


The last field in the second word is used 
if the ON unit is a GOTO statement. The 
branch of the GOTO statement may be 
directed to a label variable or a label 
constant. If the branch is directed to a 
label variable, a macro for an address 
constant of this label variable has been 
generated by a preceding phase. If the 
branch is directed to a label constant, a 
macro for such an address constant is 
generated and inserted into the text. The 
format of this address constant is dis¬ 
cussed in IBM System/360, Disk and Tape 
Opera t ing Systems, PL/I Subset Library 
Rout in es, Program Logic Manual , Form 
Y33-9008. The address of the label 
address constant is moved into the pointer 
field of the ON-doubleword in the Block 
Description Table. If a GOTO statement is 
encountered, the invocation count is moved 
from the IjSA into the second word of the 
label address constant. (The invocation 
count is discussed in the description of 
the library routines) . 

The following is generated during proc¬ 
essing of ON statements: 

The ON-doubleword (ON-code, flag bit 0, 
and — if the file name is a constant — 
file address) . 

Macros for processing during execution (if 
the file name is a parameter, move file 
address, - move flag bits. If a GOTO 
statement is encountered, move label con¬ 
stant address and invocation count) . 

A macro for a label variable, if a GOTO 
statement branches to a label constant. 

Proce s sing of REVERT Statements. REVERT 
statements are used to nullify the effect 
of the last executed ON statement and to 
cause the action specification to be 
restored to its status in the immediate, 
dynamically encompassing block. To achieve 
this, flag bit 1 of the corresponding ON- 
doubleword in the Block Description Table 
is set to 1. 
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There is a particular housekeeping for 
the addresses of the individual ON entries 
in this phase. The ON conditions in a 
REVERT statement which do not have a 
counterpart in the ON statement are 
ignored. 

For each REVERT statement associated 
with an ON statement in the same block, a 
macro is inserted into the text stream, 
providing an 01 instruction for setting 
flag bit 1 of the ON-doubleword to 1. 

P rocessing of SIGNAL Statements. The SIG¬ 
NAL statement simulates the occurrence of 
an ON condition. For each SIGNAL statement 
a macro calling the library "ON-handler", 
is inserted into the text stream. The 
called library routine requires one or two 
parameters. Register 1 must point to a 
constant of the form AL1 (ON Code, 0) . For 
signaled I/O conditions, the address of a 
file address constant must be moved into 
the library work space IJKZWSA. If the 
file address refers to a file name con¬ 
stant, the address constant is generated 
and inserted into the text (for static 
storage). If the file address refers to a 
file name parameter, the address constant 
has already been generated. 

Pr oces s ing of S TOP S ta t eme nts. The STOP 
statement initiates termination of a pro¬ 
gram. A macro calling the library stop 
routine is inserted into the text stream. 

' Data-Housekeeping 1 . Three work buffers 
are used for text input and output. Work 
buffer 3 is used for overlapped text out¬ 
put, work buffers 4 and 5 are used for 
overlapped text input. 

At the beginning of a text scan, two 
records are read in overlapped mode into 
work buffers 4 and 5. The scan starts at 
work buffer 4. The text is scanned sequen¬ 
tially from left to right. Routine KTESCA 
is called to move the scan pointer to the 
next text element. If the scan pointer 
eventually reaches the 5th work buffer, the 
following action is initiated: 

The contents of work buffer 5 are moved 
to work buffer 4, the scan pointer is 
decremented by the buffer length, and a new 
record is read into work buffer 5 in over¬ 
lapped mode. 

The scan now points again to the first 
text element in work buffer 4, and process¬ 
ing continues. 


filled, the contents of the buffer are put 
out in overlapped mode by the current text 
output medium. 

Table s 

The core storage area from the end of the 
second work buffer down to the phase end is 
occupied by the following three tables: 

ON/REVERT Table: Adjacent to the second 
work buffer, a table is established during 
the first text scan for all ON conditions 
stated in ON or REVERT statements of indi¬ 
vidual blocks. Each individual table entry 
has a length of 4 bytes. The format of the 
entry is shown below. 

byte 0 flag byte 

bit 0 on = last condition men¬ 
tioned in block 

bit 1 on = condition mentioned 
in REVERT statement 
only 

bit 2 off = no ON statements in 
the current block 
(used in the first 
table entry of a 
block only) 

byte 1 condition code 

The boundaries of blocks are indicated 
by the status of flag bit 0. Note that 
only one entry is generated for each ON 
condition and the associated file name, 
though they may occur together in several 
ON or REVERT statements. After the macros 
for the Block Description Table have been 
generated during the first text scan, all 
entries with flag bit 1 set to 0 are 
removed from the ON/REVERT table. The 
remaining entries are grouped together to 
be used again during the second scan. 

These entries now contain all conditions 
that occur in REVERT statements, but not in 
ON statements of the same block. An excep¬ 
tion to this rule is the first entry for a 
block if its flag bit 2 is set to 0 and its 
flag bit 0 is set to 1. 

During the second scan, the condensed 
ON/ REVERT table serves to recognize all 
those REVERT statements which must be 
treated as Null statements. The first 
entry of each block is preceded by a two- 
byte field containing the number of differ¬ 
ent ON conditions in this block. During 
the second scan, this number leads to the 
last ON-doubleword in the Block Description 
Table. 








Text output is performed in both text 
scans by the routine KONSTOUT. This rou¬ 
tine is called whenever an element is to be 
moved to the text output. KONSTOUT moves 
this element to the 3rd work buffer. If 
this work buffer is eventually completely 


Entry Name Table: This table is created 
for the entry names of a block, beginning 
at the phase end. The entry names are 
retrieved from the label macros preceding a 
prologue macro. Each entry name consists 
of a number, 2 bytes long. If the end of 
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an input text block is reached during the 
scan, this table contains all entry names. 
For each entry to a block, a macro is gen¬ 
erated as part of the Block Description 
Table macro to obtain the address constant 
of this entry name. The symbolic address 
of this address constant is the entry name: 
E DC A (E) 

This address constant is correct because 
the name will be treated differently 
depending on whether it is the name or the 
value of the address constant. (See the 
description of phase G40.) 

The Entry Name Table is used during the 
first scan only, and is overwritten during 
the second scan. 

O N-Entry Reference Table: This table is 
used for the calculation of ON-doubleword 
addresses. It is created during the second 
text scan, beginning at the phase end and 
overwriting the Entry Name Table. Each 
table entry is 3 bytes long. The first 
byte contains an ON condition code, bytes 2 
and 3 contain either zero, or a file name 
occurring together with an ON condition in 
an ON or REVERT statement. This table is 
used to address the ON-doublewords in the 
Block Description Table. Calculation of 
ON-doubleword addresses is based on the 
location of the associated entry in the 
ON-entry Reference Table because the 
sequence of the entries reflects the 
sequence of ON-conditions as they occur in 
the text. 

During the first scan, each Block Des¬ 
cription Table receives as its symbolic 
address the current value of IJKMNN in the 
communication region. IJKMNN is increment¬ 
ed by 1 each time a new block is encoun¬ 
tered. At the beginning of the first text 
scan, the current value of IJKMNN is saved 
in an internal buffer called KMNN. During 
the second scan, KMNN is incremented by 1 
each time a new block is encountered, and 
thus contains the internally coded, symbol¬ 
ic address of the currently corresponding 
Block Description Table. The address of an 
individual ON-doubleword is calculated as 
follows: 

Address = Table symbol + Contents of the 

1st half-word of table + 8 L (L = 

sequential number of entry in ON-entry 

Reference Table, starting with 0) . 


DESCRIPTION OF ROUTINES 


During the first text scan, macros are 
generated to create the Block Description 
Table. The individual routines, used only 
during this scan, are: 


• Main part 

• Processing of the prologue macro, 

• Insertion of the Block Description 

Table, 

• Processing of the ON and REVERT state¬ 
ments. 

Certain subroutines, used in both text 
scans, are discussed in the section Subrou¬ 
tines . 

Main Part of First Scan — OQ 

This routine sets certain pointers to text 
input and output areas and to the tables in 
static storage. The first two records are 
read in from the input text. The routine 
then enters a loop for scanning the text. 
During this scan, certain keys are select¬ 
ed, and the appropriate routines for proc¬ 
essing these keys are called. A label 
macro outside a program block encountered 
is omitted in the output. Text output is 
accomplished by subroutine KTESCA. 

Pro ces sing the Prologue Macro — OR 

The prologue macro specifies either the 
beginning of a new block (Main Entry) or an 
ENTR¥ statement in a block. 

If the prologue macro specifies the main 
entry, the following processing is per¬ 
formed: The previous statement prefix is 
saved as the new block prefix and used in 
testing each statement of the current block 
for an individual condition prefix. For 
the second and all following blocks, the 
subroutine to insert the Block Description 
Table is called. The beginning of the next 
block is marked in the ON/REVERT Table. An 
initial length of 12 bytes is assigned to 
the macro for the Block Description Table. 
The counter for the ON conditions occurring 
in this block is set to zero. The name for 
the Block Description Table of the new 
block is moved from IJKMNN into the macro. 
IJKMNN is then incremented by 1. 

All other prologue macros are processed 
as follows: The name of the Block Descrip¬ 
tion Table is moved into the prologue 
macro. The ON offset in this table macro 
is incremented by 4, and a new entry name 
(2 bytes) is provided. The length of the 
Block Description Table macro is then 
incremented by 9. This macro contains 
items for each address constant of an entry 
name. 

A test is performed to detect whether a 
secondary entry point to the block has a 
condition prefix different from the block 
prefix. In this case, a warning message is 
entered into the text. 
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Ins ert i on of B lock Desc rip t ion Table — OS 

This routine inserts the macro for the 
first part of the Block Description Table, 
including all address constants for entry 
names. The value of the ON counter is 
stored in the ON/REVERT table of the block. 
A macro is inserted into the text to gener¬ 
ate an ON doubleword for each ON-condition 
occurring in an ON statement. The ON con¬ 
ditions and file names are retrieved from 
the ON/REVERT table in static storage. All 
entries for ON conditions occurring in 
REVERT statements only remain in the table, 
but are rearranged for the second scan. 

Pr ocessing ON and REVERT -- OT 

A table is assembled. It contains the 
format of the condition code in the input 
text (2 bytes) and in the ON-doubleword (1 
byte) for each encountered ON condition. 

Subroutine KONLOOK is called to set the 
appropriate pointers to this table, and to 
set certain pointers to the ON or REVERT 
statement string of the input text. (The 
format of this statement string is dis¬ 
cussed in the description of the syntax 
phases). A test is performed to detect 
whether the ON/REVERT table includes an 
entry for this condition/file name. If 
not, a new entry is made into the table for 
this condition/file name, and the ON coun¬ 
ter is incremented. Flag bits are set in 
the table entry corresponding to the ON or 
REVERT statement. The ON unit in an ON 
statement is checked for a correct GOTO, 
and, if applicable, an error message code 
is inserted into the text stream. The 
format of the ON/REVERT statements in the 
text stream is not changed by this routine. 

M ain Part of Second Scan -- OU 

During the second text scan, processing of 
the ON, REVERT, SIGNAL, and STOP is com¬ 
pleted. The macros for the function of 
these statements are inserted into the text 
stream and the condition prefixes of indi¬ 
vidual statements are processed. The indi¬ 
vidual routines, used only during this 
scan, are: 

• Main part of second scan, 

• Processing of the prologue macro, 

• Statement selection 

• Processing of the REVERT statements, 

• Processing of the SIGNAL and STOP state¬ 
ments, 

• Processing of the condition prefixes, 

• Processing of the ON statement. 


After the end of the input text has been 
reached, a final text output is performed. 
Then a test is made to detect whether the 
first or the second scan is completed. 

After the second scan, phase D70 is 
initiated. 

After the first scan, both work files 
are rewound and switched in their function. 
Certain pointers are reset and the first 
two records are read in overlapped mode. 

The scan then starts by checking for DO 
statements having an own condition prefix. 
If such a DO statement is encountered, the 
statement prefix is set for the scope of 
the DO header, i.e., the appropriate macros 
to set and reset the prefix code in the 
Static Storage Table are inserted. A 
statement key X'EO' and an F2-macro are 
tested and the corresponding routines are 
called. Then subroutine KTESCA is called 
to scan the current text input. 

Proce s sing of the Prologue Macro — QV 

This routine sets the flag bits in the 
prologue macro indicating the presence or 
absence of ON statements in the current 
block. If the prologue macro signals the 
beginning of a new block, the pointer for 
the ON/REVERT table in the upper part of 
the Table Area is decremented to the next 
block limit. KMNN is incremented by 1, 
enabling correct addressing of the Block 
Description Table. (The value of KMNN is 
the symbolic address of the Block Descrip¬ 
tion Table) . For each new block, an On- 
Entry reference table is created in the 
lower part of the Table Area during the 
scan. The pointer to the current table is 
set when a new block is encountered. 

The block prefix is saved to be compared 
to subsequent statement prefixes of the 
block. 

State m ent Selection - 0W 

This routine distinguishes three classes of 
statements: 

1. ON, REVERT, SIGNAL, STOP statements are 
processed by the appropriate routines. 

2. Statements headed by a prefix macro are 
processed by a special routine. 

3. All other statements are bypassed. No 
interrupt may occur during execution of 
these statements. 

Proce s sing the REVERT Statements — OX 

Subroutine KONLOOK is called to set certain 
pointers both in the tables and in the text 
stream. Then the On-Entry reference table 
is scanned to detect whether the condition 
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associated to the statement already 
occurred in the same block. This test is 
based on numbering and correct addressing 
in the Block Description Table. If the 
condition did not occur previously, the 
ON/REVERT table is scanned for a dummy 
entry. If this statement has no corres¬ 
ponding ON statement in the same block, the 
key for a warning message is inserted into 
the text stream. If the statement has a 
corresponding ON statement, a new element 
is added to the table in the lower part of 
the Table Area and a macro is inserted into 
the text stream to set the flag bit of the 
ON-doubleword in the Block Description 
Table. 

Pr oc e ssing of S IGN AL an d S TOP — O Y 

If a SIGNAL statement is encountered', sub¬ 
routine KONLOOK is called to set certain 
pointers to the text stream. Then macros 
are generated and inserted into the text 
stream to call the library interrupt han¬ 
dler. Some of these macros prepare param¬ 
eters for the ON condition code and, if 
necessary, for the file name address. 

If a STOP statement is encountered, a 
macro is inserted into the text stream to 
call the library STOP routine. 

For each SIGNAL or STOP statement, a 
corresponding call bit is set in the inter¬ 
phase communication region to provide the 
appropriate library routine in a later 
compiler phase. 

Pr ocessing of C ond it io n Pr e fix e s - O Z 

This routine is called if a statement has 
an individual condition prefix and if this 
condition can occur during execution of the 
statement. One macro has already been 
inserted to set the statement prefix in the 
Block Description Table. This routine 
inserts the macro for resetting the prefix 
byte into the text string. For assignment 
statements, SET statements, dynamic state¬ 
ments, and I/O statements, the correct 
position to insert this macro is the end of 
statement key X’EA*. The condition prefix 
scope ends here. 

For CALL, GOTO, and RETURN statements, 
the condition prefix is reset if a branch 
macro is encountered and before branching. 

For IF statements, the scope of the 
prefix ends together with the evaluation of 
the IF expression. However, one or more 
branch macros are encountered during evalu¬ 
ation. The length of the text stream for 
the evaluation may exceed the buffer 
length. For this reason, a reset macro is 
inserted to precede each branch macro of 
this evaluation. Another macro to set the 
statement prefix is inserted after each 


branch macro, with one exception: if the 
branch macro is followed by an end-of- 
statement key, nothing is inserted. This 
procedure ensures that the block prefix is 
reset after expression evaluation. 

Processing of ON Statements - 01, 02 

Subroutine KONLOOK is called to set poin¬ 
ters to both tables and in the text stream. 
The On-Entry reference table is looked up 
to detect whether the condition occurred 
already in the same block. If the condi¬ 
tion has not yet occurred, a new entry for 
this condition and file name is made in the 
table. 

If a file parameter occurs in the ON 
statement, a macro is inserted into the 
text stream to move the file address into 
the corresponding ON-doubleword. 

The ON unit is tested and the appropri¬ 
ate flag bits for the ON-doubleword are 
prepared. If the ON unit is a GOTO state¬ 
ment with a label constant, two macros 
concerning the label constant are inserted 
into the text stream. The first macro 
provides a label address constant, the 
second macro moves the address of the label 
address constant into the ON-doubleword. 

If the ON unit is a GOTO statement with a 
label variable, the address constant macro 
for this label variable has already been 
inserted in a previous phase. In this 
case, the label name designates this 
address constant. Only the second macro is 
inserted to move the address into the ON- 
doubleword. 

The macro to set the flag bits in the 
ON-doubleword is inserted into the text 
stream. If a null statement is used in the 
ON unit for an ENDFILE, KEY, or CONVERSION 
condition, an error code is inserted into 
the text stream. 

KTESC ft. — 03, 04 

This routine moves the text scan pointer 
and performs certain tests. If an E-key 
element is encountered, the pointer is 
modified by a fixed length depending on 
this E-key. 

If an F-key signaling the end of text is 
encountered, the main part of the second 
scan is called (if not yet processed). 

If any other F-key element is 
encountered, several tests are made. Cer¬ 
tain macros are selected which require 
setting of a special prefix byte in the 
Block Description Table. The object code 
of these macros may cause a fixed overflow 
interrupt which is to be interpreted as a 
SIZE condition by the library interrupt 
handler. 
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To signal the SIZE condition to the 
library interrupt handler, a second macro 
is inserted preceding the macro causing the 
interrupt. This inserted macro sets bit 7 
in the dynamic prefix byte of the Block 
Description Table to one. A third macro is 
inserted after the interrupt-causing macro. 
The third macro resets bit 7 to zero. 

If the F-key element is of the form 
X*F7....*, the byte containing X*F7* and 
the three bytes following it are eliminat¬ 
ed. 

If the F-key element does not begin with 
X , F7 I , the length for modifying the scan 
pointer is retrieved from bytes 2 and 3 of 
the element. If this length exceeds the 
buffer length, pointer modification is 
accomplished in several steps. 

KCONDOUT — 05 

This subroutine checks whether the scan 
pointer reached the second text input area. 
In this case, the following steps are per¬ 
formed: 

1. The scanned text is put out. The con¬ 
tents from the second text buffer are 
moved into the first text buffer. 

2. A new record is read in overlapped mode 
into the second text buffer. 

3. The scan pointer is decremented by the 
buffer length. 

KONSTOU T — 06 

Before this subroutine is called, register 
1 must contain the start address of the 
information to be added to the output text 
and register 2 must contain the end address 
+ 1 of this information. Output is done in 
one or several steps, depending on the 
length of the information area and on the 
available space in the output area. The 
information to be put out is accumulated in 


the text output area. If this area is 
eventually filled to capacity, output is 
accomplished in overlapped mode. Another 
portion of information is then accumulated 
in the output area. 

KINTE R , KOTE — 07 

If the program is too big, one of the 
tables in the Table Area will eventually 
overflow. In this case, KINTER is called 
to enter a severity error code and to trun¬ 
cate the text at the current position of 
the scan. Compilation is terminated. 

Subroutine KOTE is called when text is 
to be put out. Text output is accomplished 
in portions beginning at the current text 
start address and ending at the current 
position of the scan pointer. 

KONLO O K — 08,09 

This subroutine is called whenever an ON, 
SIGNAL, or REVERT statement is encountered. 
These statements may have a corresponding 
prestatement table. KONLOOK sets pointers 
to the begin and to the end of this pres¬ 
tatement table. Other pointers to be set 
by KONLOOK are: 

1. Pointer to the ON condition table of 
this phase, 

2. pointer to I/O conditions in the ON 
condition table, and 

3. pointer to the ON/REVERT table in the 
upper part of the Table Area. 

If an I/O condition is posted in the 
statement, a test for correct file name 
reference is performed. If the file name 
is incorrect (symbol for file name does not 
reference a file) an error code is inserted 
into the text and elimination of the state¬ 
ment is initiated. If KONLOOK is called 
during the first text scan, this elimina¬ 
tion is nullified by the calling routine. 
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PH ASE PL/I D70 (PR OCESS ING CONSTANTS II) — PK 

( " 



This phase does the following: 

1. It performs the conversion of constants 
from the base, scale, and precision 
specified by the programmer to the 
base, scale, and precision needed at 
object time. The "new type and 
precision" of the constants are deter¬ 
mined in phase D05. 

2. To get the internal representation of 
the decimal and binary floating-point 
constants, i.e., to perform the conver¬ 
sion from base decimal and binary to 
hexadecimal. 

Phase Input and Output 

In previous phases, the source text is 
converted into a stream of elements 
(macros, statement-identifier keys, end-of- 
statement keys, error-keys, and constant 
tables) . 

The constant tables consist of the 
following: 

• X'F3* = key for constant-table, 

• length of table (2 bytes) , 

• One or more constant entries. These 
entries consist of the following: 

Internal name of the constant (2 bytes) . 

Attributes of the constant (1 byte) : 

Bits 2-^3: 

00 = optimizable 
01 = delete 

10 = constant is not optimizable but 
containing block is optimizable 
11= constant should not be deleted 

• Old type of constant (1 byte; see phase 
C35) . 

• Old precision of constant (1 byte; see 
phase C35) . 

• New type of constant (1 byte) . 

Bit 0-1: negation 
Bits 4-7: 0= float 

1 = binary fixed 

2 = float 

3 = decimal fixed (packed) 

4 = decimal fixed (zoned) 

5 = decimal fixed (zoned T) 

6 = character string 

7 = bit string 


• New precision of constant (2 bytes) 

Byte 0: P if arithmetic constant 

L if character string or bit 
string 

Byte 1: Q if fixed point constant. If 
floating point constant: 

0= short, * 0 = long. 

• Length of the following intermediate 
representation of the constant (2 
bytes) . 

• Constant (intermediate representation) . 

Note: NT = 0 and NP = 0 means: NT = OP 

and NP = OP, i.e. no conversion takes 
place unless OT = binary or decimal float. 

The individual entries of the constant 
tables prepared for output have been 
reduced to the following: 

• Internal name of constant (2 bytes) 

• Attribute of the constant (1 byte) 

• Length of constant that follows 

With the exception of floating-point 
numbers, the internal representation of the 
constants is the same as the intermediate 
one (see phase C35) . The floating-point 
constants contain the following. 

• (1 byte) : 

bit 0 : sign : 1 = neg., 0 = pos. 

bits 1-7 : hexadecimal exponent (excess 
64 number) 

• (variable) :hexadecimal fraction of 6 or 
14 hexadecimal digits depending on 
whether it is a short or long fraction, 
respectively. (See IBM System/360 Prin¬ 
ciples of Operation , Form A22-6821) . 

The decimal fixed-point ZONED constants 
are stored as unsigned integers, each digit 
occupying one byte, in ZONED T constants 
the zone of the rightmost digit is replaced 
by the sign. (See IBM System/360 Princi¬ 
ples o f Operation , Form A22-6 821) . 

Initi a lization — PL 

This routine initializes pointers, switch¬ 
es, etc., and reads in two buffers of input 
text. 

FGSC — PM, PN 

This is part of the main routine of the 
phase. It scans the input stream, bypasses 
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and moves all program elements, except 
end-of-program-keys and constant tables, 
into the output buffer. Each new constant 
table is built up in the table space, and, 
after all constants of the corresponding 
old table have been processed, it is moved 
into the output buffer. Constants with the 
delete-bit on and the optimizable-bit off 
are deleted from the table. Constants 
which do not have to be converted are moved 
unchanged into the new constant table; only 
the 5 bytes including types and precisions 
are deleted. 

If the table space is filled and there 
are still some constants to be processed, 
the new constant table is written onto the 
text output file and a second one is built 
up. When the end-of-program key is found, 
it is moved into the output buffer, which 
is written onto the text output work file. 
Control is passed to IJKPH to call phase 
D75 or D80 depending on whether the job- 
information-bit (bit 28) is on or off. 

FEOS — PP 

This routine is part of the main routine. 

It is called when an end-of-statement key 
is found during the scan of the input text. 
If it terminates an erroneous statement 
(i.e., if bits 8-11 of the EOS key are not 
all zeros) the job-information bit (bit 1) 
is set on. Before doing this, bits 8-11 of 
the EOS key have been OR-ed by the 
severity-code bits of any errors occuring 
during conversion of a constant belonging 
to this statement. The error-tail of the 
end-of-statement key is extended by the 
error key (s) , and the respective error 
number (s) is stored in the error table. A 
macro is generated to signal the SIZE con¬ 
dition at object time. 

N ote : Only an end-of-statement key with 

bit 15 on indicates the termination of an 
I/O statement. 

JT RN — PO 

Input parameters: 

PIN = contains address of source 
POUT = pointer of output buffer 
BYZ = number of bytes to be moved 

Output parameters: 

PIN = PIN+BYZ 

POUT = address of the next available byte 
in the output buffer. 

This routine loads the output buffer. 

If all the bytes to be moved do not fit 
into the output buffer or if they do exact¬ 
ly fit, the buffer is filled by the first 
part of the text to be moved. The buffer 
is written onto the text output work file. 
The remaining bytes, if any, are moved into 
the buffer (left-aligned) . 


FERR — PQ 

This routine prepares parameters to note 
error number 64 (CONSTANT CONVERSION UNDE¬ 
FINED DUE TO SIZE-ERROR) in the error 
table. 


Vy 


FERRUC — PQ 

This routine is branched to if a conversion 
to character string other than from bit 
string is requested. It prepares paramet¬ 
ers to note error number 146 (ILLEGAL CON¬ 
VERSION OR COMBINATION OF DATA TYPES) and 
deletes the constant. 


JERR — PQ 

Input parameter: 

RO = error number 

This routine notes up to 8 errors in the 
error table. 


FPIN — PR 


Input parameters: 

PIN = input pointer 

PIN = contains the address of the first 
byte of the input text which is to 
be moved into the output buffer. 

This routine is called each time the 
input pointer is increased. It updates the 
input pointer so that it points always to 
an address within the first of the two 
input buffers. When the input pointer goes 
beyond this range, all source text from 
PINS up to PIN is moved into the output 
buffer. If not all the text can be read in 
one move, several steps are used. If nec¬ 
essary, the input text is moved to the left 
so that the input pointer points to an 
address within the first buffer. 

Secondary Entry Point: FPINX 
This part of the routine moves the input 
text to the left and reads in a new record 
without moving any text into the output 
buffer. 

FCON -- PS 

Input parameter: 

PIN = points to the constant-table entry 
of the constant to be converted. 

This routine prepares the parameters for 
one of the conversion routines. The con¬ 
version routines convert the old type and 
precision of the constant to the new type 
and precision. The conversion routines 


are: 



FBSL 

bit string to 

float 

FBIL 

binary fixed 

to float 

FBLL 

binary float 

(intermediate 


representation) to float 



238 





PL/I PLM 8 


IBM Confidential 

FSBI bit string to binary fixed 
FBII binary fixed (change and check for 
precision) 

FSDI bit string to decimal fixed 
FBID binary fixed to decimal fixed 
FDDI decimal fixed (change and check for 
precision) 

FSCS bit string to character string 
FBLS binary float (intermediate 

representation) to bit string 
FBIS binary fixed to bit string 

FBSS bit string (change and check for 
precision) 

FNDI binary float (intermediate 

representation) to decimal fixed 
FLDI float to decimal fixed 

FNBI binary float (intermediate 

representation) to binary fixed 
FDIS decimal fixed to bit string 

FDIL decimal fixed to float 

FDFL decimal float (intermediate 

representation) to float 
FDLS decimal float (intermediate 

representation) to bit string 
FDLB decimal float (intermediate 

representation) to binary fixed 
FLBI float to binary fixed 

FDIB decimal fixed to binary fixed 

FDLD decimal float (intermediate 

representation) to decimal fixed 

FB SL — PT 

Input parameters: 

PIN = address of constant-table entry 
CONS = (double word) contains the bit 
string left-aligned. 

This routine converts the bit string to 
float. The bit string is first converted 
to binary fixed (precision (31, 0) . Then 
control is transferred to FBIL. 

FBI L — PT 

This is a secondary entry point of FBSL. 
Input parameters: 

PIN = address of constant-table entry 
CONS = (fullword) contains the binary 
fixed-point constant. 

RBFI = R5 (general register) same as CONS. 

The routine converts binary fixed point 
constants to floating point. The paramet¬ 
ers are transformed into parameters for 
FBLL, i.e., the constant is interpreted as 
a binary floating point constant 
(intermediate representation) with exponent 
= 0. Then control is transferred to FBLL. 

F BLL — PU 

This is a secondary entry point of FBSL. 
Input parameters: 

PIN = address of constant-table entry 
CONS = (double word) contains the binary 


integer (precision (53,0) 

REXP = (general register) contains the 
binary exponent 

LIND = (general register) switch to indi¬ 
cate whether FBLL has been called by 
another conversion routine (#0) or 
by FCON (=0) 

Output parameters: 

PIN = unchanged 
CONS = result of the conversion 
RLEN = 4 if short fraction, 8 if long frac¬ 
tion. 

This routine converts binary float 
(intermediate) to float. 

After having been shifted left by 
(REXP- (FLOOR (REXP/4) ) *4) the binary inte¬ 
ger is interpreted as the fraction of an 
unnormalized floating- point constant with 
the hexadecimal exponent 
(64 + FLOOR (REXP/4) ) . 

To normalize the constant, the fraction 
is shifted left as many hexadecimal digit 
positions as necessary, and the exponent is 
reduced accordingly. 

If the exponent is less than 0 or great¬ 
er than X'7F', the constant is set to 0 or 
to the largest hexadecimal value (entry 
points FBLL30 or FBLL35, respectively) , and 
error numbers 59 or 58, respectively, are 
put into the error table. 

Finally, if LIND t 0, control is trans¬ 
ferred to the calling conversion routine. 
Otherwise, if the sign is minus, it is 
taken into account by setting the leftmost 
bit of the constant to 1. 

Secondary entry points: FBLL10, FBLL30, 
FBLL35, FBLL25 

FSBI - - P V 

Input parameters: 

PIN = address of constant-table entry 
CONS = (double word) contains the bit 
string left-aligned. 

This routine converts from bit string to 
binary fixed. The constant is loaded into 
a pair of general registers and right- 
aligned by a double shift. The result is 
interpreted as a binary fixed point 
constant (precision (31,0)), and signifi¬ 
cant binary digits exceeding 31 are trun¬ 
cated. Control is then transferred to 
FBII. 

FBII — PW 

This is a secondary entry point of FSBI. 
Input parameters: 

PIN = address of constant-table entry 
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CONS = (fullword) contains the 

binary fixed-point constant 
RBFI = R5 - (general register) same as CONS 
LIND = switch to indicate whether FBII has 
been called by another conversion 
routine (*0) or by FCON (=0) 

Output parameters: 

PIN = unchanged 

CONS = result of conversion 

RLEN = 4 

The constant is shifted as many binary 
digit positions as specified by the target 
scale factor (note that scale of source is 
always 0) , left or right depending on 
whether the scale factor is positive or 
negative. If there are more significant 
digits than specified for the precision of 
the target, the constant is truncated to 
the left, and FERR is called. 

If LIND # 0, control is transferred to 
the calling conversion routine. Otherwise, 
the sign specified for the constant is 
taken into account, i.e., the constant is 
complemented if the sign is minus. 

Secondary entry point: FBII03 


F SDI — PX 
Input parameters: 

PIN = address of constant-table entry 
CONS = (double word) contains the bit 
string left-aligned. 

This routine converts from bit string to 
decimal fixed. The bit string is first 
converted to binary fixed (precision 
(31,0)) , and control is transferred to 
FBID. 


FBID — PX 

This is a secondary entry point of FSDI. 
Input parameters: 

PIN = address of constant-table entry 
RBFI = (gen.reg.) binary fixed-point con¬ 
stant 

This routine converts from binary fixed 
to decimal fixed. The binary fixed -point 
constant is converted to decimal 
(precision (15,0)), and control is trans¬ 
ferred to FDDI. 

FDDI — PY 

This is a secondary entry point of FSDI. 
Input parameters: 

PIN = address of constant-table entry 
CONS = (double word) contains the decimal 
fixed point constant. 


Output parameters: 

PIN = unchanged 

CONS = result of conversion, left-aligned 
RLEN = length of result in bytes 

This routine converts packed decimal 
fixed to decimal fixed, packed or zoned or 
(zoned (T) format. 

Second entry point: FDDIX 

Input parameters: as above 
R0 = scale factor of source 

Third entry point: FDDI45 

The constant is shifted as many decimal 
digit positions as the difference between 
the scale factor of target and the source. 
It is shifted left or right depending on 
whether the difference is positive or nega¬ 
tive. 

If there are more significant digits 
than specified for the precision of the 
target, FERR is called and the excess 
2*CETL (P+2/2) -1 or P left digits are trun¬ 
cated on the left, depending on whether 
packed or zoned format is called for. 


The constant is left-aligned in CONS and 
supplied with the appropriate sign bits as 
specified by the target. 


If zoned or zoned (T) format is called 
for, the constant is unpacked and the sign 
replaced by the zone or left unchanged, 
respectively. 

FSCS - - PZ 

Input parameters: 

PIN = address of constant-table entry 
CONS = (double word) contains the bit 
string left-aligned 
PTAB = pointer of new constant table. 

Output parameters: 

PIN = unchanged 

PTAB = points to the next entry. 

This routine converts bit strings to 
character strings. The character string is 
built one character at a time in the new 
constant table. If the length of the tar¬ 
get exceeds the length of the source, the 
character string is expanded with blanks. 

FBLS — Q A 

Input parameters: 

PIN = address of constant-table entry 
CONS = (double word) contains the binary 
integer (precision (53,0)) 

REXP = (register) contains the binary expo¬ 
nent. 
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Binary float (intermediate) is converted 
to bit string. The routine calls FNBI 
which converts the binary float constant 
(intermediate representation) to binary 
fixed (precision = min (31, P (source) ) . Con¬ 
trol is then transferred to FBIS. 


F BIS — Qh 

This is a secondary entry point of FBLS. 
Input parameters: 

PIN = address of constant-table entry 
RBFI = (register) contains binary fixed- 
point constant 

This routine converts binary fixed to 
bit string. The binary fixed-point con¬ 
stant is interpreted as a bit string of 
length P (source) , i.e., RBFI is shifted 
left (32-P) bit positions. Then control is 
transferred to FBSS. 


F BSS — QA 

This is a secondary entry point of FBLS. 
Input parameters: 

PIN = address of constant-table entry 
CONS = (double word) contains the left- 

aligned bit string (expanded on the 
right by 0's) 

Output parameters: 

PIN = unchanged 

CONS = target string, left-aligned 
RLEN = length of target in bytes = CEIL 
(length of target in bits/8) 

This routine truncates or expands bit 
strings according to the new precision, 
string. string. If the target sign is 
negative, the string is inverted. 

FN DI -- OB 

Input parameters: 

PIN = address of constant-table entry 
CONS = (double word) contains the binary 
integer 

REXP = (register) contains the binary expo¬ 
nent 

This routine converts binary float 
(intermediate) to decimal fixed. FBLL is 
called to convert the binary float number 
(intermediate form) to hexadecimal float. 
Then control is tranferred to FLDI. 

FLDI_“_OB 

This is a secondary entry point of FNDI. 
Input parameters: 

CONS = (double word) hexadecimal floating 
point number 


Output parameter: 

CONS = decimal integer (precision (15,0)) 
R0=RSCF: scale factor 

This routine converts hexadecimal float 
to decimal fixed. If the source is zero, 
FDDI is called to generate a decimal zero. 
If the excess 64 hexadecimal exponent is 
78, the hexadecimal fraction of 14 digits 
may be interpreted as a binary integer 
(precision (56,0) ) . This binary integer is 
converted to decimal (precision (1 7,0) ) . If 
the result consists of more than 15 signi¬ 
ficant digits, the result is truncated and 
shifted right one or two decimal digit 
positions, and the scale factor 
(initialized with 0) is reduced according¬ 
ly. FDDIX is called to process the decimal 
fixed-point numbers. 

If the source exponent is not 78, the 
hexadecimal fraction may be interpreted as 
a binary integer which is to be multiplied 
by 16**y (y = source exponent-7 8) . 

D = 10 * 1 6**y 

this is equivalent to 

D/10**X=I0*16**y/10**y=I1*16**0 
if 16**y/10**X=1, i.e., 

16**y=10**X, i.e., 
x=y* In16/ln10 

This means: the source is to be divided 
by 10**x to get an integer result which may 
be converted to decimal. The target result 
is the decimal integer and the scale factor 

X. 

To get the hexadecimal (binary) integer, 
the source is divided by 10**X1 or multi¬ 
plied by 10**-X1, depending on whether XI 
is positive or negative. XI = min(78, 

FLOOR ( (y* 19728+8192) 16384) 

(1 9728/163 84=1n 16/ln 10 ; 8192 = 
rounding) , and the scale factor is 
increased by XI. This is repeated until 
the exponent of the result is 78. 


FNBI — Q C 

Input parameters: 

PIN = address of constant-table entry 

CONS = (double word) contains the binary 
integer 

REXP = (register) contains the binary expo¬ 
nent 

LIND = (register) switch to indicate wheth¬ 
er FNBI has been called by another 
conversion routine (#0) or by FCON 
(=0) 

Output parameters: 

PIN = unchanged 

CONS = result of conversion 

RLEN = 4 
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This routine converts binary float 
(intermediate) to binary fixed. The binary 
integer is shifted as many binary digit 
positions as the sum of the exponent and 
the scale factor of the target. It is 
shifted left or right depending on whether 
the sum is positive or negative. 

If there are more significant digits 
than specified for the precision of the 
target, FERR is called, and the number is 
truncated on the left. 

If LIND * 0, control is passed to the 
calling conversion routine; if LIND = 0, 
the sign specified for the target is taken 
into account, i.e., the constant is comple¬ 
mented if the sign is minus. 

FD IS — QD 

Input parameters: 

PIN = address of constant-table entry 
CONS = (double word) contains the decimal 
fixed-point constant. 

This routine converts decimal fixed to 
bit string. The decimal fixed point con¬ 
stant is converted to binary fixed, preci¬ 
sion min (31, CEIL ( (P-Q)/3,32) ) . FBIS is 
called to perform the conversion from 
binary fixed to bit string. 

If P-Q = 0, a string of length 1, value 
0 is generated in CONS. FBSS is called to 
process the bit string. 

F DIL — QE 

Input parameters: 

PIN = address of constant-table entry 
CONS = (double word) contains the decimal 
fixed-point constant. 

This routine converts decimal fixed to 
float. The input parameters are trans¬ 
formed into input parameters for FDLL (REXP 
= -scale factor). Control is transferred 
to FDLL. 

FDLL (FDFL) _ — QE 

Input parameters: 

PIN = address of constant-table entry 
FINT = (= CONS (double word) - 1) : decimal 

integer (prec. 17) 

REXP = decimal exponent 

Output parameter: 

CONS = hexadecimal floating-point constant. 

This routine converts decimal float 
(intermediate) to float. The decimal inte¬ 
ger is converted to binary (precision 
56,0), after having been left-aligned and 
REXP having been reduced accordingly. The 
binary integer may be interpreted as the 
fraction of a normalized floating point 


number with the excess 64 hexadecimal expo¬ 
nent of 78. 

If the integer is zero, the result is 
set to a true floating-point zero. If the 
integer is not zero and if REXP is greater 
than 59, FBLL is called to set the constant 
to the highest floating-point number 

The normalized hexadecimal number is 
multiplied by 10**X (X = REXP) if REXP is 
positive, or divided by 10***X' if REXP is 
negative. If the result is zero, i.e., in 
the case of an exponent underflow (the 
interrupt having been masked off) , FBLL30 
is called to set the constant to zero. 
FBLL10 is then called to process the 
floating-point constant. 


FDLS -- Q G 
Input parameters: 

PIN = address of constant-table entry 
FINT = (= CONS (double word) -1) : decimal 

integer (precision 17) 

REXP = decimal exponent 

This routine converts decimal float to 
bit string. By means of FDLB the source is 
converted to binary integer (precision = 
min (31 ,CEIL (P (Source) *3,32) ) . FBIS is 
called to perform the conversion from 
binary fixed to bit string. 


FDLB - - Q H 
Input parameters: 

PIN = address of constant-table entry 
FINT = (=CONS (double word)-1) : decimal 
integer (precision 17) 

REXP = decimal exponent 

This routine converts decimal float to 
binary fixed. By means of FDLL the source 
is converted to hexadecimal float, then 
control is transferred to FLBI• 

FLBI - - QH 

This is a secondary entry point of FDLB. 
Input parameter: 

CONS = (double word) floating-point number 

This routine converts float to binary 
fixed. The fraction of the floating point 
numer is interpreted as a binary integer 
which is to be divided by 16**X(X = 

7 8-hexadecimal exponent) . The fraction is 
shifted left by RSHI = (78-exp) *4-scale 
factor of target. FBII03 is called to 
process the binary fixed-point number. 

If RSHI is negative or greater than 56, 
CONS is set to 0. When RSHI is negative, 
FERR is also called. 
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FD IB -- QI 
Input parameters: 

PIN = address of constant-table entry 
CONS = (double word) decimal integer 

This routine converts decimal fixed to 
binary fixed. If the scale factor of the 
target is * 0, by means of FDIL, the source 
is converted to hexadecimal float. FLBI is 
called to perform the conversion from float 
to binary fixed. 

If the conversion is to binary integer, 
the fractional digits of the source are 
truncated, and the resulting decimal 
integer is converted to binary. 

If the resulting binary integer is 
greater than or equal to 2**31, FERR. is 
called and CONS is zeroized. Otherwise, 
FBII is called to process the binary fixed- 
point number. 

5o utin e FDLD — QJ 

Input parameters: 

PIN = address of constant-table entry 
FINT = ( = CONS (double word) - 1) ; decimal 

integer (precision 17) 

REXP = decimal exponent 

This routine converts decimal float to 
decimal fixed. By means of FDLL, the 
source is converted to hexadecimal float. 
FLDI is called to perform the conversion 
from float to decimal fixed. 

DI FL — QL 

Performs the simulation of a floating-point 
division. 

Input parameters: 

R1 = address of dividend 
R2 = address of divisor 

Output parameters: 

CONS = result of division 
R1 = unchanged 

No te : 1• Dividend and divisor are assumed 
to be positive, normalized, long 
floating-point numbers. 

2. The divisor is not 0. 

3. An exponent underflow cannot 
occur. 

This routine simulates floating-point 
division. The exponent of the result is 
obtained by subtracting the exponent of the 
divisor from that of the dividend and 
adding the difference to 64. To get the 
result fraction, the fractions of dividend 
and divisor are interpreted as two binary 
integers, which are divided by means of the 


Euclidean algorithm, i.e., the subtraction 
method. Before this is done, the integer 
belonging to the divisor is multiplied by 
16, and the exponent is increased by 1 if 
the dividend fraction is greater than the 
divisor fraction. If the dividend fraction 
is 0, the result is a true 0. 


MUFL - - QL 

Performs the simulation of a floating-point 
multiplication 

Input parameters: 

R1 = address of multiplicand 

R2 = address of multiplier 

Output parameters: 

CONS = result of multiplication 
R1 = unchanged 

Note : 1. Both operands are assumed to be 
positive, normalized, long 
floating-point numbers. 

2. An exponent-overflow or underflow 
cannot occur. 

The sum of the exponents of the two 
operands -64 form the exponent of the 
intermediate result. To get the fraction 
of the intermediate result, the fractions 
of both operands are interpreted as two 
binary integers (precision 56) that are to 
be multiplied. To do this, both integers 
are split into two parts (precision of A2 
and B2 =31; precision of A1 and B1 = 25) : 

A*B= (Al*2**3 1 +A2) * (B 1*2**3 1+B2) 

= Al*B1*2**62+A1*B2*2**31 
+ A2*B1*2**31 

The result (precision 112) is derived 
from shifting the bits and adding the 4 
results obtained in the 4 multiplications 
(A2 * B2, A2 * B1 , A1 * B2, and A1 * B1) , 
as shown in Figure 1. 

The result has a maximum of 56 digits 
and is truncated on the right. 

To normalize the intermediate result, 
the fraction is shifted left as many hexa¬ 
decimal digit positions as necessary, and 
the exponent is reduced accordingly. 

If one of the two operands is 0, the 
result is a true 0. 


MUDI — Q K 

This routine performs the floating-point 
multiplication and division. If no 
floating-point feature is available, the 
simulation routines MUFL or DIFL are 
called, respectively. 
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PHASE PL/ID 75 (GENERATI ON OF I/O MACROS I) — QP 


This phase processes the first group of I/O 
statements, GET, PUT, and FORMAT state¬ 
ments. GET and PUT statements are tran¬ 
slated into several macros, each of which 
will result in library calls and corres¬ 
ponding parameters. Both macros and param¬ 
eters are generated in accordance with the 
elements and options of the statement proc¬ 
essed. Also, macros and parameters that 
effect the insertion of values into the 
calling sequence at object time are pro¬ 
duced. For FORMAT statements, only param¬ 
eters (format strings) are generated, one 
for each label of the FORMAT statement. 

All other parts of the text, even if embed¬ 
ded in the statements processed, are 
skipped and remain unchanged. Error and/or 
warning indications are generated on varia¬ 
ble counter overflow, incorrect data, or 
incorrect format item. 

Ph ase I nput and Ou t put 

The input for this phase is obtained from 
TXTIN. The input text consists of: 

1. Program text that is already translated 
into the macro language. 

2. I/O statements other than GET, PUT, and 
FORMAT as delivered by the compiler 
phases C50 - C65. 

3. GET, PUT, and FORMAT statements as 
delivered by the compiler phases C50 - 
C65. 

4. End-of-program key. 

The output for items 1, 2, and 4 above 
appears in unchanged form in the output 
text. The output for statements of item 3 
are transformed as described above. 

Communi cation with Othe r P h ase s 

Characterizations of statements, options, 
data list elements, end-of-statements 
belonging to I/O statements, and file par¬ 
ameters are obtained from phases C50 - C65. 
These are necessary for the sequential 
processing of this phase. The presence of 
errors is indicated in the communication 
region for use by the diagnostic phase. 

For each library routine occurring, a bit 
is set in the library bitstring in the 
communication region for use by phase D80. 

Phase D esc r ipt io n -- QP 

The input text string is scanned by the 
search routine. All elements belonging to 


the groups described under items 1 and 2 of 
the section Phase Input and Output are 
written out unchanged into the output text. 
When an element of the group described 
under item 3 of the section Phase Input and 
Outp ut is found, the search routine branch¬ 
es to the appropriate processing routine. 
After a GET, PUT, or FORMAT statement has 
been processed, control is transferred back 
to the search routine. After the end-of- 
program key has been found, the 
corresponding library bits of the communi¬ 
cation region are set. The end-of-program 
key is edited and phase D80 is called. 


SEARCH — QR 

After the error indication is cleared and 
the buffers (using the input routine) are 
filled, elements of the input string are 
tested successively. Only elements with 
EA, EB, EO, and F-keys are expected to be 
found. All elements, except the end-of- 
program keys, GET, PUT, and FORMAT 
statement keys, are skipped with their 
appropriate length and are written using 
the skip routine. When a not-skippable key 
is found, an appropriate exit out of this 
routine is performed. 

Subro u tines -- QS 

STR ( S tep A4) . If RA (register 1) points 
to the name of a variable in the table 
space, when this subroutine is entered, the 
name of the major structure, the pointer, 
or the base will be found if the variable 
is an element of a structure, or is con¬ 
trolled or defined. All possible combina¬ 
tions are allowed. If the variable is an 
element of a structure, also the offset and 
for variables that are controlled or 
defined, the attribute byte of the pointer 
(with special flag) or of the base is 
inserted. 

SKIP ( Step A2). In this routine, the input 
pointer is updated by the number contained 
in register RG. The contents of the input 
buffers passed by the input pointer are 
written using the output routine. Before 
the end of the buffer area is reached, the 
buffers are always filled, the input poin¬ 
ter is repositioned accordingly (input 
routine) , and the procedure is continued. 

COUN T (St e p F3) . This routine increases 
the variable counter by one and tests it 
for overflow. If an overflow has occurred, 
an error indication is stored in an error 
byte or a switch. 
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SETIN1, SE TIN2 — QT 

This routine has two entries. When entry 1 
is used, the input pointer (Register INPO) 
is moved to the next syntactical unit 
belonging to the statement itself and all 
embedded syntactical units with the keys 
FO, F2, F3, F6, EB, and also end-of- 
statements (key EA) are skipped if the 
latter are not flagged as belonging to the 
I/O statement processed. After each 
skipped unit, the input buffers are filled 
again if required (input routine). Using 
entry 2, the input pointer is first moved 
three bytes ahead before performing the 
function as described above. 

GETPUT — Q U- QY 

When a GET or a PUT statement is found, the 
search routine branches to this routine. 
First, the flag byte (2nd byte of the 
statement identifier) which indicates that 
the options are saved, and the statement 
attribute table are moved into the table 
space using the move routine. Macros and 
constants are generated for calling the 
initialization library routine. These will 
be different for file or string options and 
for GET or PUT statements and EDIT or LIST 
options. If, for a file option, a file 
parameter is present which is indicated by 
the first byte of the file name, a dummy 
name is inserted and the constant is 
labeled. Thus, provisions are made for 
inserting the actual file name at object 
time by code prepared in the phases C50 - 
C65. For the string option, the string 
variable is examined and passed to the 
library routine in a similar manner as for 
data list elements (as described below) . 

After the macros and constants for the 
initialization have been written, the flag 
byte is examined for the various options if 
file option has been found. When options 
of a PUT statement are found, macros and 
constants are generated for the necessary 
library calls and eventually for object 
code to insert values at object time. The 
format list, if present, is translated into 
a format string and written as one or more 
constants using the build-format-string 
routine. The data list is processed next; 
macros and constants for library calls are 
generated corresponding to one library call 
for each data element. For this purpose, 
the characteristic of the current data 
element is saved. This indicates whether 
it is scalar or array and whether it is the 
first element of a group (special item) . 

For each data element, a DED (data ele¬ 
ment descriptor) is constructed for library 
use. If more adjacent data elements have 
the same DED, it is constructed and loaded 
only once. The construction of the DED and 
the name part of the macro belonging to a 


given data element is different for charac¬ 
ter string constant, declared variable, and 
generated variable elements. 

For declared variables, the name and 
characteristics of the variable are found 
in the variable table stored in the table 
space. If it is found to be an element of 
a structure, controlled and/or defined, the 
name part of the macro is modified accord¬ 
ingly using the structure subroutine. If 
the declared variable is an array, the 
macro is modified to produce a suitable 
loop. For a generated variable that is 
non-integer binary fixed, macros and con¬ 
stants are also generated for the call of a 
binary fixed/binary float conversion 
library routine. 

If more format and data lists follow in 
the statement, the above processing of 
these lists is repeated as often as 
required. The scanning of the statement is 
performed by the set input pointer subrou¬ 
tine, which skips and edits in unchanged 
form all embedded elements not belonging to 
the statement itself* 

When a variable counter overflow, incor¬ 
rect data, or incorrect format items are 
found, these indications are stored and 
suitable warning and/or error codes are 
produced in the output after reaching the 
end-of-statement key. The error test is 
made for counter overflow by the count 
routine, for format items by the build 
format string routine. 

Note: Auxiliary routines for generating 

initialization macros, parameters, and move 
macros are: GENIM, GENPAR, and GENMO. 

These routines belong to GETPUT, and their 
function is described with that routine. 

BFSTR — QZ 

The elements of the format list are succes¬ 
sively translated into elements of a format 
constant which is built in the input buf¬ 
fer. When a remote format item is reached, 
the partial format constant built until 
this point is written out and a construc¬ 
tion of a new constant is started because 
of the difference in constant types 
(hexadecimal versus address constants) . If 
the remote format item has a label variable 
rather than a label constant, provision is 
made for inserting the actual value at 
object time in a similar manner as for file 
parameters (see description above) . 

FORMAT — RB 

When a FORMAT statement is found, the 
search routine branches to this routine 
which causes the format list to be tran¬ 
slated into a format string using the build 
format string subroutine. This string is 
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written as a constant (once for each label 
of the statement) with the current label as 
the name. 

I NPUT — RC 

This routine causes the input buffers to be 
filled using the IJKAGI external routine 
depending on the current position of the 
input pointer (INPO) . After control is 
transferred from the routine, at least 
three of the four input buffers are filled. 
The input pointer is adjusted. 

OUTPUT/ OPW SP - - R D 

Output of text is accomplished via this 
routine. When the standard entry is used, 
register RC must be loaded with the address 
and register RD with the length of the 


output area. An additional entry (OPWSP) 
serves for automatic loading of register RC 
with the address of the work space. The 
routine uses one output buffer, whose poin¬ 
ter (register OUPO) is adjusted in course 
of the output function. For physical out¬ 
put, the IJKAPO external routine is used. 


MOVE — R E 

This routine is used by the input and out¬ 
put routines and for moving the pre¬ 
statement into the table space. Moving of 
the contents of a source area into a target 
area is performed ( these areas must not 
overlap). Address and length of the source 
area are to be loaded into registers RC and 
RA, respectively; the address of the target 
area into register RB. 
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PHASE PL/ID 8Q_ (GENERATION OF I/O MACROS II) — RF 


OPEN, CLOSE, DISPLAY, and record-oriented 
I/O statements of the input text string are 
selected and replaced by macros that 
generate the required library calls and 
parameters belonging to these calls. Both 
macros and parameters are generated in 
accordance to the elements and options of 
the statement processed. Macros and param¬ 
eters that effect the insertion of values 
into the calling sequence at object time 
are also produced. All other parts of the 
text, even if embedded in the statements 
processed, are skipped and remain 
unchanged. After having scanned the input 
text, the library bit string in the com¬ 
munication region is completed, address 
constants are generated from it and edited 
for library use. Error indication is gen¬ 
erated when a counter overflow is detected. 


Ph as e I npu t an d Ou tput 

The input for this phase is obtained from 
TXTIN. The input text consists of: 

1. Program text already translated into 
the macro language. 

2. OPEN, CLOSE, DISPLAY, and record- 
oriented I/O statements as delivered by 
the phases C50 - C65. 

3. End-of-program key. 

The output for the program text and the 
end-of-program key (items 1 and 3 above) 
appears in unchanged form in the output 
text. The output for statements listed 
under item 2 above is transformed as 
described in the statement processing rou¬ 
tine. 

The text output is followed by the 
library address constants as described in 
the end-of-program processing routine. 

Co mmun i cat i on with Othe r P h ases 

Characterizations of statements, options, 
file attributes, end-of-statements belong¬ 
ing to I/O statements and file parameters 
are obtained from the phases C50 - C65. 
These are necessary for the sequential 
processing of this phase. The presence of 
an error is indicated in the communication 
region for the use of the diagnostic phase. 

Bits set by previous phases and this 
phase in the library bit string in the 
communication region are used to generate 
address constants that cause object-time 
loading of the required library routines. 


Phase Description -— RF 

The input text string is scanned by the 
search routine. All elements belonging to 
the group described under item 1 of the 
section Phase Input and Output are written 
out unchanged into the output text. When 
an element of the group described under 
item 2 of the section Phase Input and Out ¬ 
put is found, control is transferred to the 
statement processing routine. 

After a statement has been processed, 
control is transferred back to the search 
routine. When an end-of-program key is 
found, control is transferred to the EOP 
processing routine. When control returns 
from this routine, phase E25 or E50 is 
called. Which one of these phases is 
called depends on whether or not an error 
has been indicated in the communication 
region. 

SEARC H — RF 

After the buffers (using the input routine) 
are filled, elements of the input string 
are tested successively. Only elements 
with EA, EB, EO, and F-keys are expected to 
be found. All elements, except end-of- 
program keys of statements to be processed 
in this phase, are skipped with their 
appropriate length and are edited using the 
skip routine. When a not-skippable key is 
found, an appropriate exit out of this 
routine is made. 

State m ent Processing Routine — RG-RK 

When a statement to be processed by this 
phase is found, the search routine branches 
to the statement processing routine. 

First, the flagbyte (2nd byte of the state¬ 
ment identifier) which describes the state¬ 
ment and the options is saved and the 
statement attribute table is moved into the 
table space by means of the MOVE routine. 
For OPEN-CLOSE and record-oriented state¬ 
ments. the first part of the library par¬ 
ameter is built. For this purpose, an 
address constant for the file name is con¬ 
structed. If a file parameter rather than 
a file name is present, which is indicated 
by the first byte of the file-name symbol, 
a dummy name is inserted and the constant 
is labeled. This way, provision is made 
for inserting the actual file name at 
object time by code prepared by the phases 
C50 - C65. The first byte (flag byte) of 
the library parameter is constructed in 
accordance with the stored information of 
statement type and options. 
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For record-oriented statements, the 
length of the record variable and various 
address constants belonging to the SET, 
FROM, INTO, KEY, and KEYFROM options are 
built into the library parameter. These 
options may appear in any order in the 
original statement, but the corresponding 
address constants and also the length of 
the record variable have a predetermined 
place in the library parameter. 

For a declared variable in the options, 
the name and characteristics of the varia¬ 
ble are found in the variable table stored 
in the table space. If it is found to be 
an element of a structure, controlled 
and/or defined, the address constant is 
modified accordingly using the structure 
subroutine. If the variable is found to 
have the storage class dynamic, a load- 
variable macro is produced which serves for 
object-time insertion of the actual 
address. Finally, an initialization macro 
is generated that will produce the 
appropriate library call. The key for the 
library routine is obtained from the file 
declarations stored from the statement flag 
byte, (i.e., second byte of the statement 
identifier) . 

For an OPEN or CLOSE statement, the 
library parameter consists of a series of 
combinations of a flag byte, (i.e., charac¬ 
terizing the statement, the options and 
whether it is the last element of the 
series), and adjacent-file-address con¬ 
stant. Each element of the series corres¬ 
ponds to an options group of the statement. 
When a file parameter or a PAGESIZE option 
is found, the series is completed and a new 
series is started. For each series, one 
single initialization macro is generated 
(different variant for OPEN and CLOSE) 
which itself will produce the appropriate 
library call. For a PAGESIZE option, a 
separate library parameter with a move 
macro to generate code for object-time 
insertion of the actual value, and an ini¬ 
tialization macro for the library call are 
produced immediately after the library call 
relating to the corresponding file option. 

The DISPLAY statement is processed in a 
separate section of this phase. First, a 
DED (data element descriptor) , load-DED- 
macro, load-transmit macro, and load-scalar 
macro for the given expression are 


generated. These are required for the 
object-time call of the appropriate library 
routine. Building of these elements is 
different for character-string constants, 
declared or generated variables in much the 
same way as for the data-list elements of 
stream-oriented data-transmission described 
in phase D75. If a REPLY option is pre¬ 
sent, the same procedure is repeated for 
the REPLY variable with the library routine 
code changed accordingly. 

When a variable counter overflow during 
the statement processing is found, the 
count routine sets a switch which causes 
the output of an error indication with the 
end-of-statement. For each library rou¬ 
tine, a bit is set in the library bit 
string in the communication region for the 
use by the end-of-program processing rou¬ 
tine in this phase. The scanning of the 
statement is performed by the set INPO 
subroutine which skips and writes out in 
unchanged form all embedded elements not 
belonging to the statement itself. 

EOP — RK, RL 

When an end-of-program key is found, the 
search routine branches to the end-of- 
program processing routine. First, the 
library bit string in the communication 
region is updated. Thereafter, it is 
scanned bit by bit from the end to the 
beginning, and for each bit set, an address 
constant with the same name that corres¬ 
ponds to a library routine is generated. 

For the bits corresponding to the conver¬ 
sion routines (numbers 40-55) , special 
address constants with a single common name 
are generated. Having done this, addition¬ 
al bits in the library bit string are set 
that correspond to primary entry points of 
routines whose secondary entry points are 
already incorporated. Finally, the rest of 
the output text in the output buffer is 
edited. 

Note: Descriptions of the following sub¬ 

routines used or called for in this phase 
can be found in phase D75: 

STR COUNT 

SKIP MOVE 

SETIN1 INPUT 
SETIN2 OUTPUT 
OPWSP 
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This phase is used only if one or more 
errors are detected in the preceding phases 
of the compiler. It collects and sorts the 
errors detected by the preceding phases, 
and prints these errors in a standard for¬ 
mat. Three kinds of errors are distingu¬ 
ished: 

1. Errors causing an interruption of the 
compilation; 

2. Errors causing the deletion of the 
execution but allowing a continuation 
of the compilation; 

3. Errors allowing a continuation of the 
compilation and the execution of the 
compiled program. 

If errors causing the termination of the 
compilation are detected, the diagnostic 
phase is the last phase of the compilation. 


Fo rmat of the Error Codes 

Errors detected in a statement are inserted 
behind the statement. The end-of-statement 
keys, which introduce a sequence of error 
codes, are recognized in particular bit 
positions in the error-indicator byte. The 
format of the error codes behind the end- 
of-statement key is shown below. 

r- t-t-t-1 

| |Error | | | 

|EOS |Indicator|Lev.No. |B1.No. | 

L_X-X_X__J 

r - T - T - T -“T-1- 

|Statement|ERROR|E.No.I ERROR|E.No.| 

I No. I I I I I 

L_X_X_X_X_J_ 

E rror indicator (1 byte) contains 
information on whether or not an error is 
present and information about the severity 
of the error. 

Bit 8=1: the sequence of errors contains 
at least one error causing the termination 
of the compilation. 

Bit 9=1: the sequence of errors contains 
at least one error not causing a close of 
the compilation, but causing the deletion 
of the execution. Bit 10 = 1, the sequence 
of errors contains at least one error not 
causing a close of the compilation and not 
causing the deletion of the execution of 
the compiled program. (Bit 11 to 16, free 
for information in the preceding phases). 


S tatement No. The number of the statement 
as described in preceding phases. 


P HASE PL/IE2 5 (ERROR DIAGNOSTIC) — SA 


ERROR. A fixed key (EB) indicating an 
error. The number of EB's is equal to the 
number of errors in a statement. 


E.NO. The number which corresponds to an 
error comment. 


Form at of the Error List 

During the first diagnostic phase an error 
list is printed out. The list has the 
format shown in Figure 1. 


Logic a l Flow 

The algorithm of this phase is separated 
into the following parts: 


1. Storage allocation for the phase. 

2. Scan of the text string. 

3. Storing of error comments. 

4. Sorting of error comments. 

5. Printing of the error list. 


The error messages are printed by 
ascending statement-numbers. For printing 
the error list, the error comments must be 
present in storage. Since only limited 
storage capacity is available, only a part 
of all error comments can be stored. This 
part consists of the error comments that 
are needed first in order to begin printing 
error messages in sequence of the statement 
numbers. 

Suppose the maximum number of error 
comments that can be in storage at one time 
is NX. It must then be determined which NX 
different error numbers appear first in the 
text string. In the second part of the 
phase (scan of the text string), the number 
of different errors N is counted. 

If the scan is interrupted (i.e., when 
the end of the text string is reached or 
when N is equal to NX) , the comments refer¬ 
ring to the detected error numbers must be 
loaded into core storage. Before the need¬ 
ed error comments are loaded into core 
storage, all errors comments must be stored 
on SYS001 (storing of error comments) . The 
needed error comments are then stored from 
SYS001 (sorting of error comments) . 

If the detected errors are printed 
(printing of error list) , the interrupted 
second part of the program (scan of text 
string) is continued until the next NX 
different errors or the end of source text 
are detected. 
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jDIAGNOSTIC MESSAGES j 


5E 

error 

no 

(i) ib 

statement no 

(D 

b 

error comment 

(D 

5E 

error 

no 

(2) Ib 

statement no 

(D 

b 

error comment 

(2) 

5E 

error 

no 

(3) Ib 

statement no 

(D 

b 

error comment 

(3) 

• 


• 

• 


• 


• 


• 



• 


• 

• 


• 


• 


• 



• 


• 

• 


• 


• 


• 



5E 

error 

no 

(i) 

Ib 

statement 

no 

(i) 

b 
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comment (1) 

5E 

error 

no 
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Ib 

statement 

no 
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b 
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comment (i+1) 

5E 

error 

no 

(i+2) 

Ib 

statement 

no 
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error 

comment (i+2) 
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• 
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• 
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• 

• 


• 


• 


• 



5E 

error 

no 

(m) 

Ib 

statement 

no 

(k) 

b 

error 

comment (m) 


1. Words written in lower case letters in the actual list are replaced by their 
actual values. 

2. The letter 'b' stands for blanks. 

3. The 'error no' consists of three decimal digits. 

4. The 'statement no' consits of four decimal digits. 


5. The 'error comment' may consist of a maximum of 61 characters. 



Figure 1. Format of PL/I Diagnostic Messages 


DESCRIPTION OF ROUTINES 

Symb ol s Used i n Fl ow Ch art s 

TSP : Length of table space 
LLENO: Length of list LENO 
LCOM : Length of comment 
PHSP : Free space in this phase 
NO : Number of error comments that can be 
stored at one time 

NX : Maximum number of error comments 
that can be stored at one time 
ERRS : Bit in the communication region 
STNO : Statement number 
ENO : Error number 
N : Counted number of errors 
AO : Number of error comments in one 
phase overlay 

CO : Start address of comment storage 
area 

BO : Start address buffer 1 
B1 : Start address buffer 2 
B2 : End address buffer 2 

Sto rage Allocation —SB 

The number of different error comments that 
can be in storage at one time depends on 
the available storage. The comments may be 
stored in the phase storage (the available 
storage is then fixed and equal to 4K 
reduced by the program space), or they may 
be stored in the table storage (the avail- 
bale storage will then be the table storage 
reduced by the table storage reduced by 


space for LENO) . Which storage is used for 
the comments must be determined in phase 
E25 itself, because the table storage is of 
variable length. 

Text S can and Error Counting — SC, SD 
Input for phase E25 may consist of: 

1. End-of-statement keys with or without 
errors. 

2. Macro instructions. 

3. Statement identifiers with prefixes. 

4. Declared and generated variables. 

5. Constants. 

The error codes, identified by their 
key, are searched for in the text string. 
The error numbers of all detected errors 
together with the statement numbers are 
entered in a list LSTNO. The errors are 
ordered by sequence of the statement num¬ 
bers which is equal to the sequence of 
their occurrence. Each detected error is 
noted again in a second table LENO which is 
arranged by sequence of the error numbers; 
each element of the table refers to one 
error number. 

The number of different errors N is 
counted. The scan of the text string is 
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interrupted if N is equal to NX. The scan 
is terminated if the end-of-source-text key 
is detected. 

St orin g of Err o r C omments — SE 

Before phase G25 is called, the error com¬ 
ments are stored on SYSRES as a part of the 
phase (or phase overlay). The comments are 
called one at a time and in consecutive 
order. 

In order to get the possibility of mul¬ 
tiple use of the same error comment, the 
comments must be stored in another place. 

If only a small number of different errors 
is detected, the corresponding comments are 
stored in the table storage. If the number 
of different errors is greater than NX, all 
comments are stored on SYS001. This part 
of the phase is passed only once. 

Sorti ng of Err o r C om me n ts -- SF 

This part is used only if the error com¬ 
ments are stored on SYS001 and not in the 
table storage. (Storing of comments in the 
table storage is compounded with sorting.) 
The required error comments (referring to 
the detected error numbers) are selected 
from SYS001 and stored in the phase stor¬ 
age. The detected error numbers are 
entered in the list LENO. After moving an 
error comment, the element of the list LENO 
is replaced by the new address of the com¬ 
ment. 

Pr inting of the Error L ist — SH 

The error messages must be printed in the 
same sequence as the list LSTNO. The error 


number and the statement number given in 
this list must be converted from binary to 
decimal representation and inserted in the 
error message. The address of the corres¬ 
ponding error comment is given in the list 
LENO by the element referring to the error 
number. The error comment must also be 
inserted in the message. 

After printing one message, the next 
element of the list LSTNO is taken. The 
interrupted scanning of the text string is 
continued if the messages for all detected 
errors have been printed and the end-of- 
source-text key has not been detected. 


End of Text String — SG 

This part is called when the end-of-source- 
text key is detected. Control is passed to 
part 4 (sorting of error comments) unless 
the end of the source text occurs before NX 
errors are counted in the text string. If 
there are less than NX errors, this routine 
sorts the error comments from the phase 
overlays of phase E25 and stores them 
simultaneously in the table space. 

HERH — SJ, SK 

The routine HERH is used for skipping with¬ 
in the input text with respect to the buf¬ 
fer boundaries. The buffers are filled 
with new text if a buffer boundary is 
passed. 

LOAD 

This is a supervisor macro used in this 
phase. 
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GENERAL DE S CRI PTION OF THE GEN ERATOR PH ASES (PL/IE5 Q , PL/IE60, PL/IE61) 


The objective of the generator phases is 
the generation of object code. Before the 
generator phase, the algorithm to be rep¬ 
resented by this code is given by macros. 
The definition of the different macros is 
such that either each macro is associated 
with a fixed set of code or the selection 
of the needed code is possible only by 
means of the operands of the macro. 

The input text for the generator phases 
contains macros and other information which 
is not used in the generator phases. 

The code to be inserted for a macro is 
partially prepared in the model-instruction 
dictionary. Because the macros consist 
only of an identification and operands, 
additional information about the macros 
(not in the macro instruction} is given in 
the model-instruction dictionary. The 
information in the model-instruction dic¬ 
tionary is either a subroutine in machine 
language or a set of predefined instruc¬ 
tions for frequent operations. The predef¬ 
ined instructions are internally defined; 
they are decoded by the generator phases. 

The generated code consists of machine 
instructions and pseudo instructions for 
communication to the assembler. Except for 
the format of the operands, the machine 
instructions referred to are the IBM 
System/360 Assembler Language machine 
instructions. 

Because it is not possible to store the 
complete model-instruction dictionary in 
the phase, multiple passes over the text 
string are necessary to generate the code. 
For each pass another part of the model- 
instruction dictionary is stored, and the 
macros referring to this part can be 
processed. 

Format of the Input Text 

The input text string consists of the fol¬ 
lowing elements (the number of bytes of a 
part of the element is given in parentheses 
over the boxes; the number of bits is given 
under the boxes) : 

1. Statement identifiers with prefixes 

0) 

r - T - 

IEO | | 

L_X_J 

EO = statement-identifier key. The 

statement identifier is 6 bytes long. 


2. Declared variables 

(D (2) 

r - T -T- 1 

|F4 | lc | | 

L-X-X- J 

F4 = key for attribute table 
lc = length of attribute table 

3. Constants 
( 1 ) ( 2 ) 

f - T - T -- 1 

IF3 | le | | 

L-X-X- J 

F3 = key for constant table 
le = length of constant table 

4. Generated variables 

( 1 ) ( 2 ) 

r- T --1 

IF 0 | If | 

L_X_ J 

FO = key for attribute table 

If = length of attribute table 

5. End-of-statement 

( 1 ) ( 2 ) ( 1 ) ( 1 ) 

r - T - T -r- t--1 

|EA j 5 bytes jEB j 0 j EB 0 EB Oj 

L_X_X_X_X--J 


EA = key for end-of-statement 
EB = key for error 
0 = error number 


Assembler 

code 


(i) 

(2) 


1 --j- 

T 

- 1 

1 F6 | 

11 1 

1 

L_X_ 

X 

j 


F6 = key for assembler code = X'F6' 
ll = length of code 

7. END of program 

1 byte, hexadecimal FF 

8. Macros 

(1) (2) (1) (3) (2) (1) 

r-T-T-T-T-T-1- 

j F2 | lm | C |OP (1) |M (1) |B (1) |-> 

L_A_A_X_X_X_J_ 
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(3) (2) (1) 

| OP (n) | M (n) | B (n) | 

_i_x_x-j 

F2 = macro key X'F2 I 

lm = length of the macro 

C = identification of the macro 

OP (1) = operand (1) 

M (1) = modifier for operand (1) 

B (1) = byte 5 from SYMTAB entry 

referring to operand (1) 

The maximum length of the macros is 200 
bytes. The format of the operands may 
differ from the format shown above. 


MODEL-INSTRUCTION DICTIONARY 

The model-instruction dictionary contains 
the prepared code and information about the 
macro which is not given in the macro 
instruction. Each macro refers to the 
particular part of the model-instruction 
dictionary (referred to as the macro 
definitions). A macro definition, or parts 
of macro definitions, may be common to more 
than one macro. 

Ma cro D efiniti on 

The code generated from a macro instruction 
depends on the identification (operation 
code) and the parameters (operands) of the 
macro. For a macro definition, the gener¬ 
ated code depends only on the information 
contained in operands of the macro instruc¬ 
tion. If a macro definition is common to 
more than one macro instruction, the iden¬ 
tification is treated as operand in order 
to determine certain instructions which 
must be altered to generate the code for a 
particular macro. 

A macro definiton contains a macro defi¬ 
nition header and one or more model- 
instruction sets. 

The relation between the operands and 
the code generated is given in the first 
part of the macro, the macro definition 
header. The macro definition header 
indicates the model-instruction set to be 
used. A model-instruction set consists of 
code instructions and information which 
gives the location where the several oper¬ 
ands of the macro must be inserted into the 
code. 

Macro D efi n iti on Header 

The macro definition header contains the 
information required for selecting the 
needed model-instruction sets. The infor¬ 
mation may be in machine language or may 
consist of special instuctions. Since many 
conditions and operations used for the 


selection are unique for most of the 
macros, these conditions and operations may 
be represented by special instructions. 
These special instructions are interpreted 
by the generator phases. 


Condi t ion s 

The conditions represented by special 
instructions are: 


1. Compare 


f - T - T - T -1 

jc |K j PI I P2 I 

I-L_X_X-J 

048 16 24 

K = Key for compare = 0 

C = Condition code 

P1,P2 = Indicate locations in the 
operand list of the macro. 

Byte (PI) of the operand list of the 
macro is logically compared with byte 
(P2) . If the result is in accordance 
with the condition code C, the condi¬ 
tion is accepted. 

2. Compare Immediate 


r~“ 

~1 

"T~ 

-*i — 

- i 

|C 

IK 

1 

i i 

p i 

L_ 

-X_ 

_X_ 

_x_ 


0 

4 

8 

16 

24 


K = Key for compare immediate = 1 
C = Condition code 
P = Indicates a location in the 
operand-list of the macro 
I = Immediate data 

Byte (P) of the operand list of the 
macro is logically compared with I. If 
the result is in accordance with the 
condition code C, the condition is 
accepted. 

3. Test Under Mask 


-y- 

"T" 

- T - 

-1 

C j K 

1 

i i 

p i 

_X_ 

_X_ 

_x_ 


) 4 

8 

16 

24 


K = Key for test under mask = 3 
C = Condition code 

P = Indicates a location in the operand 
list of the macro 
I = Immediate data. 

Byte (P) of the operand list is tested 
under the mask I. If the result is in 
accordance with the condition code C, 
the condition is accepted. 
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The R esult Word 

The work done on a sequence of conditions 
is given in a result word W as follows: 


1. The initial value for the result word 
is zero (W = 0) . 

2. The work done on a condition modifies 
the result word. If the condition is 
satisfied, the result word is multi¬ 
plied by two and then increased by one. 

W = 2 * W + 1 

If the condition is not satisfied, the 
result word is multiplied by two. 

W = 2 * W 


Operati ons 4. 

There are additional special instructions 
to indicate operations referring to the 
operand list of the macro or macro defini¬ 
tion header: 5. 

1. Macro subroutine 


( 



r-T- 1 

| K | A | K = Key 01 

l --L-j a = Address 

0 8 24 

The treatment of the macro definition 6. 

header is continued in a subroutine 
given by the address A. 

2. Set pseudo operand 

r- t-t- 1 

| K |I | P | 

L_I_X_J 

0 8 16 24 

K = Key 02 
I = Immediate data 

P = Indicates a location in the operand 
list of the macro. 

The immediate data I is stored as a 
pseudo operand in byte (P) of the oper¬ 
and list. 

3. End-of-Condition Sequence 

\ K Is Ta( 1) IA (2) IA (n) ] 

L-X_X_X_ _X_J 

0 8 16 24 

K = Key 03 

S = Address in macro definition 

header 

A (1) = Address of model-instruction 

set (1) . 


The work done on the condition sequence 
is interrupted. The treatment of the 
macro is continued in a model- 
instruction set. 


The subscript of the model-instruction 
set is given by the determined result 
word. The address of the model- 
instruction set has the same subscript. 
If A (1) equals 0, no model-instruction 
set is taken. After inserting the 
determined model-instruction set, the 
treatment of the macro is continued in 
the macro definition header at the 
address S. S = 0 indicates the end of 
the macro definition header. 

The number of addresses A in the 
instruction must be equal to the maxi¬ 
mum value possible for the result word. 

Take saved result word (1 byte: X , 04 l ) 

The result word W is taken from the 
value saved at an earlier time. 

End-of-Condition sequence. 

Save result word (1 byte: X*05') 

The work done on the condition sequence 
is interrupted. The result word deter¬ 
mined in the condition sequence is 
saved. 

Conditional Branch 

r - T - T -T- 1 

| 06 | WX | A j S j 

L_X-X-X_J 

0 8 16 24 32 

WX = Value to be compared with the 
result word 

A = Address of a model-instruction 
set 

S = Address in macro definition 
header. 

a) W = WX: 

The work done on the condition 
sequence is interrupted. The treat¬ 
ment of the macro is continued in 
the model-instruction set at the 
address A. If A equals 0, no model- 
instruction set is taken. After 
inserting the model-instruction set, 
the treatment of the macro is con¬ 
tinued in the macro definition head¬ 
er at the address S. S = 0 indi¬ 
cates the end of the macro defiti- 
tion header. 

b) W * WX: 

No action is performed. 
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7. Unconditional Branch 

r- t- 1 

IK | S | 

L_JL_J 

0 8 16 

K = Key 07 

S = Address in macro definition header. 
The treatment of the macro is con¬ 
tinued in the macro definition 
header at address S. 

M odel-Instruction Sets 

Model-instruction sets contain prepared 
code together with information on where to 
insert the several operands or pseudo oper¬ 
ands of the macro. The information on the 
operands has the format: 

V -T-T- 1 

| P | M | LM | 

L-X_X-J 

0 8 16 24 

P = Indicates a location in the operand 
list of the macro. 

LM = Indicates the location in the model- 
instruction set where the operand has 
to be inserted. 

M = Gives a modification or length 
specification of the operand 

M=K, K<5: the operand has a length of K 
bytes. 

M=6: the operand has a length of two 

bytes and the absolute value of 
the operand is taken. 

M=7: the operand has a length of one 

byte. The operand is decreased 
by 1 before it is inserted. 

M=19: the operand has a length of three 

bytes and must be inserted with 
indirect addressing. 

M=21: the operand has a length of five 

bytes and must be inserted with 
indirect addressing. 

Some values of P have the following special 
meaning: 

1. 0) (1) 0) 

r- t-t- 

| 0 | I |LM | 

L-X-X-J 

The immediate data I is inserted at 
location LM. 

2. (1) (1) 

f-T- 1 

j 1 j DLM j 

L-X_J 

The location counter of the model- 
instruction set is increased by DLM. 


3. (D (1) (1) (1) 

[ 224 TOP.C.1 PI 1 P2 | 

L_X_X_X_„J 


The RR instruction given by the 
operation code •OP.C.* has to be 
formed. The registers are given in PI 
and P2. 


If 208 < Pi < 224 (Pi=P1 and/or P2), 
the immediate data Pi-208 is inserted. 

4. (1) (1) (1) (1) (1) 

f - T - T -T-T-1 

j 225 |OP.C.| PI j P2 | P3 | 

L-X-X_X-X_J 

The RX, RS, or SI instruction given by 
the operation code 'OP.C. 1 has to be 
formed. The operands are given in PI, 
P2, and P3. A test is performed on P3 
to determine whether or not it must be 
indirectly addressed. 

If 208 <Pi <224 (Pi =P1 and/or P2) , the 
immediate data Pi-208 is inserted. 

5- (1) (1) (1) (1) (1) (1) 

r -T-T-T-T-T-1 

| 226 joP.C | PI | P2 | P3 | P4 | 

L_X-X-X-X-X-J 

The SS instruction given by the opera¬ 
tion code 'OP.C.' has to be construct¬ 
ed. The operands are given in PI, P2, 
P3, and P4. 

The operands referring to P3 and P4 are 
tested to determine whether or not they 
must be indirectly addressed. 

If 208 <Pi <224 (Pi = PI or P2) , the 
immediate data Pi-208 is inserted. 

Behind the information with P <226, the 
code is given. The code has the for¬ 
mat: 

6. (1) (2) 

I L j 11 TlN (1) J IlN(n)] 

L_X_X-X- -X_J 

L = Key for assembler code F6 

II = length of the code 

IN (1) = Instruction (1) 

The format of the instruction is des¬ 
cribed on the following pages. 

Not only the operands of the instruc¬ 
tions but all parts of the model- 
instruction set may be changed by 
inserting operands or pseudo operands 
of the macro. 
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FORMAT OF THE INSTRUCTIONS 

The code (the output of the generator 
phases) consists of machine instructions 
and pseudo instructions for communication 
with the Assembler, 


M achine Instructions 

Except for the format of the operands, 
machine instructions refer to the IBM 
System/360 Assembler Language machine 
instructions. 


There are five basic machine formats: 


1. RR format 

(1) (1) 0) (1) 

r-T-T-T-1 

| 88 j Op.C|Rl j R2 j 

L-X_X-X_J 

The first byte contains the key for the 
machine instructions, the second byte 
contains the operation code, and the 
following two bytes contain the oper¬ 
ands. 

2. RX format 

(D (D (D (1) (3) (2) 

r -T-T-T-T-T-1 

j 88 | Op. C | R1 j X2 | N | M | 

L_X_X_X_X_X_J 

Rl = General register containing 
first operand 

X2 = General register referring to 
second operand 
N = Name of second operand 
M = Modifier for second operand. 

3. RS format 

(1) (1) (1) 0> (3) (2) 

r- t-t-t-t -r-1 

j 88 j Op. C | R1 |R3 j N |M j 

L_X_X_X_X_X_J 

Rl and R3 are general registers 

N and M specify the second operand as 
in the RX format. 

4. SI format 

(1) (1) (1) (1) (3) (2) 

[88 lop.C.Ix'OO'jl2 T N J M ] 

L_X_X_X_X_X_J 

12 is an immediate operand; N and M 
specify the second operand as in the RX 
format. 


5. SS format 

(1) (1) (1) (1) (3) (2) (3) (2) 

r-T-T-T-T-T-T-T-1 

j88 j Op.C.j LI |L2 j N1 |M1 jN2 jM2 j 

L_X_X_X_X_X_.X_X_J 

L r N and M give the lengths, names, and 

modifiers of the operands, respective¬ 
ly. The LI field contains zeros if 
only one length is present. 

Pseudo Instructions 


CNOP 




(i) 

(1) 

(i) 

(D 

[80 

1 

O 1 
U 1 
-1 

r- 

i b 

r- 

j W 

-X- 


The CNOP instruction allows alignment 
of an instruction at a specific bounda¬ 
ry without breaking the instruction 
flow, should any bytes be skipped for 
alignment. CO is the code for the 
instruction CNOP. 

Operand b specifies to which byte in a 
word or double-word the location coun¬ 
ter is to be set. Operand W specifies 
whether the byte b is in a word or a 
double-word. 

2. DC AL3 

( 1 ) ( 1 ) ( 3 ) ( 2 ) 

r -T-T-T- 1 

18 0 I Cl I N | M I 

L X X-X_J 

N = Name 
M - Modifier 

3. DC X 

(D (1) (2) 

f--T-T-T- 1 

18 0 |C2 I L I W | 

L_X_X_X- J 

W - hexadecimal constant 
L - Length of W 

4. DS 

(1) (D (2) 

V -T-T-1 

18 0 | C3 | L | 

L-X-X_J 

The DS instruction is used to reserve 
storage areas. L is the length of the 
storage to be reserved. The DS model 
instruction has a meaning different 
from the IBM System/360 Assembler 
instruction DS. The model instruction 
does not align on boundaries. 
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5. LABEL 

(1) (1) (2) 

r- t-t- 1 

180 j C4 | NAME j 

L-X_X_-_J 


11. INDIVISIBLE CODE (L) 

(D (1) (D (1) 

f - T -T-T- 1 

j 80 | CA j LI j L2 j 

L_X_X__X_J 



The LABEL instruction allows the set¬ 
ting of a label in the program. 

6. BEGIN 


(1) 

(D 

(D (D 


(2) 

1 

1 o 

1 00 

I c5 

- 1 

W 1 
H 1 

• 1 

1 

- 1 

I 

F 1 

1 

“T 

1 

N | 

L_ 


-X_X_ 

_x_ 


The 

BEGIN 

instruction 

marks the 

ning 

of a 

procedure 

or 

block. 


Bl. - Block number 

L - Level number 

N - Name of procedure or label 

referring to a begin block. 


The instruction is used to indicate 
that the following code cannot be 
divided by additional instructions. At 
object time the length of the code is 
L2 bytes. The length of the assembler 
code is Li bytes. 

12. USED REGISTER (R) 

(D (1) (2) 

-T-T-1 

| 80 | CB | R | 

L_X_X_*_J 

The instruction is used to inform the 
Assembler which registers are used for 
indirect addressing. 


7. END (Procedure or Block) 

(1) (1) (2) 

r - T - T -1 

|80 |C6 (not used| 

L-X-X-J 

8. DC 'length of block' 

(1) (1) (1) (D 

r -T-T-T-1 

j80 j C7 jBl. j L. I 

L-X-X_X_J 

This DC instruction is used to indicate 
that the length of the block (4 bytes) 
must be inserted into the text string. 

Bl. = Block number 
L. = Level number 


OPT 

(D 

(D 

(2) 

J" 8 0 

1 

1- 

1 o 

1 00 

1 

T' 

|LABEL 
-X 


The OPT instruction is used in connec¬ 
tion with optimizable branch instruc¬ 
tions (see description of phase GOO) . 
The assembler replaces the OPT instruc¬ 
tion with a machine instruction. The 
LABEL given by the OPT instruction 
refers to the branch address in the 
following branch instruction. 

10. DC A (STATIC) 

(1) (1) (2) 

r- t j -t- 1 

| 80 | C9 |not usedj 

L-X-X_J 

This DC instruction is used to indicate 

that the start address of the static 
storage (4 bytes) must be inserted into 
the text string. 


R = 5 - register 5 is used in addition 
to the register used until now. 
R = 6 - register 6 is used in addition 
to the register used until now. 
R = 0 - no register is used; registers 
5 and 6 are free. 

Treatment of the Macros 

Code cannot be generated from the macros in 
one pass over the text string, due to the 
size of the model^instruction dictionary. 
Therefore, the model-instruction dictionary 
is divided into smaller parts. Each part 
of the model-instruction dictionary corres¬ 
ponds to one pass over the text string. 

Two phases are used for the generation 
of code from the macros. In the first 
generator phase, one pass is made over the 
text string. All further passes are made 
in the second generator phase. 


THE MACROS AND THE GENERATED CODE 

In the following, the different macros are 
described in detail. The description of 
each macro consists of the following items: 

Forma t of the Macro. OP1, OP2... OP (I) 
are operands of the standard format des¬ 
cribed above. Differing operands have 
different names. The meaning of the oper¬ 
ands with the use of the macros in special 
cases are not described. This section 
deals only with the meaning of the operands 
that determine the generated code. 

The Generated Code. The generated code is 
shown for all possible cases. Indirect 
addressing is not considered. This is 
described under Treatment of Indirect 
Addressing in the description of phase EGO. 
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The code shown also includes Assembler 
instructions (e.g., USED REGISTER) des¬ 
cribed under P seudo Instructions . In some 
cases, the code generated for a macro con¬ 
tains submacros (e.g., SHIFT) , which are 
described elsewhere in this section. 


Fi xed Binary Addition 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 2 ) 
[f2 Too 1 2T0 0 IoPl|oP2js-q] 

L-X-JL-X-X-JL J 

2. Generated code 


T-T-T-1 

|0P1=REGISTER|OP 1=STORAGE j 


0P2 

=REG. 


0P2 

=STOR. 


AR R1,R2 


R1 ,S2 


L 

AR 

ST 


4, SI 
4 ,R2 

4,SI 


-+ - ^ 


L 

A 

ST 


4,SI 
4, S2 
4,SI 


H 


op 2 

=REG. 


SLA 

AR 


R1,s-q 
R1 , R2 


L 

SLA 

AR 

ST 


4,SI 
4, S-q 
4 ,R2 
4,SI 




0P2 

=STOR. 


SLA 

A 


R1 , s-q 
R1 ,S2 


L 

SLA 

A 

ST 


4,SI 
4,S-q 
4, S2 

4,SI 


OP 2 
=REG. 


SLA 

AR 


R2,q-s 
R1 ,R2 


L 

SLA 

AR 

ST 


4, SI 

R2,q-s 
4 , R2 

4,SI 


OP2 

=STOR. 


L 

SLA 

AR 


4, S2 
4, q-S 
R1,4 


L 

SLA 

A 

ST 


4, S2 
4, q-S 
4,SI 
4,SI 




-X_ 


* 

** 

*** 


s-q 

s-q 

S-q 


= 0 
> 0 
< 0 


0P1 and OP2 
addressed. 


may be indirectly 


Fi xed, Binary Subtraction 
1• Format of the macro 

( 1 ) < 2 ) ( 1 ) ( 6 ) ( 6 ) ( 2 ) 

J"F 2 I0OI2I0I IoPl|oP 2 ls-q] 

L_X_X_X_X_X 

2. Generated code 


r-T-T-T- 1 

j 10P1=REGISTER j OP1=STORAGE| j 

I. -1-1- 1 —^ 

j 0P2 j jL 4,SI j j 

I=REG. |SR R1,R2 |SR 4,R2 | | 

I I |ST 4,SI | | 

F-+-+- 1 * I 

j 0P2 j |L 4,SI j | 

|=STOR.|S R1,S2 |S 4,S2 | | 

I I 1ST 4,SI | | 

h -1-+-+-^ 

j 0P2 j SLA R1,s-q | L 4,SI j j 

j =REG. jSR R1,R2 |SLA 4,s-q | | 

I I jSR 4,R2 | j 

I I |ST 4,SI | | 

(.-1-1-.,** | 

j 0P2 |SLA R1,S-q | L 4, SI j | 

j =STOR.j S R1,S2 j SLA 4,S-q | | 

I I |S 4,S2 | | 

j | j ST 4,SI | j 

|-- + -1-1-^ 

j 0P2 j SLA R2,q-s |L 4,S1 j | 

j =REG. |SR R1,R2 |SLAR2,q-S | | 

j| |SR 4,R2 | | 

I I jST 4,SI | j 

J. -1-+--1***1 

|0P2 |L 4,S2 |L 4,S2 | | 

|=STOR.j SLA 4,q-s |SLA 4,q-S | | 

| |AR R1,4 |S 4,SI | | 

I I |LCR 4,4 || 

I I |ST 4,SI | | 

|.--L-J.-X-1 

j* S-q = 0 | 

j** S-q > 0 | 

|*+* S-q < 0 j 

l_ J 


0P1 and OP2 may be indirectly 
addressed. 


Fixed Binary Multiplication with Overflow 
Check 


1. Format of the macro 

V) (2) (1) (6) (6) 

|*F2 TooloT02 IoPl|oP2] 

L_X_X_X_X_J 


2. Generated code 


r - T - 

j j OP1=REGISTER 


T-1 

|OP1=STORAGE | 


r t — 

1 | LR 

|0P2= |USED 
|REG. j MR 
j j SLDA 

| |USED 

1 |lr 

5 ,R2 

REGISTER (0) 
4,R1 

4,32 

REGISTER (0) 

R1,4 

T 

|L 

1 USED 
j MR 
j SLDA 
| USED 
| ST 

1 

5.51 

REGISTER (0) 

4 ,R2 

4,32 

REGISTER (0) 

4.51 

r t “ 

1 IL 

5,S2 

|l 

5, S2 

|OP2= |USED 

REGISTER (0) 

j USED 

REGISTER (0) 

j STOR. j MR 

4 ,R1 

| M 

4,SI 

| j SLDA 

4,32 

j SLDA 

4,32 

| j USED 

REGISTER (0) 

j USED 

REGISTER (0) 

1 j LR 

R1,4 

| ST 

4,SI 

l _X 


X 

j 


0P1 and 0P2 may be indirectly addressed. 


Phases PL/IE50-61 (General) 
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Fi xed Binary Division 

1. Format of the macro 

(1) (2) (1) (6) (6) (2) 

[f 2 Io012l()3 JoPIjoP2j"p+l] 

L-X-X-X X-X-J 

2. Generated code 


0P2= 

REG. 


0P2= 

STOR. 


OP1 = 

REGISTER 

T -- 

jOPl = 

STORAGE 

SR 

5,5 

1 

isR 

5,5 

USED 

REGISTER (5) 

| USED 

REGISTER (5) 

LR 

4 , R1 

|L 

4,SI 

SRDA 

4,P+1 

SRDA 

4,P+1 

USED 

REGISTER (0) [USED 

REGISTER (0) 

DR 

4,R2 

| DR 

4,R2 

USED 

REGISTER (0) 

j USED 

REGISTER (0) 

LR 

R1,5 

|ST 

j . 

5,SI 

SR 

5,5 

|' SR 

5,5 

USED 

REGISTER (5) 

IUSED 

REGISTER (5) 

LR 

4 , R1 

|L 

4,SI 

SRDA 

4, P+1 

SRDA 

4,P+1 

USED 

REGISTER (0) 1 USED 

REGISTER (0) 

D 

4, S2 

ID 

4 ,S2 

USED 

REGISTER (0) 

IUS ED 

REGISTER (0) 

LR 

R1,5 

j ST 

5,SI 


0P1 and OP2 may be indirectly addressed. 
F IXED BINARY NEGATION 
1• Format of the macro 
( 1 ) ( 2 ) ( 1 ) ( 6 ) 

|F2 JoooaJo4 Topi] 

L-X-X-X-J 

2. Generated code 

r - T -1 

|0P1 = REGISTER!OP1 = STORAGE! 

I--+-*1 

I |L 4,SI | 

j LCR Rl, R1 j LCR 4,4 | 

j |ST 4,SI | 

L-X_J 

0P1 may be indirectly addressed. 

F ixed Binary Assignment with Overflow Check 


1. 


Format of the macro 

0 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 2 ) 


( 2 ) ( 2 ) 


2 . 


r-T-T-T-T-T-T-T- 1 

j F2 j0016j0 5 | OP1|0P2|LABEL|X |Y j 

L-X-X-X-X_X_X_X_J 


Generated code 
a. Y > 0, Y > X 


l 



i opi= 
..j. _ 

=REGISTER 

|OP1 = 

^STORAGE 

0P2= 

j LR 

R1,R2 

|SLA 

R2,Y 

REG 

j SLA 

R1,Y 

| SRA 

R2, X 

| SRA 

R1,X 

j ST 

R2, S1 

— 

-i- 


i - 



0P2= |L R1,S2 |L 5,S2 

STOR j SLA R1,Y jUSED REGISTER (0) 

j SRA R1 , X j SLA 5 , Y 

I |SRA 5,X 

j |ST 5,SI 

-X-X- 


All shift instructions are deleted if 
the number to be shifted is 0. 

OP 1 and OP2 may be indirectly 
addressed. 

b. Y > 0, Y < X 


j OPl=REGISTER 


OP1=STORAGE 


0P2= 

REG. 


0P2= 

STOR. 


LR 

LPR 

SLA 

SRA 

LTR 

BC 

LCR 

LABEL: 


L 

LPR 

SLA 

SRA 

LTR 

BC 

LCR 

LABEL: 


4 ,R2 

Rl, 4 

R1, Y 

Rl, X 

4,4 

10,LABEL 
Rl, Rl 

1 

1 

1 

1 

1 

1 

1 

X- 

LPR 

SLA 

SRA 

LTR 

BC 

LCR 

LABEL: 

ST 

4 ,R2 

4, Y 

4 , X 

R2,R2 

10,LABEL 
4,4 

4,SI 

4 , S2 

+ 

1 

L 

4, S2 

Rl , 4 

1 

LPR 

5,4 

Rl, Y 

1 

SLA 

5, Y 

Rl, X 

1 

SRA 

5, X 

4,4 

1 

LTR 

4,4 

10,LABELI 

BC 

10,LABEL 

Rl, Rl 

1 

LCR 

5,5 


f 

1 

LABEL: 

ST 

5,SI 

it an _ 

X- 

. 



Y < 0 


| OP 1=REGISTER 


OP1=STORAGE 


-+ 


OP2= 

=REG. 


0P2= 

STOR. 


LR 

LPR 

SRA 

LTR 

BC 

LCR 

LABEL: 

4 ,R2 

Rl, 4 

Rl, X-Y 
4,4 

10,LABEL 
Rl, Rl 

1 

1 

1 

1 

1 

1 

X. 

LPR 

SRA 

LTR 

BC 

LCR 

LABEL: 

ST 

4, R2 

4, X-Y 
R2,R2 

10,LABEL 

4,4 

4,SI 

L 

4,S2 

T 

1 

L 

4, S2 

LPR 

Rl , 4 

1 

LPR 

5,4 

SRA 

Rl ,X-Y 

1 

SRA 

5, X-Y 

LTR 

4,4 

l 

LTR 

4,4 

BC 

10,LABEL| 

BC 

10,LABEL 

LCR 

R1,R1 

1 

LCR 

5,5 

LABEL: 


1 

l 

JL- 

LABEL: 

ST 

5,SI 
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Fi xed B inary A s sig nm ent wi t hout Overflo w 
C heck 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 2 ) ( 2 ) 

|F2 Too 14T0 6 Iopi|oP2IlABEl|x *| 

L-X-X-X-X-X_ r _X-J 


( 


2. Generated code 
a. X < 0 


r-r- t-1 


1 

L 

0P1= 

=REGISTER 

j OP1 = 
.j. _ _ 

^STORAGE 

r 1 

j OP2= 
j REG. 

L- 

LR 

SLA 

R1 ,R2 

R1 , -X 

j SLA 
j ST 

R2,-X 

R2,S1 

r 1 

1 

j 0P2= 
ISTOR. 

L 

SLA 

R1 ,S2 

R1, -X 

|L 

| SLA 
|ST 

5 ,S2 

5,-X 

5,ST 


l_X_X_J 

b. X = 0 


r~ —t ~ 

1 IOP1 

| . j 

=REGISTER 

|OP1 

=STORAGE 

j OP2= j LR 
| REG. | 

| __ j 

R1 ,R2 

. -J- — 

i ST 

1 

R2,S1 

| OP2= |L 
|STOR. | 

L _ _X 

R1, S2 

_l_ 

|L 

|ST 

_x_ 

5, S2 

5,SI 


c. X > 0 


( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 2 ) 
fF2 I 0 OI 2 I 08 ]oPl]oP2ls-q] 

l-X-X_X-X_X_ J 


2. Generated code 


r-T- - - t-t-- 1 


1 

1- 

OP 1=REGISTER 

- - ■- - 

OP1=STORAGE j | 

j j 

r 

| OP 2 
| REG. 

CR R1,R2 

l 

L 4,SI i i 

CR 4,R2 | | 

|0P2 

ISTOR 

L__ J 

C R1,S2 

r 1 1 

L 4,SI | | 

C 4,S2 | | 

_ j | 

r- 1 

1 

1 OP2 
j REG. 

SLA R1 r S-q 

CR R1,R2 

L 4,SI j j 

SLA 4, s-q | | 

CR 4,R2 j j 

_ .. _ _ | * ak | 

|._.| 

|0P2 

ISTOR. 

1 

r 1 

SLA Rif S-q 

C R1,S2 

. - .. . . 

r 1 1 

L 4 # SI | | 

SLA 4 , s-q | | 

C 4,S2 | | 

. ... - .......... j j 

|__.| 

1 OP2 | 
j REG. | 

L _ J 

— 

SLA R2,q-s 

CR R1,R2 

j 

L 4, SI j | 

LSA R2,q-S| | 

CR 4 ,R2 | | 

CN O 

Q* H 

O W 

r 1 

L 4 # S2 

SLA 4 r q-s 

CR R1,4 

L J 

r - 1 l 

L 4,S2 j | 

SLA 4,q-s | | 

L 5,SI | | 

CR 4,5 | | 

L J. J 

!* s-q = 0 | 
j * * S-q > 0 \ 
j*** s-q < 0 | 



1 

*T --- 

OP1=REGISTER 

T" 

1 

OP1=STORAGE j 

Fixed Binary Exponentiation 

F- 

-+- 

| LR 

4, R2 

+ ' 
1 

LPR 

-1 

4,R2 | 

1. 

Format of the macro 


| LPR 

R1,4 

1 

SRA 

4,X | 


(1) (2) (1) (6) (6) (6) 

| OP2= 

j SRA 

R1 , X 

1 

LTR 

R2 f R2 j 


r T T T T T 1 

j REG. 

j LTR 

4,4 

1 

BC 

10,LABEL! 


|F2 j0016 j 07 jx |TARGET j N j 


| BC 

10,LABEL| 

LCR 

4,4 | 




| LCR 
j LABEL: 

R1 ,R1 

1 

1 

LABEL: 

ST 

1 

4,SI | 

2. 

Generated code 

K- 

-+- 

— 

+- 


-4 


LA 1,X 


1 L 

4, S2 

1 

L 

4, S2 | 


LA 3, N 


| LPR 

R1,4 

1 

LPR 

5,4 | 


LA 4,TARGET 

| OP2= 

j SRA 

R1 , X 

1 

SRA 

5,X | 


L 15,N* 95 * 

| STOR 

| LTR 

4,4 

1 

LTR 

4,4 | 


BALR 14,15 


| BC 
| LCR 

10,LABEL| 
R1,R1 | 

BC 

LCR 

10,LABEL| 
5,5 | 


X and TARGET may be indirectly 


j LABEL: 

1 


1 

1 

LABEL: 

ST 

1 

5,SI | 


addressed. 


l _X_X_J 


0P1 and 0P2 may be indirectly 
addressed* 

F ixed Binary Compariso n 
1. Format of the macro 


Fixed Binary Multiplication without 
Overflow Check 


1. Format of the macro 

(1) (2) (1) (6) (6) 

[f 2 TooloT09 JoPljoP2 1 | 

L_X_X_X_X-J 


Phases PL/IE50-61 (General) 
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2. Generated code 


2. Generated code 


T -T- 1 

|0P1=REGISTER |0P1=ST0RAGE j 

i--1-+- i 


i 

j 0P2= 
| REG. 

I 
I 


I MR 


I 

|0P2= | 
|STOR.j M 

I I 


|L 

jOSED 
R1,R2 |MR 

| USED 
j ST 

■+" 

|L 

jOSED 

R1 , S2 j M 

j ST 

_JL_ 


5,SI 
REGISTER (0) 

4, R2 

REGISTER (0) 

5, SI 


Y -+-+-H 


5.51 
REGISTER (0) 
4, S2 

5.51 


OP1 and OP2 may be indirectly 
addressed. 


S IGN, Fixed Binary 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 2 ) 

[f 2 |0012|0A joPIjOP 2 \ LABEL] 

l -X-_X-X_X-X- J 

2. Generated code 


T-T-1 

OP1 = REGISTER!OP1 = STORAGE j 

t-1 


OP2= 

REG, 


OP2= 

STOR 


LTR 

OPT 

BC 

LA 

OPT 

BC 

LCR 

LABEL 


R1 t R2 
LABEL 
8,LABEL 
R1, 1 
LABEL 
2,LABEL 
R1 ,R1 


L 

LTR 

OPT 

BC 

LA 

OPT 

BC 

LCR 

LABEL 


Rl # S2 
R1 f Rl 
LABEL 
8 f LABEL 
Rif 1 
LABEL 
2fLABEL 
R1 fRI 


LTR 

OPT 

BC 

LA 

OPT 

BC 

LCR 

LABEL 

ST 


5 f R2 
LABEL 
8fLABEL 
5f 1 
LABEL 
2,LABEL 
5f5 


5 f S1 


L 

LTR 

OPT 

BC 

LA 

OPT 

BC 

LCR 

LABEL 

ST 


-H 


5 f S2 
5,5 
LABEL 
8fLABEL 
5,1 
LABEL 
2,LABEL 
5 f 5 


5, SI 


OP1 and OP2 may be indirectly 
addressed. 


_j 


A BS , Fixed Bin a ry 

1. Format of the macro 
( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 
i~F2 JoOlojoB joPljoP2] 

L-X-X-X-X-J 


s 

0 

-H 

- - T -- 

= REGISTERjOP1 : 

1 

= STORAGE 

0P2= j 

REG |LPR 
j 

R2,R1 

jLPR 

|ST 

1 

R2,R2 

R2,S1 

0P2 jL 
STOR. j LPR 

1 

1 

R1 f S2 

R1 ,R1 

T-- 

11* 

j USED 
| LPR 
| ST 

.X_ 

5,S2 

REGISTER (0) 
5 f 5 

5, SI 




OP 1 and OP2 may be indirectly 
addressed. 

Fixed Decimal Addition 


1. Format of the macro 

(1) (2) (1) (6) (6) (6) (1) (1) 
r - T -T- T -T-T-T-T——T- 

F2 | 001C|10 |OP1|OP2|OP3|L2 |L3 j 

L_X_X_X_X_X_X_—X_X_ 

(1) (1) (1) (1) 

- T - T - T -T-1 

[A |B |S |L I 

_-X_X_X_X_J 

2. Generated code 

SHIFT GW0 (16) fS2 (L2) ,A * 

SHIFT GWO + 16 (16) ,S3 j(L3) f B ** 

AP GW0 (16) fGWO+16 (16) ** 

* if A=0, OP2,L2,A is changed to 
OP3fL3fB. 

** if B=0f the instructions are 
replaced by AP GW0 (16) # S3 (L3) . 

if S = X* 30': 

ZAP SI (L) fGWO (16) else: 

MVC SI (L) fGW0+16-L 

OP If OP2f and OP3 may be indirectly 
addressed. SHIFT is a submacro des¬ 
cribed below. 

SHIFT X (LX) , Y(LY), Z 

1. Sequence of the operands if the subma¬ 
cro is called: 

(6) (6) (1) (1) (1) 

r-T-T-T-T- 1 

IX |Y j LX j LY j Z j 

L_X_X-X_X_J 

2. Generated code 

T = TRUN ( (Z-1) /2) 
a. Z = 0: 

ZAP X (LX) f Y (LY) 
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b. 


Z < 0 and odd and |T|<LY: 


MVO X (LX) ,Y (LY+T) 

MVN X+LX-1 (1) ,Y+LY-1 


c. Z < 0 and even and )T|<LY: 


MVO X (LX) ,Y (LY+T) 

MVN X+LX-1 (1) ,Y+LY-1 

MVO X (LX) ,X (LX-1) 


d. Z > 0 and odd and TCLX: 


MVO X (LX-T) ,Y (LY) 

XC X+LX-T-1 (T+1) ,X+LX-T-1 

MVN X+LX-1 (1) ,Y+LY-1 

e. Z > 0 and even and T<LX: 


MVO X (LX-T) , Y (LY) 

XC X+LX-T-1 (T+1) ,X+LX-T-1 

MVN X+LX-1 (1) ,Y+LY-1 
MVO X (LX) , X (LX-1) 

f. (z < 0 and |T|>LY) or (Z > 0 and 
T>LX) 

ZAP X (LX) ,=0(1) 


F ixed Decimal S ubt raction 

1. Format of the macro 

(1) (2) (1) (6) (6) (6) (1) (1) 

r-T-T-T-T-T-T-T-1- 

|F2 I 0 01CI 11 |OP11OP21OP3 j L2 |L3 | 

L-A_X-X_X-X-X_X-J- 

(D (1) (D (D 

-T-T-T-T-1 

(A | B |S | L | 

-t-X-X-X- J 

2. Generated code 

SHIFT GWO (16) ,S2 (L2) , A 
SHIFT GWO+16 (16) , S3 (L3) B * 

SP GWO (16) , GWO+16 (16) * 

if S = X 1 30 1 

ZAP SI (L) ,GWO (16) 

all other cases: 

WC SI (L) , GWO+16-L 

P01, P02, and OP3 may be indirectly 
addressed. 

The submacro SHIFT is described after 
FIXED DECIMAL ADDITION. 

* if B=0 , the instructions will be 
replaced bytSP GWO (16) # S3 (L3) .. 


Fixed Decimal Multiplication 

1. Format of the macro 

(D (2) (1) (6) (6) (6) (1) (1) (1) (1) 

| r F2joO IbT 1 2 J OP 1 JoP2*[ OP3J L2 |l 3 jb js ] 

L X_X_X_X_X X_X_X X J 

2. Generated code 

ZAP GWO (16) ,S2 (L2) 

MP GWO (16) , S3 (L3) 

if S=X *30* 

ZAP SI (L) ,GWO (16) 

all other cases: 

me SI (L) , GWO+ 16-L 

OP 1 1 OP2, and OP3 may be indirectly 
addressed. 

The submacro SHIFT is described after 
DECIMAL FIXED ADDITION. 


Fixed Decimal Division 

1. Format of the macro 

(1) (2) (1) (6) (6) (6) (1) (1) (1) 
[f2 To019T13 J OP1JOP2J OP3J L2 ]aL3 T \ A ] 

L-X-X-X-X-X-X-X-X-J 

2. Generated code 

SHIFT GWO (L3 + 8) , S2 (L2) ,A 
DP GWO (L3+8) , S3 (3) 

me SI (8) ,GWO 

OP1, OP2 , and OP3 may be indirectly 
addressed. 

The submacro SHIFT is described after 
DECIMAL FIXED ADDITION. 

Fixed Decimal Negation, 1 Operand 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 1 ) 

r-r-T-T-T-1 

|F2 | 000B |14 |OP1|L | 

L_ X _X_X_X_J 

2. Generated code 

XI S1+L-1 f X * 01• 

OP 1 may be indirectly addressed. 

Fixed Decimal Assignment 
1. Format of the macro 


Phases PL/IE50-61 (General) 
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(1) (2) (1) (6) (6) (1) (1) (1) (1) (1) Fixed Decimal Comparison 

r - T - T - t -T-T-T-T T-T-*~l 

j F2 j 0015 j15 |OP 1|OP2|L1 |L2 |A | -|S | 

l —x-x-x-x-x-x-1—x—x-j 1. Format of the macro 



2. Generated code 


a. S # 4 : SHIFT SI (LI) , S2 (L2) ,A 


(1) (2) (1) (6) (6) (6) (1) (1) 
r-T-T-T-T-T-T-T- 1 

| F2 |001C|18 |- |OP2|OP3|L2 |L3 | 

L_X_X_X_X_X_X_X_J 


b. 


S=4,A<0: 


SHIFT 

ZAP 


GWO (16) ,S2 (L2) , A 
SI (LI) ,GW0 (16) 


c. S=4,A>0: A is odd: 

SHIFT GWO (16) ,S2 (L2) ,A 
ZAP SI (LI) , GWO (16) 


(1) (1) (D (1) 


T-T-T-T-1 


| A | B | S | C | 

L-X_X_X-J 


2. Generated code 


d. 


S=4,A>0: A is 
SHIFT 
ZAP 
MVO 
MVN 


even: 

GWO (16) ,S2 (L2) , A+1 
GW0+16-L1 (LI) , GWO (16) 
SI (LI) , GW0 +16-L1 (LI-1) 
1+L1-1 (1) , GW0+ 15 


SHIFT GWO (16) ,S2 (L2) ,A 
SHIFT GWO+16 (16) ,S3 (L3) ,B 
CP GWO (16) , GW0+ 16 (16) 


OP1 and OP2 may be indirectly 
addressed. 


If A=B, the following code is generat¬ 
ed: 


F ixed Decimal Negation, 2 Operands 


CP S2 (L2) f S3 (L3) 


1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 1 ) ( 1 ) 

!f 2 Too 12T1 6 IoPljoP2jL1 Il2 ] 

L_X_X-X-X_X X J 

2. Generated code 

ZAP SI (LI) , S2 (L2) 

XI S1+L1-1,X'01• 

OP1 and OP2 may be indirectly 
addressed. 


F ixed Decimal Exponentiation 
1. Format of the macro 


OP2 and OP3 may be indirectly 
addressed. 


SIGN, Fixed Decimal 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 2 ) 

r -T-T-T-T-T-1 

|F2 |0012|1A j OP1j OP2 j LABEL j 

L_X_X_X_X_X_J 

The modifier of OP2 must be increased 

by L-1 (L= length of OP1) if the macro 
is used for the SIGN function. 

2. Generated code 


( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 6 ) ( 2 ) ( 2 ) 

f - T - T -r-T-T-T-T- 1 

j F2 j 001C|17 | X j TRG j N j DED X|DED TRG| 

L-X-X-X_X-X-X-—X-J 

2. Generated code 

LA 1,X 

LA 3, N 

LA 4,TARGET 

USED REGISTER (5) 

LA 2,DED X 

LA 5, DED TARGET 

L 15,N’94' 

BALR 14,15 

X and TARGET may be indirectly 
addressed. 


r — - —-— 

j OP1=REGISTER 

L 

T-- - 

j OP1=STORAGE 
. 1 

| SR 

R1 ,R1 

| SR 

5,5 

tZAP 

S2 (1) ,S2 (1) 

j ZAP 

S2 (1) ,S2 (1) 

| OPT 

LABEL 

IOPT 

LABEL 

j BC 

8,LABEL 

| BC 

8,LABEL 

j LA 

R1 ,1 

j LA 

5, 1 

|OPT 

LABEL 

| OPT 

LABEL 

j BC 

2,LABEL 

j BC 

2,LABEL 

j LCR 

R1 ,R1 

| LCR 

5,5 

j LABEL 

1 

1 ___ 


|LABEL 
j ST 

X. __ 

5,SI 


OP 1 and OP2 may be indirectly 
addressed. 


As 
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A BS, Fixed Decimal 
1* Format of the macro 

0 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 2 ) 

r - T - T - t-T-T-1 

|F2 |0012|IB |OP1|OP2| L [ 

L-X_*»X_JL_X_X_J 


L is the length of the operands. 

2. Generated code 

ZAP OP1 (L) , OP2 (L) 

NI OP1+L-1, X'FE * 

OP1 and OP2 may be indirectly 
addressed. 

Short Float Addition 


r- t-t- 1 

j OP1=REGISTER j OP1=STORAGE | 

- + -_ + - ^ 

| |STD 0,GWO | 

0P2= j SER R1,R2 |LE 0,S1 | 

REG. j jSER 0,R2* | 

j j STE 0,S1 | 

j jLD 0,GWO j 

-1-1----j 

j j STD 0,GW0 j 

j jLE 0,S1 j 

OP2= j SE R1,S2 jSE 0,S2 j 

STOR.j |STE 0,S1 | 

j |LD 0,GWO | 

L_X_X_J 

*R2 must not be 0. 

OP 1 and OP2 may be indirectly 
addressed. 


1. Format of the macro 


(D (2) (1) (6) (6) 

[f2 "j"001 o"j"20 joPl|oP2] 
l -x-x-x-x-J 


2. Generated code 


Short Float Multiplication 
1. Format of the macro 


( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 
|*F2 I00I0I22 joPljoP2] 

L_X_X_X_X_J 


r- t-t- 1 

| IOP1=REGISTER |OP1=STORAGE j 

(.-1-i--| 

j j j STD 0,GWO j 

j OP2= j AER R1,R2 jLE 0,S1 | 

jREG. | |AER 0,R2* | 

I I 1ST 0,S1 l 

jj j LD 0,GW0 j 

j.-1-i--| 

j j jSTD 0,GW0 j 

I I |LE 0,S1 | 

AE R1,S2 j AE 0,S2 | 

|STE 0,S1 | 

j LD 0,GW0 j 

L-X_X_J 

*R2 must not be 0. 

OP1 and OP2 may be indirectly 
addressed. 


| OP2= 1 
j STOR. 

I I 


Short Float Subtraction 


Generated code 


- T -^ 

j OP1=STORAGE | 


j OP1=REGXSTER 


| OP2= 
I REG. 


MER R1,R2 


| STD 
j LE 
j MER 
|ST 
j LD 


0,GW0 

0 , SI 

0,R2* 

0,S1 

0,GW0 


| OP2= 

I STOR. 


ME R1,S2 


| STD 
| LE 
j ME 
j STE 
I LD 


0, GWO 
0,S1 
0, S2 
0,S1 
0,GW0 


*R2 must not be 0. 


OP1 and OP2 may be indirectly 
addressed. 


1. Format of the macro 


( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 

[f 2 Too 10 T 21 I 0 P 1 I 0 P 2 ] 

L_X_X-X_X-J 


2. Generated code 


Short Float Division 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 

|F2 Too 1 0 T 23 JoPlIoP2] 
L_X_X_X_X-J 


Phases PL/IE50-61 (General) 
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2. Generated code 


- T - T - 

j 0P1=REGISTER |0P1=ST0RAGE 


| 0P2= 
I REG. 


I 

|DER R1,R2 

I 

I 


4- 

j STD 
j LE 
j DER 
| STE 
| LD 


0 ,GW0 
0,S1 
0 ,R2 
0,S1 
0 ,GW0 


| 0P2= IDE 
|STOR. 


R1 ,S2 


] STD 
| LE 
| DE 
j STE 
j LD 


0 ,GW0 

0,S1 

0,S2 

0,S1 

0,GW0 


* R2 must not be 0. 

OP1 and OP2 may be indirectly 
addressed. 


Short Float Assignment 

1. Format of the macro 

(D (2) (1) (6) (6) 

| f F2 ToOloT26 IoPl}oP2] 

L-X-X X_X_J 

2. Generated code 


~r -t-i 

j OP 1=REGISTER |OPl=STORAGE j 


| 0P2= |LER R1,R2 
| REG. I 


| STE R2,SI 


h 


4- 


|0P2= |LE R1,S2 
|STOR. | 

L_X_ 


4-—-1 

j MVC SI (4) , S2 j 

I I 


OP 1 and OP2 may be indirectly 
addressed. 


Short Float Negation, 2 Operands 

1. Format of the macro 

(1) (2) (1) e6) (6) 

r - T - T - T - T - 1 

|F2 |001 0|24 |OP110P21 

L-X-X_X_X_J 

2. Generated code 

r- t-t-1 

| j OP1=REGISTER |0P1=ST0RAGE | 

I--I-1-^ 

j 0P2= j LCER R1 # R2 jSTE R2,S1 j 

j REG, j |XI S 1 , X' 8 0 ' j 

j.-+--}- 

| j MVC GWO (4) ,S2| MVC S1(4),S2| 

j OP2= |XI GWO , X'8 0'j XI S1, X' 8 0 * j 
j STOR. j LE R1,GWO j | 

L-X-X_J 

OP1 and OP2 may be indirectly 
addressed. 


Sh ort Float Negation, 1 Operand 

1. Format of the macro 

H) (2) (1) (6) 

|F2 *[000aJ 25 JoPl] 

L_X_X_X_J 

2. Generated code 

r- t- 1 

j OP1=REGISTER j OP1=STORAGE j 

h-1- 1 

I I I 

| LCER R1 r R1 | XI S'\,X'80' | 

L-X_J 

OP1 may be indirectly addressed. 


Short Float Exponentiation (Integer) 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 6 ) 

r- r -t-t-t-t- 1 

|F2 j0016|27 j X jTARGET] IN] 

L-X_X_X_X___1__J 

2. Generated code 


LA 

LA 

LA 

L 

BALR 


1, X 

2, N 

3, TARGET 
15,N* 92' 
14,15 


X and TARGET may be indirectly 
addressed. 

Short Float Comparison 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 
f - T - T T-T-1 

|F2 |0010|28 ]OP1|OP2| 

L_X_X X_X_J 

2. Generated code 


j OP1=REGISTER 


~ T - 1 

j OP1=STORAGE | 


| 0P2= 
| REG. 


| CER R1,R2 


| STD 0,GWO 
j LE 0,S1 
jCER 0,R2* 
j LD 0,GWO 



*R2 must not be 0. 

OP 1 and OP2 may be indirectly 
addressed. 
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Fl oat G eneral Exponentiation 

1 • Format of the macro 

( 1 ) ( 2 ) ( 1 ) 16 ) ( 6 ) ( 6 ) 
f - T T - t-T T-1 

j F2 j 0016 j 2 9 | X | TARGET | Y | 

L-JL X_X_X X_J 


2. Generated code 

LA 1 , Y 

LA 3,TARGET 

LA 2,X 

L 15,N* 96 * 

BALR 14,15 

SI GN, Floa t 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 2 ) 
f - T - T - t-T-T-1 

j F2 j0012|2A jOP1jOP2|LABEL| 

L-X-X-X-X-X-J 


2. Generated code 


ABS, Short Float 
1. Format of the macro 
( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 
|F2 I 0 OI 0 I 2 B IoPlIoP2] 

L_X_X_X_X_J 


2 , Generated code 


r- t -r- 1 

j |OP 1=REGISTER |0P1=ST0RAGE j 

h-+-+-1 

10P2= j j STE R2, S1 j 

|REG. j LPER R1,R2 jNI S1,X'7F'| 

I*-i-+-*1 

j 0P2= j LE R1, OP2 j MVC S1(4),S2| 
j STOR. j LPER R1 , R1 jNI S1,X'7F'j 

L_X_X_J 

OP 1 and OP2 may be indirectly 
addressed. 


Long F loat Addition 


r - t 


T“ “ ~ 

1 

1. 

Format of the macro 




1 

OP1=REGISTER 

|OP1=STORAGE 1 







^-^ 

— 


f- 

- -i 


(1) (2) (1) (6) 

(6) 




1 

SR 

R1 ,R1 

| SR 

5,5 1 


r~ T- T T 

T-1 





LTER 

R2,R2 

j LTER 

R2,R2 j 


|F2 I0010 I 30 |OPl 

1 OP2 | 





OPT 

LABEL 

j OPT 

LABEL j 


LX XX 

X_J 




| 0P2= 

BC 

8,LABEL 

j BC 

8,LABEL| 







j REG. 

LA 

R1 r 1 

| LA 

5,1 | 

2. 

Generated code 






OPT 

LABEL 

j OPT 

LABEL j 








BC 

2,LABEL 

j BC 

2,LABEL| 


r - — T 

— 



“1 


[LCR 

R1 , R1 

1 LCR 

5,5 | 


I IOP1=REGISTER I 

OP1 = 

^STORAGE 

1 


LABEL 


|LABEL 

1 


(. - 1 - 

— 1- 

— 


-I 




j ST 

5,SI | 


1 1 

1 

STD 

0,GW0 


Y - 



+- 

- -1 


j 0P2= |ADR R1,R2 

1 

LD 

0,S1 



L 

R1 ,S2 

1 L 

5 , S2 | 


|REG. | 

1 

ADR 

0,R2* 



LTR 

R1 ,R1 

| LTR 

5,5 | 


1 I 

1 

STD 

0,S1 



OPT 

LABEL 

j OPT 

LABEL j 


1 1 

1 

LD 

0, GW0 


| 0P2= 

BC 

8 , LABEL 

,j BC 

8,LABEL| 


Y -1- 

—1_ 

— 


H 

| STOR. 

LA 

R1 < 1 

j LA 

5,1 1 


1 1 

1 

STD 

0,GW0 



OPT 

LABEL 

j OPT 

LABEL | 


|0P2= | 

1 

LD 

0,S1 



BC 

2,LABEL 

j BC 

2,LABEL 


j STOR.jAD R1,S2 

1 

AD 

0, S2 



LCR 

R1 ,R1 

j LCR 

5,5 | 


1 1 

1 

STD 

o,si 



LABEL 


j LABEL 

1 


1 1 

1 

LD 

0, GW0 





j ST 

5,SI | 


1 — _ X 




_j 


x-x--j * R2 must not be 0. 


OP1 and OP2 may be indirectly 
addressed. 


OP 1 and OP2 may be indirectly 
addressed. 
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Lo ng Float Subtraction 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 

\F2 X001oX31 JoPIJ 0 P 2 ] 
l_ x_±_x_x _J 


Long F loat Division 
1. Format of the macro 
( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 
[f 2 Too 10T33 ]opi]op 2 ] 

L-X-X-X-X-J 


2. Generated code 


r- T - T -1 

j j0P1=REGISTER |0P1=ST0RAGE | 

(.- 

1 

| 0P2= 
j REG. 

I 
I 

t - 

I 

j 0P2= 

|STOR. 

I 
I 

L_ 

*R2 must not be 0. 

OP1 and OP2 may be indirectly 
addressed. 

Long Fl oat Multiplicat ion 


+-f-^ 

j jSTD 0,GW0 j 

|SDR R1,R2 j LD 0,S1 | 

j |SDR 0 ,R2* j 

| |STD 0,S1 j 

| |LD 0,GW0 j 

+-+- \ 

I j STD 0,GW0 j 

j j LD 0,S1 j 

|SD R1,S2 |SD 0 ,S2 | 

| |STD 0,S1 | 

| |LD 0,GW0 | 

X_x_J 


2. Generated code 


r- t-t- 1 

j j OP1=REGISTER jOP=STORAGE | 

h- 

I 

j 0P2= 

I REG. 

I 
I 

h- 


| 0P2= 

ISTOR. 

I 

L_ 

*R2 must not be 0. 

0P1 and OP2 may be indirectly 
addressed. 


+ -+-1 

j jSTD 0,GW0 j 

j DDR R1,R2 j LD 0,S1 | 

| jDDR 0,R2* j 

j j STD 0,S1 j 

j j LD 0,GWO | 

+-1--i 

j jSTD 0, GWO I 

j j LD 0,S1 | 

j DD R1,S2 j DD 0,S2 | 

j j STD 0,S1 j 

| |LD 0,GW0 | 

X-X_J 


1 . 


2 . 


Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 

|P2 Too 1 oT32 ToPlWl 

L-X-X-X-X-J 

Generated code 


Long F loat Ne g ation, 2 Operands 
1• Format of the macro 


( 1 ) ( 2 ) 0 ) ( 6 ) ( 6 ) 
[f2 Too loT 34 joPl|oP2] 

L-X-X-X-X-J 


r— - 
1 

F- 

1 

j 0P2= 

|opi 

-+- 

1 

j MDR 

=REGISTER 

R1 ,R2 

jopi = 
-I— 

j STD 
| LD 

=STORAGE 

0 ,GW0 
0,S1 

"l 

1 

H 

1 

1 

2. Generated code 



j REG. 

1 


j MDR 

0,R2* 

1 

r - T - 


- T - 

- 1 

1 

1 


| STD 

0 # S1 

1 

1 | OP1 = 

REGISTER 

|OP1 

=STORAGE j 

1 

1 


j LD 

0 ,GW0 

1 

I--+— 


—1— 

--1 

^- 

1 

-+- 

1 


| STD 

0,GW0 

H 

1 

j 0P2= j LCDR 
|REG. | 

R1 ,R2 

j STD 
|XI 

R2,S'\ j 

S1'80'I 

| OP2= 

1 


j LD 

0,S1 

1 

j.-|- 



-^ 

j STOR 

. | MD 

R1 ,S2 

j MD 

0,S2 

1 

j 0P2= |MVC 

GWO (8) 

, S2|MVC 

SI (8) , S2 j 

1 

1 


| STD 

0,S1 

1 

STOR. XI 

GWO,X' 

80'|XI 

SI^X^O* | 

1 

1 

1 

_x_ 


j LD 

_x_ 

0 ,GW0 

1 

_ J 

1 1 ld 

1 X 

R1,GW0 


1 

*R2 

must 

not be 0. 









OP1 and OP2 may be indirectly 
addressed. 


OP1 and 0P2 may be indirectly 
addressed. 
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Long Fl oat N eg a tio n, 1 Ope r and 
1. Format of the macro 


( 1 ) ( 2 ) ( 1 ) ( 6 ) 
[f2 ]oooa]"3 5 Topi] 

L-X-X-X-J 


2. Generated code 


r - T - n 

| OP 1=REGISTER jOPl=STORAGE j 

(■-+ - ^ 

| LCDR R 1, R1 | XI SI,X 1 80 1 j 
L_X_J 


OP1 may be indirectly addressed. 


Long Flo at A ss i gn ment 
1. Format of the macro 


(D (2) (1) (6) (6) 

[f 2 ToOloT36 JoPljoP2] 

l _x_x_x_x_J 


2. Generated code 


r - T - T -1 

| |0P1=REGISTER |OP1=STORAGE | 

I--+-+-H 

|0P2= | | | 

jREG. j LDR R1,R2 jSTD R2,S1 j 

|.- + -+-^ 

|OP2= | | | 

|STOR. |LD R1,S2 | MVC S1 (8) , S2 j 

L_X_i_X_J 

OP1 and OP2 may be indirectly 
addressed. 


( 1 ) ( 2 > ( 1 ) ( 6 ) ( 6 ) 
[f 2 jo01oj38 IoPljoP2] 

l _X_X_X_X_J 


2. Generated code 


r - T - T -1 

j |OP 1=REGISTER |OP1=STORAGE j 

h-+-+-^ 

j j |STD 0,GWO j 

|OP2= j CDR R1,R2 |LD 0,S1 | 

jREG. | ICDR 0, R2* | 

j j jLD 0,GWO j 

h-1-+-^ 

j | j STD 0,GW0 j 

j 0P2= j |LD 0,S1 | 

j STOR. j CD R1,S2 |CD 0,S2 | 

|j j LD 0,GW0 j 

L_X_X_J 

*R2 must not be 0. 

OP 1 and OP2 may be indirectly 
addressed. 


Long F loa t General Exponentiation 
1. Format of the macro 

( 1 ) { 2 ) ( 1 ) ( 6 ) ( 6 ) ( 6 ) 
[f 2 TooleT 39 j X |targetI Y ] 

1-x-x-x-x-x-J 


2. Generated code 

LA 1, Y 

LA 3,TARGET 

LA 2, X 

L 15,N'97* 

BALR 14,15 


Long Float Exponentiati on (Integer) 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 6 ) 

[f 2 JoOl6j37 J X JtARGEtI N ] 

L_X_X_X_X_X_ J 

2. Generated code 

LA 1 ,X 

LA 2 , N 

LA 3,TARGET 

L 1 5, N ' 93 * 

BALR 14,15 

X and TARGET may be indirectly 
addressed. 

Float C omp a ris on 

1. Format of the macro 


ABS, L ong Floa t 
1. Format of the macro 


(1) (2) (1) (6) (6) 
j"F2 Io01ol3B I<0PlToP2] 

L- X -X- x-X-J 


2. Generated code 


—- T -- 

|OP1=REGISTER 

X 

T - 

jOPI: 

=STORAGE 

0P2= j 

REG. j LPDR 

R1 ,R2 

+ — 
j STD 
j NI 

R2 , S1 

S1,X'7F* 

OP2= j LD 
STOR. j LPDR 

R1,OP2 
R1 ,R1 

O 

> H 

S S 

— 

SI (8) , S2 

SI r X'7F' 


0P1 and OP2 may be indirectly 
addressed. 


Phases PL/IE50-61 (General) 


269 

































PL/I PLM 8 


IBM Confidential 


Char act er S tri n g C on ca t ena t ion 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 6 ) ( 1 ) ( 1 ) 

|F2 JoO18j40 joPl1 oP2|op3Il1 ]L2 ] 

L-X-1-X_I-1-X_-L_J 

2. Generated code 

MVC S1(L1),S2 

MVC S1+L1 (L2) , S3 

0P2 and 0P3 may be indirectly 
addressed. 


2. Generated code 


r t 

j |0P1 

= REGISTER 

|opi 

1 

= STORAGE! 

\ 

[ 1 
| 0P2= |SDR 
|REG. j LER 

R1 ,R1 

R1, R2 

j XC 
| STE 

SI (8) ,S1 j 
R2,S1 | 

h 1 

|0P2= |SDR 
|STOR.j LE 

R1 ,R1 

R1 , S2 

| XC 
| MVC 

SI (8) ,S1 I 
SI (4) ,S2 | 

J 


OP 1 and 0P2 may be indirectly 
addressed. 


Dec imal Fi xed to Binary Integer Conversio n 
CV30 


CONVERSION CV5 


Format of the macro 


1. Format of the macro 

(D (2) (1) (1) (1) (6) (6) (2) 

r-T-T-T-T-T-T-T-1 

j F2 | 0014 j 42 j I |RN |OPl|OP2|D | 

L-X_X_X_X-X_ x -x_J 


Generated 

code 



LA 

1, S2 


LA 

2,SI 

if 1=0: 

LA 

3,D 

if 1=1: 

LA 

3,N'3 * +D 


L 

1 5, N'RN' 


BALR 

14,15 


OP1 and OP2 may be indirectly 
addressed. 

CO NVER S ION CV4 

1. Format of the macro 

(D (2) (1) (1) (1) (6) (6) (2) (2) 

|F2 J0016j41 | I |rN yOPlIoP2|Dl Jd2 ] 


(D (2) (1) (6) (6) (1) (1) 

r -T-T-T-T-T-T- 1 

| F2 | 0012|50 |OPl |OP2| L | Z | 

L_ X _X_X_X_X_X_J 


2. Generated code 


SHIFT GW0 (8) ,S2 (L) ,Z 
CVB R1,GW0 

The submacro SHIFT is described after 
FIXED DECIMAL ADDITION. 

OP2 may be indirectly addressed. 

Decim a l F i xed to Zoned Decimal (T) 
Conve r sion, CV31 

1. Format of the macro 


(1) (2) (1) (6) (6) (1) (1) 
[f 2 Io012l51 Iopi]oP2Il1 [l2 ] 

L_J._X-X_X_X_X_J 


2. Generated code 


2. Generated code 


UNPK SI (LI) ,S2 (L2) 







LA 

1 ,S2 

if 

I 

= 0 

or 

1: 

LA 

2, D2 

if 

I 

= 2 

or 

3: 

LA 

2,N'3'+D2 






LA 

3,SI 

if 

I 

= 0 

or 

2: 

LA 

4, D1 

if 

I 

= 1 

or 

3: 

LA 

4,N'3'+D1 






L 

15,N'RN' 






BALR 14,15. 

0P1 


and 

OP2 

may 

be 

indirectly 


addressed. 

§hort F loat to Lon g Flo at Assignment 
1. Format of the macro 

(1) (2) (1) (6) (6) 

| P F2 Jooi oT 4 6 ToPiWr 

l _x_x_x_x_J 


OP 1 and OP2 may be indirectly 
addressed. 

Deci m al F i xed to Zoned Decimal Conversion, 
CV32 

1. Format of the macro 

(1) (2) (1) (6) (6) (1) (1) 

[f 2 y 001 2y 52 yoPiy 0 p 2 yLi yL21 

L-X-X-X-X-X-X J 

2. Generated code 

UNPK SI (LI) ,S2 (L2) 

01 S1+L1-1,X'F0' 

OP 1 and OP2 may be indirectly 
addressed. 
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Bi nary Intege r to Binar y Float Conversion/ Bit String to Binary Integer Conversion, 
CV33 CV36 


1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 2 ) 

f - T - T - t-T-T-1 

|F2 j 0 012 j 5 3 jOPl|0P2|LABEL) 

L_X_X-X_X_X_J 


1. Format of the macro 

0 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 1 ) 

r-T-T-T-T-T-1 

j F2 j0011j56 j OP1j OP2 j L j 
l -x_x_x_x_x_J 


2 . 


Generated code 


SR 

LPR 

STM 

MVI 

LTR 

BC 

MVI 

LABEL: LD 
AD 


4,4 
5, R2 
4,5, GWO 
GWO,X'4 E' 
R2,R2 
2,LABEL 
GWO,X'CE r 
R1,GWO 
R1,= (0) 


2. Generated code 


me GWO (4) ,S2 

L R1,GWO 

SRL R1 ,MIN (32-L, 1) 


OP2 may be indirectly addressed. 


Bina ry Integer to Decimal Fixed, CV37 


Binary Integ er to Bit Strin g C on version , 
CV34 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 1 ) 

V - T - T -r-T-T'- 1 

j F2 j 0011j 54 j OP 1j OP2 j Z j 
l _x_x_x_x_x_J 


1. Format of the macro 

(1) (2) (1) (6) (6) (1) 

|F 2 |0011|57 |OPl |OP2| L | 

L X_X_X_X_X_J 

2. Generated code 


2. Generated code 


CVD R2,S1 

MVC SI (L) ,S1+8-L 


| 0P1 = 

1 

REGISTER 

| 0P1 = 

STORAGE 

1 

| LPR 

OP2= j LR 
REG. |SLL 

j 

R2,R2 

R1,R2 

R1 ,Z 

| LPR 
j SLL 
j ST 

R2,R2 

R2,Z 

R2, S1 

OP2= |L 

j LPR 
STOR. j 

j SLL 

X 

R1 ,S2 

R1, R1 

R1, Z 

|L 

| LPRR 
j SLL 
j ST 

5,S2 

R5,R5 

5,Z 

5,SI 


OP1 and OP2 may be indirectly 
addressed. 


OP 1 may be indirectly addressed. 


Char ac ter String Comparison 

1. Format of the macro 

(1) (2) (1) (6) (6) (1) (1) (6) 
r -T-T-T-T-T-T-T- 1 

I |0012| I | | I | I 

|F2 |0018|58 |OP1|OP2|Li |L2 |OP3| 

L_X_X_X_X_X_X_X_J 

If L1=L2, the length of the macro is 18 
bytes instead of 24 bytes. 


Zo ne d D eci mal_( T) to De cim a l Fixed 

Co nve rs ion , CV35 

1. Format of the macro 

(1) (2) (1) (6) (6) (1) (1) 
f- T -T-T-T-T-T- 1 

|F2 | 0012| 55 |OP1|OP2|LI |L2 | 

L_X_X_X_X_X_X_J 

2. Generated code 

PACK SI (LI) ,S2 (L2) 

OPl and OP2 may be indirectly 
addressed. 


2. Generated code 


a. 

L1=L2: 

CLC 

SI (LI) ,S2 

b. 

L1<L2: 

MVI 

S3,X'40' 



MVC 

S3+1 (L2-1) ,S3 



MVC 

S3 (LI) ,S1 



CLC 

S3 (L2) ,S2 

c. 

LI >L2: 

MVI 

S3,X'H0' 



MVC 

S3+1 (Li- 1) ,S3 



MVC 

S3 (L2) ,S2 



CLC 

SI (LI) ,S3 

OPl 

and OP2 

may 

£>e indirectly 


addressed. 


Phases PL/IE50-61 (General) 
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Sh ift Right Arithmetic Single 
1. Format of the macro 
( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 

\F2 Io01()l59 IoPlToP2] 

L-X-X-X-X_J 


( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 
[f2 Jooiojsc l0Pll0P2l 

L-X-X-X-X-J 


2.0 Generated Code 


2. Generated code 


r- T - 

j OP1=REGISTER |OP1=STORAGE j 

^- + -^ 

I |L 4,SI | 

j SRA R1,S2 j SRA 4,S2 j 

j j ST 4 ,,S 1 | 

L_X_J 


OP1 may be indirectly addressed. 


Sh ift Left Arithme tic S ing le 
1. Format of the macro 


( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 
[f2 JoO 1 oj 5A J OP ij OP 2 ] 

L_X-X-X-X-J 


2. Generated code 


OP1 

T 

— REGISTER!OP1 

1 ... . 

= STORAGE 


— -f —- 

|L 

4, SI 

SLA 

R1 ,S2 | SLA. 

4,S2 


j ST 

4,SI 


_ _X_ 



OP1 may be indirectly addressed. 

Sh ift Right Arithm etic Doable 
1. Format of the macro 


0P1=REGISTER 

T - 

j OP1=STORAGE 

1 


| LM 

4,5,SI 

SLDA R1,S2 

j SLDA 

4,S2 


j STM 

4,5,SI 


_1___ 



OP 1 may be indirectly addressed. 


Bit S t ring NOT, 2 Operands 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 1 ) ( 1 ) ( 1 ) 
r - T -T — T - T - T - T - T - 1 

j F 2 j 0 013 j 63 j OP1 j OP2 j L j | M | 

l _x_x_x_x_x_x_x_ J 

2. Generated Code 

XC SI (L) , S2 

NI S1+L-1,M 

OP 1 and OP2 may be indirectly 
addressed. 


Bit S t ring Assignment 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 1 ) ( 1 ) ( 1 ) 
f - T - T - t-T-T-T-T-1 

|F2 j 0 013|65 j OP1j OP2 j Li jL2 j M j 

L_X_X-X-X-X-X-X-J 


( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 
r - T - T -T-T-1 

| F2 I 00 101 5B | OP1|0P21 

L_X_X_X_X-J 


2. Generated Code 


r - T -1 

j OP1=REGISTER j 0P1=ST0RAGE | 

|_-j.--1 

I j LM 4,5,SI j 

|SRDA R1,S2 j SRDA 4,S2 j 

j j STM 4,5,S1 j 

L-X-J 


OP1 may be indirectly addressed. 
S hift Left Ari t hmet i c Doub le 
1. Format of the macro 


2. Generated Code 


a. LI>L2: XC 
MVC 


SI (LI) ,S 1 
SI (L2) , S2 


b. 


LI<L2: MVC 
NI 


SI (LI) ,S 2 
S1+L1-1,M 


OP 1 and OP2 may be indirectly 
addressed. 


Bit String NOT, 1 Operand 
1. Format of the macro 


(1) (2) (1) (6) (1) (1) 

r- t-t-t -*r- t-1 

|F2 |000D|64 |OP1| L |M | 

l-X-X-X-X-X-J 
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2. Generated code 


Shift Right Logical Single 


XC SI (L) ,N*2 f 

NI S1+L-1,M 

OP1 may be indirectly addressed. 


1. Format of the macro 
( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 

[ F2 Jo01 oj69 joPlWl 

L_X_JL_X_X_J 


Bit 

Strinq AND 


1 . 

Format of the macro 



(1) (2) (1) (6) (6) (1) 

(i) 


[f 2 j 00 1 2 j 66 ]OP 1 j OP21LI 
l j. _ j. r _ r _r_ _ 

Tl2 

j._ 

2 . 

Generated code 



NC SI (L2) ,S2 and if L2<L1 

XC S1+L2 (L1-L2) ,Sf + L2 


OP1 and OP2 may be indirectly 
addressed. 

Bit_ 

Strinq OR 


1. 

Format of the macro 



(1) (2) (1) (6) (6) (1) 

(1) 


|F2 |0012|67 i0Pli0P2l 

1 - 

| L2 
x_ 


2. Generated code 


r - T --j 

| OP1=REGISTER |OPl=STORAGE j 

h-+- 1 

I |L 4,SI I 

|SRL R1,S2 jSRL 4,S2 | 

j |ST 4,SI | 

L_J._J 


0 P1 may be indirectly addressed 


Shift Lef t Logical Single 
1. Format of the macro 


(D (2) (1) (6) (6) 

|F2 J001 o]*6A. ToPlWl 

L_X_X_X_X_J 


2. Generated Code 


2 . 


Generated code 

[opi 

’ ~ “ ~T 

= REGISTER|OPI 

“l 

= STORAGE| 

OC SI (L2) ,S2 

\r - 

1 

-+- 

|L 

- 1 

4,SI | 

OP1 and OP2 may be indirectly 

jSLL 

R1,S2 j SLL 

4,S2 | 

addressed. 

1 

L_ 

| ST 

i. 

4 ,SI | 

J 


B it String Comparison 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 1 ) ( 1 ) 

[f 2 Too 1 2 T 6 8 Iopi|oP2Il1 ]h2 ] 

L_X_X_X_X_X_X_J 

2. Generated code 


a. 

If 

CN 

J 

II 

5 

CLC 

SI (Li) ,S2 

b. 

If 

L1<L2: 

XC 

GW0 + 80 (16) ,GW0+ 80 




MVC 

Gtf0 + 80L1) ,S1 




CLC 

GW0+8OL2),S2 

c. 

If 

L1>L 2: 

XC 

Gitf0 + 80 (16) ,GW0+ 80 




MVC 

GM0 + 80 (L2) ,S2 




CLC 

SI (LI) ,GW0 + 80 


OP1 and OP2 may be indirectly 
addressed. 


OP1 may be indirectly addressed. 


Shift Right Logical Double 
1. Format of the macro 


( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 
f - T - T -T-T-1 

|F2 j 0 01 0 [ 6B j OP1 j OP2 j 

L-X_X_X_X-J 


2. Generated Code 


OPI = 

T ~ 

REGISTER)OPI = 

.. . 1 . . . 

STORAGE 


T 

j LM 

4,5,SI 

SRDL 

R1 r S2 j SRDL 

4, S2 


| STM 

4,5 # S1 


X - 



OP1 may be indirectly addressed. 


Phases PL/IE50-61 (General) 
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Sh ift L eft Log i cal D ou ble 
1. Format of the macro 


( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 
[f2 "I*001 0*1^60 J 0P1J0P2] 

L_X_X_X_X_J 


2. Generated code 


r- T -1 

|0P1 = REGISTER!OP1 = STORAGE! 

I--+-1 

j | LM 4,5,SI j 

j SLDL R1,S2 |SLDL 4,S2 | 

j |STM 4,5, S 1 j 

L-X-J 


0P1 may be indirectly addressed 


Assig n Label Constant 
1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 6 ) ( 1 ) ( 2 ) 

[f2 Jo o i9J75 JopiJop 2 |op 3 Je 5 Jreg] 

L_X_X_X_X_X_X_X_._J 


2• Generated Code 

OP3: DC label (OP2) 

MVC SI (8) ,OP3 

MVC S 1 + 4 (2) ,72 (REG) 


Pointer Assignmen t 
1. Format of the macro 


Br anch on Cond i tion 
1• Format of the macro 


(1) (2) (1) £6) (6) 


|F2 Too loT 76 JoPIJ 0 P 2 ] 


L-X-X_X_X_J 


(1) (2) (1) (1) (6) 
|f 2 J000BJ70 J c Jopi] 

L-X-X_X_X_J 

2. Generated Code 

OPT OP1 

BC C,0P1 


Re turn to Label Constant 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 6 ) ( 1 ) ( 2 ) 
r - T - T -r-T-T-T-T-1 

j F2 j 0019 | 71 jOPI|OP2|OP3|E5 j REG j 

L-X-X-X-X-X_X_X-J 


2. Generated Code 

0P3: DC label (OP2) 

MVC SI (8), OP3 

MVC SI + 4 (2) ,72 (REG) 

LA 1,S1 

L 15,N'13 * 

BR 15 


D efine Label Constant 
1. Format of the macro 


2. Generated Code 

a. OP2 is a pointer (bit 6 of byte 15 
is set on) 

MVC S1 + 1 (3) ,S2+1 

b. OP2 is not a pointer 

LA 0,S2 

ST 0,GW0+ 80 

MVC S1 + 1 (3) , GW0+ 8 1 


IF 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 1 ) 
[*F2 Jo 01 lj 7 A J0P1J0P2J L ] 

L-X_X_X_X_X-J 

2. Generated Code 


0P2 = 

=REGISTER 

- T - 

1 

X- 

op2=storage 



T 


or 

R2,R2 

1 

OC S2 (L) , S2 

OPT 

0 P1 

1 

OPT OP1 

BC 

8 ,OP1 

1 

BC 8,OP1 



_j.. 



OP2 may be indirectly addressed. 


(1) (2) (1) (2) 

\ F2 J 0007 J 72 JlABEL ] 

L_X_X_X_J 

2. Generated Code 
LABEL: 


Point e r Comparison 


1. Format of the macro 


( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 

Jf 2 J0OI0J78 JoPlJoP2] 

L_X_X_X_X_J 
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2. Generated Code 

a. 0P2 is a pointer (bit 6 of byte 15 
is set on) 

CLC S1 + 1 (3) ,S2+ 1 

b. 0P2 is not a pointer 

LA 0,S2 

ST 0,GW0+ 80 

CLC S1 + 1 (3) ,3W0 + 81 


Sum 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 1 ) ( 2 ) 

f - T - T - t-T-T- 1 

j F2 |000E|7B |OP1j N jLABEL| 

L-x-X-X-X-X_J 

2. Generated Code 

LA 4,OP 1 

LA 3,N 

LABEL: 

OP1 may be indirectly addressed. 
Return to Label Va ri ab le 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 1 ) ( 6 ) 

[f 2 y ooobJ 8o y y 0P i] 

L_X_._X_X_X_J 

2. Generated Code 

LA 1,S1 

L 1 5, N'13 1 

BR 15 

DO Branch 

1. Format of the macro 

d) (2) (1) (6) 

[f 2 yocWsi y 0 pii 

L-X-X-X-J 


2. Generated Code 

LA 1,S1 

L 1 5, N • 13 • 

BR 15 

As sig n Label V a ria ble 

1. Format of the macro 
( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 

r-T-T-T-T-1 

j F2 j0010|85 j OP1j OP2 j 

L_X_X_X_X_J 


2. Generated Code 


Store 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 

j~ f 2 yooioy83 yoPiy 0 P2*i 

L_X_X_X_X_J 

2. Generated Code 

ST R1 / S2 

OP2 may be indirectly addressed. 

Store Short 

1. Format of the macro 

(D (2) (1) (6) (6) 

r-T-T-T-T-1 

|F2 I 0010 I 84 j OP1 |OP2[ 

L_X_X_X_X_J 

2. Generated Code 
STE R1,S2 

OP2 may be indirectly addressed. 
Char ac ter String Assignment 

1. Format of the macro 

(1) (2) (1) (6) (6) (1) (1) 

[f 2 yocmyse y 0 Piyop 2 yLi yL 2 } 

L_X_X_X_X_X X J 

2. Generated Code 

a. LI < L2: 

M7C SI (LI) ,S2 

b. LI > L2: 

mi si,x*40' 
me si + i (Li-i) ,si 
MVC SI (L2) , S2 

OP 1 and OP2 may be indirectly 
addressed. 

Subsc r ipted Variable 
1• Format of the macro 

(1) (2) (1) (1) (1) (6) (6) (6) (6) 

[f 2 yoo3cy87 y y n yopiyop2yop3yop4y 

L_X_X_X_X_X_X_X_X-X_ 



MVC SI (8) ,S2 

OP1 and OP2 may be indirectly 
addressed. 


(6) (6) (6) (6) (6) 

T-T-T-T-T-1 

j OP5 jOP6 j OP7IOP8 j OP9 j 
x-x_x-x-x- J 


Phases PL/IE50-61 (General) 
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2 . 


Generated Code 


(D (2) (1) (6) (1) 


a. N=0: LA R1,S8 
A R1,S9 


r-T-T-T-T-1 


|F2 |000B|BA |OP 1l N | 

L_I_X_X_X_J 


b. N=1: 


c. N=2: 


d. N=3: 




2. 

Generated Code 

L 

Rl,S2 



MH 

R1, S3 



A. 

R1, S 9 


a. N=0: MVI OP1,X'FF* 

LA 

5, S8 



AR 

R 1,5 


b. N<0: MVI OP1,X'FF 1 




MVC OP1 + 1 (N) , OP1 

L 

R1, S 2 



mh 

R1, S3 



A 

Rl ,S4 


OP 1 may be indirectly addressed 

MH 

R1 f S5 



A 

Rl ,S9 



LA 

5,S8 

Load Address of ON Block 

AR 

R1,5 

1 . 

Format of the macro 

L 

Rl, S2 



MH 

Rl ,S3 


(D (2) (1) (6) (1) 

A 

Rl ,S4 


r T T T T 1 

MH 

Rl ,S5 


IF 2 I000BI 8B IOP1I R 1 

A 

R1,S6 


1 

l 

l 

H 

1 

1 

1 

H 

1 

1 

1 

H 

1 

1 

1 

1 

-1 

1 

1 

1 

-j 

MH 

R1,S7 



A 

Rl, S9 



LA 

5, S8 

2. 

Generated Code 


AR R1,5 


All operands may be indirectly 
addressed. 


LA R, OP1 

AH R, 0 (R) 


Substring 


OP 1 may be indirectly addressed 


1. Format of the macro 


Initial 


(D (2) (1) (6) (6) 

|F2 Tooloj88 JoPIJ 0 P 2 ] 

L-X_X_X_X_ i 

2. Generated Code 

if 0P2=ST0RAGE 


1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 2 ) ( 2 ) 

r - T T -T-T-1 

j F2 I 0008j8C I A I B I 

L_X X_X_L_J 

2. Generated Code 


LA 5,S1 

USED REGISTER(0) 
A 5,S2 

BCTR 5,0 


LA 1 ,A 

L 15,B 

BALR 14,15 


or, if OP2 = REG: 


Format 


LA 5,S1 

USED REGISTER(0) 

AR 5,R2 

BCTR 5,0 

OP1 and OP2 may be indifectly 
addressed. 


1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 2 ) 

r -T T-T-1 

j F2 j 0006 I8D j A | 

L_X X_X_J 

2. Generated Code 


High 

1. Format of the macro 


LA 1, A 

L 15, N' 21' 

BALR 14,15 
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L oad Transmit 
1• Format of the macro 

(D (2) (1) (2) 

|F2 |0006|8E | A ] 

l _x_ x _x_j 


or 

(1) (2) (1) (1) (1) 

r-T-T-T-T- 1 

j El jNAME j X j Y |AT | 

L-X_X_X_X_J 


2. Generated Code 


L 15, A 

Call 

1• Format of the macro 

(1) (2) (1) (1) (6| (6) 
r - T - T - t-T-T-T-1 

j F2 j N* 6 + 5 j 90 j N jOP1 j |OP+1 j 

L-X_X_X-X-X_X_J 


if the parameter is an entry name. 

* This instruction is deleted if the 
name is X'0000*. If the parameter is 
an entry name, the instruction is 
replaced by: 

MVC BLOCK (4) # S (I) 

LA RX,BLOCK 

ST RS,BLOCK+4 only if RS = 0 

BLOCK: DS 2F 




2. Generated code 


a. N<8: 


b. N>8: 


STM 0,4,Gtf0+80 
LA 14,S3 
LA 15,S4 
LA 0,S 5 


LA 

RX, SN+ 1 * 

STM 

14,RX, GW0 

L 

15,SI ** 

LR 

0,RS ** 

LA 

1 ,GW0 

BALR 

14,15 

STM 

0,4 , GW0 + 80 

LA 

14,S3 

LA 

15, S4 

LA 

0, S5 

LA 

1 ,S6 

LA 

2,S7 

LA 

3,S8 

LA 

4, S9 

STM 

14,4,GW0 

LA 

14, S10 

LA 

15,S11 

LA 

0 , S 12 

LA 

RX,SN+ 1 * 

STM 

14,4,GW0+28 

LM 

0,4,GW0+80 

L 

15,SI ** 

LR 

0, RS ** 

LA 

1 ,GW0 

BALR 

14, 15 


3. Format of the operands 

The general format of the parameters is 

(D (2) (2) (1) 

r -T-T-T-1 

jEl I NAME I MODI AT j 

L_X_X_X_J 


**If the entry name is a parameter, 
this instruction is replaced by: 

L 5,SI 

LM 15,0,0(5) 

If RS=0, the instruction LR 0,RS is 
deleted. 

RS depends on X and Y as follows: 


r-T-T-T- 1 

j | X = 0 j X = 1 j X = 2 | 

L-1-1-1--| 

j Y = 1 j RS = 0 I RS = 13 j RS = 0 j 

I--1-1-+-1 

| Y = 2 | RS = 0 j RS = 11 | RS = 13 j 

j. --j--1-1 - \ 

j Y = 3 j RS = 0 j RS = 11 j RS = 10 j 

L_X_X_X_J 


Retur n 

1. Format of the macro 

(1) (2) (1) (1) 

r -T-T-T- 1 

| F 2 |0 005|91 I I I 

L_X_X_X_J 


2. Generated code 


a. 1=0: 


b. 1=1: 


c. 1=2: 


d. 1 = 3: 


L 

13,4 (13) 

LM 

14,12, 12 (13) 

BR 

14 

LR 

13,11 

L 

13,4 (13) 

LM 

14, 12, 12 (13) 

BR 

14 

LR 

13, 10 

L 

13,4 (13) 

LM 

14, 12,12 (13) 

BR 

14 

same 

as 1=0. 
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Pr ologu e 

1. Format of the macro 


b. 


Secondary ENTRY of MAIN PROCEDURE 
(E=1, 1=1) 




( 1 ) 


( 2 ) 


( 1 ) ( 6 ) ( 6 ) ( 1 ) ( 1 ) ( 1 ) 


2 . 


j F2 j (N+4) * 6 j 92 |0Plj0P2jLN BN 


(D (1) (D (2) (6) (6) 

r-T-T-T--—T-T-T-1 

j E j I |FL |LABEL|P1 j j PN | 

L-X_X_X_X_X_X_J 


0P1 - Entry name 

OP2 - gives the address of the ON 

block 

LN * Level number 

BN - Block number 

N * Number of parameters 

E - indicates whether main entry or 

secondary entry 

I - indicates whether internal, 

external (1) or external (2) 

FL - ON-flags 

LABEL - a label-name used in the prolo¬ 

gue . 

PI, P2, ... PN - Parameters. 

Generated code 

a. 


CNOP 

INDIVISIBLE 

BALR 

BAL 

DC 

L 

LABEL+1: 

L 

LR 

if ONSYSLOG: 
L 

else : 

L 

BALR 

LA 

BALR 

DC 

DC 

DC 


2,4 

CODE (17,10) 

15,0 

14,8 (15) 

A (STATIC) 
12,0 (14) 


9,LABEL 

3,1 


15,N*10' 

1 5 , N 1 11 ' 

14,0 

14,14(14) 

1,15 

X'FL' 

AL3 (OP2) 

XL4'LENGTH OF DSA' 


if indirect library routines in 
compilation 





L 

1,N'5' 

Main ENTRY of MAIN PROCEDURE 


L 

15,N*16' 

(E=0, I 

=d 


BALR 

14,15 

BALR 

15,0 


if N > 0: 


BEGIN 

(BN, LN, OP 1) 


MVC 

PN (4) ,0 (3) * 

NOPR 



MVC 

P (N-1) (4) ,4 (3) * 

BAL 

14,10(15) 


MVC 

P (I) (4) ,4* (N-I) (3) * 

DC 

A (STATIC) 


MVC 

PI (4) ,4* (N-1) (3) * 

L 

12,0(14) 




LR 

9,15 


MVC 

80 (4, 13) , 4*N (3) 

LR 

3,1 







for STATIC 

STORAGE: 

if ONSYSLOG: 


LABEL 


L 

15,N'10' 


DC A of segment origin (LABEL+1) 

else : 



c. Main ENTRY 

of no MAIN PROCEDURE 

L 

15,N* 1 V 


(E=0, 1=0 

or 2) 

BALR 

14,0 


BEGIN 

(BN, LN, OP 1) 

LA 

14,14(14) 


STM 

14,12,12 (13) 

BALR 

1,15 


CNOP 

0,4 

DC 

X'FL' 


INDIVISIBLE CODE (22,12) 

DC 

AL3 (OP2) 


BAL 

14,12 (15) 

DC 

XL4■LENGTH OF DSA * 


DC 

A (STATIC) 




L 

12,0 (14) 

if indirect library routines 

in 

LR 

9,15 

compilation 


LR 

3,1 

L 

1, N * 5' 


L 

15,N*12* 

L 

15,N'16' 


BALR 

14,0 

BALR 

14,15 


LA 

14, 14 (14) 




BALR 

1,15 

if N > 

0 


DC 

X'FL' 

MVC 

PN (4) ,0 (3) 

* 

DC 

AL3 (OP2) 

MVC 

P (N-1) (4) ,4 (3) 

* 

DC 

XL4'LENGTH OF DSA* 

MVC 

P (1) (4) ,4* (N-1) (3) 

* 



MVC 

PI (4) , 4* (N-1) (3) 

* 

if level 1 

, LN= t: 

MVC 

80 (4,13) , 4*N (3) 


L 

11,76 (13) 
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if level 2, LN=2: 

L 1 0,7 6 (13) 

L 11,76 (10) 


Stor e Mul t ipl e 


1. Format of the macro 


if external, 1=2 and indirect 
library routines in compilation 

L 1 , N* 5 1 

L 15,^16* 

BALR 14,15 


( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 

[f 2 Too 1 oT 93 |oPlJoP2"j 

L_X_JL_X_X_J 


2. Generated code 


if N>0: 
MVC 
MVC 
MVC 
MVC 


PN (4) ,0 (3) 

P(N-1) (4), 4 (3) 

P (I) (4) ,4* (N-I) (3) 
PI (4) ,4* (N-1) (3) 


STM R1,R1+1, S2 

OP2 may be indirectly addressed. 


Store Lon g 


80 (4,13) ,4*N (3) 


d. Secondary ENTRY of no MAIN PROCE 
DURE 

(E=1, 1=0, or 2) 

STM 14,12,12(13) 

CNOP 0,4 

INDIVISIBLE CODE (22,12) 

BAL 14,12 (15) 

DC A (STATIC) 

L 12,0 (14) 

LABEL+1: 

L 9,LABEL 

LR 3,1 

L 15,N'12' 

BALR 14,0 

LA 14,14(14) 

BALR 1,15 

DC X'FL' 

DC AL3 (OP2) 

DC XL4'LENGTH OF DSA' 

if level 1, LN=1: 

L 11,76(13) 

if level 2, LN=2: 

L 10,76 (13) 

L 11,76(10) 


1. Format of the macro 


( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 

J" F 2 Tool oj 94 |oPljoP2 1 | 

L_JL_X_X_X_J 


Generated code 


STD R1,S2 

OP2 may be indirectly addressed. 


Move Address 


1. Format of the macro 

(T) (2) (1) (6) (6) 

\F2 Io01ol95 I 0 P 1 J 0 P 2 ] 

L_X_X_X_X_J 


2. Generated code 

r- t- 

| OP1=REGISTER | OPl=STORAGE 

h-+- 

j j LA 5,S2 

j LA R1,S2 | USED REGISTER (0) 

j j ST 5, SI 

L_X_ 


if external, 1=2 and indirect 
library routines in compilation 
L 1,N'5 f 

L '\5,N''\6' 

BALR 14,15 


OP1 and OP2 may be indirectly 
addressed. 


Arra y Expression Begin 


if N > 0: 
MVC 
MVC 
MVC 
MVC 


PN(4) ,0 (3) 

P (N-1) (4) ,4 (3) 

P (I) (4) , 4* (N-I) (3) 
PI (4) ,4* (N-1) <3) 

80 (4,13) ,4*N (3) 


1. Format of the macro 


(D (2) (1) (3) (3) (2) (2) 

r-T-T-T-T-T-T-1 ■ 

|F2 |14 + N*6 j 9 8 j A jLABELj N | M j 

L_X_X_X_X_X_X_J . 


for STATIC STORAGE: 

LABEL DC A of SEGMENT ORIGIN 
(LABEL+1) 


r- t~ 

j OP 11 

i_x. 


"T-1 

| OPN | 
-X_J 


Phases PL/IE50-61 (General) 
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2. Generated code 


2. Generated code 


N < 7: 

STM 

14,4,GW0+80 




LA 

14,SI 


LA 1,S1 


LA 

15,S2 


sr 1,A+B 


LA 

0, S3 




• 



OP1 may be indirectly addressed 


LA 

RX,SN 




STM 

14,RX,A 

Set 

Byte 


LM 

14,4,3W0 + 80 



LA 

4 ,M 

1. 

Format of the macro 

LABEL: 

ST 

4,DSA+ 84 


(D (2) (1) (6) (1) 

N > 7: 

STM 

14,4,GW0+80 


r T T T T 1 


LA 

14,SI 


F2 | 0 00B | 9D OP1 M I 


LA 

15,S2 


II till 


LA 

0, S3 




LA 

1, S4 




LA 

2, S5 

2. 

Generated code 


LA 

3,S6 




LA 

4, S7 




STM 

14,4 ,h 


mi S1,M 


LA 

14,S8 




LA 

15, S9 


OP1 may be indirectly addressed 


LA 

0,S10 




• 

• 


Return Function Value 


• 

LA 

RX, SN 

1 . 

Format of the macro 


STM 

14,RX,A+28 




LM 

14,4,GW0+80 


(1) (2) (D (1) (6) (1) 


LA 

4,M 


r T T -T T T 1 

LABEL: 

ST 

4,DSA+84 


|F2 |000C|A1 | I |OP1j L | 

L _ A A A A A J 

operands (OP1, OP2, ... OPN) may 

indirectly addressed. 

2. 

Generated code 




a. 

1 = 0: 

USED 

REGISTER (5) 

Low 




L 

5, 80 (13) 





MVC 

0 (L, 5) ,S1 





USED 

REGISTER (0) 

1. 

Format of the macro 



L 

13,4 (13) 





LM 

14,12,12 (13) 


(D (2) (1) (6) (1) 



BR 

14 


r T T T T 1 






j F2 |000B|9A jOPlj N| 

b. 

1 = 1: 

USED 

REGISTER (5) 


f— 

1 

1 

1 

h 

1 

1 

1 

1 

h 

1 

1 

1 

H 

1 

1 

1 

h 

1 

1 

1 



L 

5,80 (11) 





MVC 

o (L,5) ,S1 

2. 

Generated code 



USED 

REGISTER (0) 





LR 

13, 11 


a. N=0: MVI OP1,X'00‘ 



L 

13,4 (13) 





LM 

14,12,12 (13) 


b. N>0: MVI OP1,X'00' 



BR 

14 


MVC OP1 + 1 (N) , OP 1 

c. 

1 = 2: 

USED 

REGISTER (0) 


OP1 may be indirectly addressed. 



L 

5,80 (10) 





MVC 

0 (L, 5) ,S1 





USED 

REGISTER (0) 

Load Variable 



LR 

13,10 





L 

13,4 (13) 

1. 

Format of the macro 



LM 

14,12,12 (13) 





BR 

14 


(1) (2) (1) (6) (2) (2) 






r *~T “ T - T~ T ~T- 1 

d. 

1=3: 

same 

as I = 0. 


r - T - T - T - T - T --j a. ±=j: same as i = u, 

| F2 |000E|9C |0P1| A | B | 

l -x-x-x-x-x- j OP 1 may be indirectly addressed 
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Ov erlay 

1. Format of the macro 


Array Expression End 
1. Format of the macro 


(D (2) (1) (6) (1) 


[f2 ^OOObIa^ joPI 


l-X_JL_X 


T-1 

I L | 


x_j 


(1) (2) (1) (3) (3) (2) (2) 

f - T - T - t-T-T-T-1 

|F2 j 14 + N*2 j A8 j A |LABEL|N | M | 

L_X-X_X_X_X_X_J 


2. Generated code 



(2) (2) (2) 

(2) 

a. L<8: MVI GW0,X'40’ 

r- t i “ 

T-1 

MVC GWO+1 (7) , GWO 

|Cl |C2 | 

1 CN | 

MVC GWO (L) ,S1 

L X X - 

.X_J 

SR 0,0 



LA 1, GWO 

2. Generated code 


SVC 4 




a. N < 7: STM 

14,4,GW0+80 

b. L>8: MVC SW0(L),S1 

LM 

14,4,A 

SR 0,0 

LA 

14,Cl (14) 

LA 1,GW0 

LA 

15, C2 (15) 

SVC 4 

LA 

0,C3 (0) 


A 

0, A+8 

OP1 may be indirectly addressed. 

LA 

1, C4 

Load 

• 


1. Format of the macro 

LA 

RX, CN 


STM 

1 4 , RX,A 

(D (2) (1) (6) (6) 

LM 

14,4,GW0+80 

r • T-T “ T T 1 

OPT 

(LABEL) 

|F2 |0010|A3 |OP1|OP2| 

BCT 

4,LABEL 

LX X X J— J 




b. N > 7: STM 

14,4GW0+80 

2. Generated code 

LM 

14,4,A 


LA 

14,Cl (14) 

L R1,S2 

LA 

15,C2 (15) 


LA 

0, C3 (0) 

OP2 may be indirectly addressed. 

A 

0, A+8 


LA 

1, C4 (1) 

Load Short 

LA 

2, C5 (2) 


LA 

3 ,C6 (3) 

1. Format of the macro 

LA 

4»C7 (4) 


STM 

14,4,A 

(D (2) (1) (6) (6) 

LM 

14,4,A+2 8 

1 T *r~ T T 1 

LA 

14,C8 (14) 

|F2 |0010|A4 |OP1|OP2| 

LA 

15,C9 (15) 

L _ X — X X— X_ J 

LA 

0,C10 (0) 


A 

0,A+36 

2. Generated code 

LA 

1, Cl 1 (1) 

LE R1, S2 

• 


OP2 may be indirectly addressed. 

LA 

RX, CN (RX) 


STM 

14,RX,A+28 

Move Immediate 

LM 

14,4,GW0+80 


OPT 

(LABEL) 


BCT 

4,LABEL 


0) (2) (1) (6) (1) 


f - T - T -r-T-1 

j F2 |000B j A5 |OP 1|M j Repeat 

L-X_X_X-X-J 


2. Generated code 
MVI S1, M 

OP1 may be indirectly addressed. 


Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) ( 1 ) ( 1 ) 
r-T-T-T-T-T-T- 1 

1F2 |0 012|AA |OP1 |0P2|L |I | 

L_X_X_X_X_X_X_J 
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2. Generated code 

MVC SI (L) , S2 

me S1+L (I*L) , S1 

0P1 and 0P2 may be indirectly 
addressed. 

Load DE D 

1. Format of the macro 

(1) (2) (1) (6) 

r-T-T-T-1 

|F2 |000A|AC I OP1 I 
l _x_x_x_j 

2. Generated code 

LA 2 r S1 

OP1 may be indirectly addressed 
Load Scalar 


2. Generated code 

L 15,SI 

LR 0 r RS 

BALR 14,15 

or if AT indicates a parameter 

L 5, SI 

LM 15,0,0 (5) 

BALR 14,15 

RS depends on X and Y as follows 


r 

1 

—T* 
1 

x=o 

■T‘ 

1 

X=1 

"T* 

1 

X l 
II l 
to 1 

I-- 

| if=1 

1 

RS=0 

1 

RS=13 

1 

RS=0 

(.- 

\Y=2 

-+- 

1 

RS=0 

1 

R6=11 

1 

RS=13 

(■- 

j If=3 

1 

RS=0 

-+- 

1 

RS=11 

1 

RS=1 0 

L _ 

_X. 


-X- 


_x_ 



Set True on Condition 


1. Format of the macro 

0) (2) (1) (6) 

r-T-T-T-1 

j F2 |00 0A|AD |0Plj 
L-X_X_X_J 


2. Generated code 

LA 1,S1 

BALR 14,15 

OP1 may be indirectly addressed. 
L oad Array 

1. Format of the macro 


1. Format of the macro 

(1) (2) (1) (1) (6) (2) 
f - T - T -r-T-T-“1 

|F2 j 000E j B1 j C j OP1 |LABEL| 

L_X_X_X_X-X___J 

2. Generated code 

mi si^'SO' 

OPT (LABEL) 

BC C,LABEL 

mi si,x f oo' 

LA. BEL 

OP1 may be indirectly addressed. 


(D (2) (1) (6) (2) (2) (2) 

r-T-T-T-T-T-T-1 

j F2 j0010|AE j OP 1| A j B jLABEL| 

L_X_X_X_X_X_X_J 

2. Generated code 

LA 3 < B 

LA 0, A 

LA 1, S1 

LABEL BALR 14,15 

AR 1,0 

OPT (LABEL) 

BCT 3,LABEL 

OP1 may be indirectly addressed. 

Call_i3L 


Load Multiple 

1. Format of the macro 

(1) (2) (1) (6) (6) 
r - T -- T - T -T-1 

j F2 |0010 j B3 j OP1j OP2 j 

L_X_X_X_X_J 

2. Generated code 

LM R1 , R1 + 1, S2 

OP2 may be indirectly addressed 

Load Long 


1. Format of the macro 


Format of the macro 


( 1 ) ( 2 ) ( 1 ) ( 3 ) ( 1 ) ( 1 ) ( 1 ) 

r - T - T -r-T-T-T- 1 

j F2 j 0 0 0A|B 0 j S1 j X j Y |AT j 
l- x-x-x-x_x_x _J 


(1) (2) (1) (6) (6) 

| F2 | 0010lB4 |OP1 |OP2| 

L-X-X-X-X-J 
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2. Generated code 


LD R1,S2 

0P2 may be indirectly addressed 


Mo ve Ch aracter 


1• Format of the macro 


0 ) ( 2 ) ( 1 ) ( 6 ) ( 6 ) 

[f2 To01()Ib 5 IoPlIoP2] 

L-JL_ X _ X _ X _J 


2. Generated code 


a. 0P2 = REGISTER: 
STC R2,S1 


b. 0P2 = STORAGE: 

MVC SI (1) ,S2 + 3 

0P1 and 0P2 may be indirectly 
addressed. 

Or Immediate 


1. Format of the macro 


( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 1 ) 
f - T - T - t-T-1 

j F2 j 0 0 OB|B6 joPlj M j 

L— -X- X - X - X -J 


2. Generated code 


01 S1, M 

0P1 may be indirectly addressed 
M ultiply Halfword 
1. Format of the macro 


( 1 ) ( 2 ) ( 1 ) ( 6 ) ( 1 ) 
j*F2 J000 bJb8 TopiT R ] 

L_ X _ X _ X - X _J 


2. Generated code 
MH R,0P1 

OP 1 may be indirectly addressed. 


Call L ibrary Routine 

1. Format of the macro 

(1) (2) (1) (3) 

r-T-T-T-1 

j F2 j0007I BA jNAME! 

L- X --L— X -J 


2. Generated code 

L 15,NAME 

BALR 14,15 

Loop Begin 

1. Format of the macro 

(1) (2) (1) (6) (6) (2) (2) 

f - T - T - t-T-T-T-1 

j F 2 j 0 014|BC j OP1j OP2| N |LABEL| 

L _ X _ X _ X _ X _ -L - X _ J 


2. Generated code 

LA 3 r N 

LA 4,S1 

LABEL ST 4 , S2 

0P1 and OP2 may be indirectly 
addressed. 

Loop E nd 

1. Format of the macro 

( 1 ) ( 2 ) ( 1 ) ( 2 ) ( 2 ) 

r - T - T -r-T-1 

j F2 |0008jBD j L j LABELj 

L _ X _ X _ X _ X _ J 


2. Generated code 

LA 4,L(4) 
OPT (LABEL) 
BCT 3,LABEL 


Phases PL/IE50-61 (General) 
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PH ASE PL/IE50 (CODE GENERATION I) — TA 


Generally, the generation code from the 
macros can be made using the same algorithm 
for different macros. There are only a few 
macros which require special handling. 

These special macros are processed in the 
first generator phase. 


The individual routines are shown in 
flow charts TD - TT. Table MATAB showing 
the macro key, the routine name, and the 
corresponding flow chart, is given in Fig¬ 
ure 1. The code generated by each of the 
routines is described in the section The 
Macros and the Generated Code. 


Further objectives of the first phase are: 




1 Macro 1 Routine Name 

| Flow 



1 R ey 

| (W=routine address) 

j Chart 

1. 

To translate the macro key and the 

f- 

+- 

~+- 


macro code to a key and an address in 

|X'10' 

|decimal ADDITION 

j TH 


the model instruction dictionary. 

| X' IV 

SUBTRACTION 

| TH 



| X ' 1 2 ' 

( MULTIPLICATION 

| TH 

2. 

To build a table giving the passes 

|X•13' 

j DIVISION 

| TJ 


needed in the second phase. 

j X 1 14 ' 

j NEGATION (1 oprnd.) 

| TK 



|X'15' 

j ASSIGNMENT 

| TL 

3. 

To change the text string, the state¬ 

| X' 1 6 ' 

j NEGATION (2 oprnds 

.) | TK 


ment identifiers, the attribute tables 

| X ' 1 8' 

j COMPARISON 

| TH 


for declared variables, and the END OF 

|X* 50' 

|conversion CV30 

j TM 


STATEMENT'S are eliminated from the 

|X'56' 

[conversion CV38 

| TN 


text string. 

|X'90' 

| CALL 

| TR 



|X'92 ' 

| PROLOGUE 

| TD 

4. 

To generate code that is independent of 

|X'98' 

|ARray Expression HEader 

| TP 


the macros. The first instructions of 

|X'A8' 

|ARray Expression ENd 

1 tq 


the text string must be the address 

|X'AA' 

| REPEAT 

| TO 


constants for storage blocks. 

|X'BO' 

L 

| CALL (3) 

x _ 

| TR 

_ X 


L'4 ' 

DC 

AL2 

(0) 

= 

0 



DC 

AL2 

(4096) 

= 

4K 

Figure 1. Macro Keys and Corresponding 


DC 

AL2 

(8192) 

= 

8K 

Processing Routines (MATAB) 


DC 

AL2 

(12288) 

= 

12K 



DC 

AL2 

(16348) 

= 

16K 



DC 

AL2 

(18396) 

= 

18K 

SHIFT — TG 


DC 

AL2 

(20480) 

= 

20K 



DC 

AL2 

(22528) 

= 

20K 

This is a subroutine used by the decimal 


DC 

AL2 

(24576) 

= 

2 4K 

arithmetic macros. For details refer to 


DC 

AL2 

(26624) 

= 

26K 

the section The Macros and the Generated 


DC 

AL2 

(28672) 

= 

28K 

Code. 


DC 

AL2 

(30720) 

= 

30K 


L' 6 ' 

DC 

AL2 

(0) 





DC 

AL2 

(0) 



LAREG — TS 







This is a submacro used by the routines 







AREXHE and CALL. It causes the generation 







of a sequence of "LA REG,OP" instructions. 

DESCRIPTION OF ROUTINES 





N ote: The routines HUI and HUE are des¬ 

cribed in phase E60. 

After initialization, filling of the buf¬ 
fers, and the generation of the address 
constants for the storage blocks (OK, 4K, 
8K, etc.) , the text is scanned for macros. 
Each macro key detected is translated into 
an address W and an integer Z. If Z = 0, 
i.e., if the macro is to be processed in 
this phase, W gives the address of the 
routine that determines the code to be 
generated. 


HEINS 

This routine is used for inserting operands 
in a fixed set of code and moving this code 
onto the text output medium. The code to 
be generated is also given in the flow 
charts. 


HMOCO 
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PHASE P L/IE60/ 61_(CODE GEN E RATION II) -- UA, UB 


Most of the macros are processed in the 
second generator phase. Therefore, the 
phase may make multiple passes over the 
text string and include multiple changes of 
the model-instruction dictionary. In the 
first generator phase, the needed passes of 
the second generator phase are determined 
and noted in a table. Only the phase over¬ 
lays given by this table are used in the 
second generator phase. 

Phase E60 processes only those macros 
that allow a single algorithm for handling 
indirect addressing, code generation, and 
inserting of the operands. 

The needed code is determined by the 
work done on the macro-definition header. 

If a set of code is determined, a branch is 
made from the macro-definition header to a 
model-instruction set. The model- 
instruction set gives the information for 
inserting the operand and for the treatment 
of indirect addressing. 

The algorithm for the second generator 
phase may be separated into several parts: 

1. Determination of the phase overlays.0 
The phase overlays (phase E61) contain 
parts of the model-instruction 
dictionary. These phase overlays may 
not all be necessary. In the first 
generator phase the needed parts of the 
model-instruction dictionary are noted 
in a table. The table is used for the 
determination of the phase overlays. 

2. Scan of text string. 

The number of different elements is 
reduced in the first generator phase. 

In the second generator phase, the text 
string may consist of: 


a. 

Macros 


b. 

Code 


c. 

Variable 

tables 

d. 

Constant 

tables 

DESCRIPTION OF ROUTINES 


S ymbol s Us e d in Flow Ch art s 
X : input pointer 

I : output pointer 

S : buffer index 

B (S) : start address of buffer (S) 

L : length of text element 

RC : condition code set by the machine 

R : register used for indirect addressing 


HDETER — UC, UP 

After a macro is detected, it must be det¬ 
ermined whether the macro can be generated 
in the current pass or not. If the macro 
can be generated, the code required for the 
macro is determined by the work done on the 
macro-definition header. The macro¬ 
definition header consists of instructions, 
(described in the section The Macro 
Defi ni tion He ader) giving information for 
selecting model-instruction sets. The code 
generated for one macro may consist of more 
than one model-instruction set. 

INSER T — UE, UF 

A model-instruction set determined by the 
macro definition header contains no com¬ 
plete code. Some operands of the instruc¬ 
tions must be taken over from the operand 
list of the macro. The information for 
this process is given in the model- 
instruction set, too. After inserting the 
operands, the generation is continued in 
the macro-definition header. 

HOPE — UG 

Secondary entry point: HOPEI 

This routine is used for moving the 
operands depending on the three parameters 
P, M, and LM. For details on these 
parameters refer to the section Model 
Inst ru ction Sets . The routine HINAD is 
called for operands that refer to variables 
or constants. 

HINDAD — UH 

A requirement for the use of indirect 
addressing is indicated in byte 6 of the 
corresponding operand. The significant 
bits of this byte are: 

Bit 1: 1 = CONTROLLED 

Bit 3: 1 = EXTERNAL 0 = INTERNAL 

Bit 5: 1 = PARAMETER (formal) 

If an operand OPX is controlled by B 
(OPX CONTROLLED (B) ) , OPX is replaced by B. 
The corresponding byte (6) is also changed; 
however, bit 1 is not changed. 

Code U sed with Indirect Addressing 

Suppose that in the code there appears an 
instruction A WR,OPX where OPX requires 
indirect addressing. The code which repla¬ 
ces the above instruction is shown in Fig¬ 
ure 1. 


Phases PL/IE60-61 
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T" 

I 

-+- 


j OPX= 

h 


CODE 


h 


PARAMETER 


L REG, OPX 

A WR, 0 (REG) 


EXTERNAL 


I- 


L REG, AOP 

A WR, 0 (REG) 


AOP DC A (OPX) 


CONTROLLED (B) 


f- 


L REG, B 

A WR, 0 (REG) 


CONTROLLED (B) 
and B = 
PARAMETER 


h 


L REG, OPX 

L REG, 0 (REG) 

A WR, 0 (REG) 


CONTROLLED (B) 
and B = 
EXTERNAL 


L 

L 

A 


AOP DC 


h 


REG, AOP 
REG, 0 (REG) 
WR, 0 (REG) 


(B-1) 


Note: The following cases are invalid: 

OPX = PARAMETER and EXTERNAL 
= EXTERNAL and PARAMETER 
= PARAMETER and CONTROLLED 
= CONTROLLED (B) where B 
itself is CONTROLLED 


Figure 1• Code Used with Indirect Address¬ 
ing 


HUES : used for skipping in the input 
text. 

HUEI : used for moving from input buffers 
to any location except output buf¬ 
fer. 

HUEO : used for moving from any location 
except the input buffers into the 
putput buffer. 

HUEIO :used for moving from the input 
buffers into the output buffer. 

The following parameters are used: 

X =FROM address 

Y =TO address 

L =length of text to be moved or 

skipped 

B (S) or BS = index of buffer being used 

BUFL = length of buffers 


HMOVE -- UL 


This routine is called by HUE for moving L 
bytes of information from address X to 
address Y. L may be greater than 256 
bytes. 


MASURO 

At this point, control is transferred to 
the address contained in the address con¬ 
stant. For details, refer to General Des¬ 
cript i on of the Generator Phases , under 
Operations , macro subroutine. 

The routines branched to handle all 
cases that occur rarely and are not handled 
by operations and instructions contained in 
the model instruction set. 


H UE — UJ, UK 

The routine has four entry points: 


LOAD 

This is a supervisor macro, which is used 
in this phase. 
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PL/IF2 5 (SORTING CONSTANTS AND VARIABLES) — W9 


This phase performs the functions discussed 
in the subsequent paragraphs. For further 
details refer to Descri pti o n of R outines 
below. 

Text Scan. The text-input string is 
scanned for constants and generated varia¬ 
bles. When constants or generated varia¬ 
bles are found, they are written onto a 
work file as the prestatement table PRETAB. 
Assembler instructions are written onto the 
text-output file TXTOUT. 

PRETAB Sc an. PRETAB is scanned for gener¬ 
ated variables. These variables are con¬ 
verted to entries for DSTAB. A DSTAB entry 
contains the following information: 

Byte (s ) Conten ts 

0-1 Internal name of the variable. 

2-3 Length of the variable during object 

time. 

4 Block and level number 

5 Attributes as follows: 

Bi t In dic ation 
0 0 = AUTOMATIC 

1 = STATIC 

1-3 000 = Scalar variable 

001 = STRUCTURE 
010 = ARRAY 
100 = Pointer 
111 = Parameter 

4-7 Left-hang bits if STRUCTURE 

DSTAB entries are written on TXTOUT as 
the output buffer is filled. 

Any constants in PRETAB are written on 
the text input file (TXTIN) following the 
assembler instructions. 

SYMTAB Scan . (For generation of the symbol 
table, refer to phase B20.) SYMTAB is 
scanned for variables for which STATIC or 
AUTOMATIC storage is to be allocated. 

These variables are converted to DSTAB 
entries as described above and written on 
TXTOUT. 

DSTAB entries for the abovementioned 
variables are also written, as table DSTAB, 
on the work file. 


Sorting Constants. The constants written 
on TXTIN during the PRETAB scan are sorted 
in the following order: 

1. Constants or address constants that are 
not optimizable. 

2. Optimizable address constants. 

3. Optimizable 8-byte constants. 

4. Optimizable 4-byte constants. 

5. Optimizable 2-byte constants. 

6. Other optimizable constants. 

The sorting of constants is accomplished 
by 6 scans through the unsorted constants 
on TXTIN. The first scan is for constants 
and address constants which cannot be 
optimized. Any such constants are written 
on the work file. 

The second scan is for optimizable 
address constants, and these constants are 
written on the work file. This procedure 
is continued for the remaining types of 
constants as shown above. At the end of 
the sixth scan, all constants are written 
on the work file in the abovementioned 
order. 


Phase Input and Output 

The input for this phase is a text string 
containing Assembler code, constants, and 
generated variables. 


Assembler Instructions. The format of 
these instructions is as follows: 

f - T - T - 

|Key |Length of following|One or more 
jx’FG'|instructions + 3 [Assembler 
I | |instructions 

l _l_j._ 


Generated Variables. These entries have a 
fixed length of eight bytes and appear in 
the text string in a format as follows: 


Phase PL/IF25 
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r- t-t- 

| Key |Length of following|One or more 
jX•FO•|entries + 3 j8-byte entries 

L-X-X_ 

Each entry contains the following infor¬ 
mation: 

By te (s ) Contents 

0-1 Internal representation of the name. 
2 


6-7 


1 = 

1 = 

00 = 
01 = 

10 = 

11 = 


V-type constants of a 
length of three bytes 
word boundary if not 
optimizable, 
not used 

A-type DC for label 
assignment 

A-type DC for an entry 
point 

double-word boundary if 
not optimizable 


Bit 

Indication 


3-4 

Length of constant (if an address 






constant, the length must be four 

0-3 

Reserved. 



bytes) . 

4-7 

Internal length 

of the varia- 

5-n 

Internal representation of constant 


ble, 




or, if an address constant, name and 

0 

0 = 

AUTOMATIC 



modifier. 


1 = 

STATIC 




1 

not 

used 


Symbol Table SYMTAB. The entries of this 

2 

1 = 

POINTER 


table have a fixed length of 20 bytes each. 

3-5 

not 

used 


For 

further information about table SYMTAB 

6 

1 = 

DELETE 


see 

the description of the generation of 

7 

1 = 

CONSTANT 0 = 

= VARIABLE 

the 

table in the preceding phases. 

0-4 

not 

used 




5 

1 = 

LABEL 


Output of the Phase: 

6-7 

not 

used 




0-2 

not 

used 


1. 

A text string on TXTIN containing 

3 

1 = 

string data 



Assembler code only. 

4 

1 = 

BIT string 





0 = 

CHARACTER string 

2. 

Table DSTAB on a work file. This table 

5 

1 = 

FIXED 



contains generated and declared varia¬ 


0 = 

FLOAT 



bles, for which STATIC or AUTOMATIC 

6 

1 = 

BINARY 



storage is to be allocated. 


0 = 

DECIMAL 




7 

not 

used 


3. 

Constant table CONTAB on the work file. 


If character-string type data: 
length of string. 

0-1 block level 

2-7 block number 


This table contains the constants in 
sorted order. 

DESCRIPTION OF ROUTINES 


Constan ts. Constants that are to be allo¬ 
cated storage in STATIC storage during 
object time appear in the following format: 


f - T ---T- 

|Key |Length of following|One or more 
jX'F3'jconstants + 3 |constants 

L_X_X__ 


Each constant has the following format: 


Byte (s) Contents 

0-1 Internal name of the constant 

2 Attributes as follows: 


Bit 

Indication 

0-1 

00 

= 

X-type DC 


01 

= 

A-type DC 


10 

= 

V-type DC 


11 

= 

AL3-type DC 

2-3 

00 

= 

Optimizable 


01 

= 

To be deleted 


10 


Not optimizable, but 
containing block is 
optimizable 


11 

= 

Not to be deleted. 


Symbo l s used in flow charts : 


INPT : 
INPO : 
BUFFL : 
BULE : 
EOP : 
OPT1 : 
0PT2 : 
REC : 

RECLE : 
COMPL : 
RECN : 
LENGTH: 
DSTA : 


input pointer for text 

input pointer for text 

buffer length 

buffer length 

end of program 

output pointer for text 

output pointer for text 

number of records required from 

text input 

record length 

length of available input area 
record counter for DSTAB 
length of variable 
buffer for DSTAB entry 


Text Scan — XA through XF 

The text string to be scanned contains 

1. Assembler code (key = X'F6'), 

2. generated variables (key = X*F0') , 

3. constants (key = X , F3') , and 

4. end-of-program key X'FF*. 
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Each key, except the end-of-program key, 
is followed by 2 bytes containing the skip¬ 
pable length. When the text scan is com¬ 
pleted, a text string containing Assembler 
code, excluding keys and skippable length 
indications, on TXTOUT and the table PRETAB 
on the work file are provided for further 
processing. 

The text string is consecutively read 
into input buffers BUFFI and BUFF2 and 
processed as follows: 

1. Assembler instructions (key X'F6' and 
no skippable length) are moved into 
0BUF1 and written on TXTOUT. 

2. A constant or a generated variable 
causes the program to branch to the 
subroutine CONVAR. This routine moves 
the string of constants (or generated 
variables) into 0BUF2 and writes them 
on the work file as table PRETAB. 

3. When the end-of-program key is encoun¬ 
tered, the records in 0BUF1 and 0BUF2 
are written out and control is passed 
to the routines that cause the table 
PRETAB to be scanned. 

INITIAL 1 — XB 

This subroutine sets the input and output 
pointers (INPT, OPTl, and 0PT2 to 0 and 
calculates the buffer addresses. 

TXTIN — X C 

This subroutine reads text from TXTIN into 
the input buffers as determined by paramet¬ 
er REC. 

W AIT1 — XC 

This subroutine tests whether or not the 
next text record is ready for processing. 

If not, the subroutine loops until the I/O 
instruction is completely executed. 

AS SCODE — XD 

This subroutine causes Assembler code, 
excluding the key X'F6' and the skippable- 
length value to be moved into 0BUF1. 

If 0BUF1 are full, its contents is 
written on TXTOUT, output pointer OPTl is 
reset to zero, and Assembler code is moved 
into the next buffer. If 0BUF1 is not 
full, the routine only increases OPTl by 
the length of the Assembler code moved into 
the buffer. 

OU TASS — X D 

This subroutine writes the contents of 
QBUF1 on TXTOUT. 0BUF1 contains Assembler 
code. OPTl is reset to 0. 


CONVAR — XE 
Entry point: PRET. 

This subroutine controls the writing of 
constants and of generated variables on a 
work file. If the length of the string to 
be written exceeds the length of the input 
buffer, the string is written out in sec¬ 
tions. 

PRET -- X F 

This subroutine causes the constants or 
generated variables to be moved from the 
input buffers into OBUF2• If the length of 
the constants (or variable) string to be 
moved exceeds the length of OBUF2, the 
string must be written out in sections. 

Constants or variables are moved into 
OBUF2 until this output buffer is full. 

The output buffer is then written onto the 
work file. 

PUTPRE — XF 

This subroutine writes the contents of 
OBUF2 on the work file and resets OPT2 to 

0 . 

SKIPI N — XG 

This subroutine increases INPT by the skip¬ 
pable length. If necessary, read-in of the 
next record into input buffer 2 is initiat¬ 
ed. 

PRETAB Scan — XH through XO 

The data contained in PRETAB (on a work 
file) is scanned. This data consists of 
constants and generated variables. The 
format of the PRETAB entries is the same as 
described for constants and general varia¬ 
bles under Phase Input and Output) . 

The End-of-PRETAB key is X’FF'. 

When the PRETAB scan is completed, one 
6-byte DSTAB entry is provided for each 
entry in PRETAB. In addition, all con¬ 
stants are written (unsorted) on TXTIN 
following the program string. 

The data contained in PRETAB is consecu¬ 
tively read from the work file into the 
input buffers. Each generated variable is 
converted to a 6-byte DSTAB entry by the 
subroutine GENVAR and written on TXTOUT. 
Constants are written on TXTIN. When the 
End-of-PRETAB key is encountered, control 
is transferred to the routines that scan 
SYMTAB. 

INITIAL2 -- X I 

This subroutine calculates the addresses 
for the input and output buffers. The 
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input and output pointers are set to 0 and 
the parameters for the input and output 
routines are set to their initial values. 

G ETPRE — XJ 

This subroutine reads PRETAB from the work 
file into the input buffers as determined 
by parameter REC. 

W AIT2 — XJ 

This subroutine controls the processing of 
input buffer BUFFI and loops until the I/O 
operation to fill buffer BUFF2 is complet¬ 
ed . 

GENVAR — XK 

This subroutine converts the entry for the 
generated variable in PRETAB to a 6-byte 
DSTAB entry. 

RT EST IN — XL 

This subroutine determines if the next 
PRETAB record is to be read or if a waiting 
loop is to be entered to wait for the com¬ 
pletion of the preceding I/O instruction. 

OP T — XM 

This subroutine causes the DSTAB entry for 
the variable to be moved into the output 
buffer area and 0PT1 to be increased by 6. 
If 0PT1 is greater than the buffer length, 
subroutine DSPUT is called. 

DSPUT — X M 

This subroutine causes the contents of 
0BUF1 to be written on TXTOUT. The con¬ 
tents of 0BUF2 are moved to 0BUF1. 0PT1 is 
updated. 

CO NSTA — X N 

This subroutine controls the writing of the 
constants on TXTIN. 

O UT — XN 

The subroutine causes the constants to be 
moved from the input area to the output 
buffer area. Additional control functions 
are required for strings greater than the 
buffer area. 

P UTCO — XO 

This subroutine causes the contents of the 
output buffer which contains constants to 
be written on TXTIN. 

SK IPRE — X O 

Input pointer INPT is increased by buffer 
length and set to the next key in PRETAB. 


PRET E ND -- XO 

The end key X'FFF' of the constant table is 
moved into the output buffer and the last 
record of constants is written on TXTIN. 


SYMTAB Scan — XP through XY 

Symbol table SYMTAB is consecutively read 

into input buffers BUFFI and BUFF2 and 

processed as follows: 

1. Variables, for which no storage will be 
allocated in STATIC or AUTOMATIC stor¬ 
age, are skipped. 

2. Variables for which storage must be 
allocated cause the following informa¬ 
tion to be moved into the output buf¬ 
fer: 

a. Internal name of the variable. 

This name is contained in bytes 2 
and 3 of the SYMTAB entry. 

b. Length of the variable. In case of 
a character string, the length is 
contained in byte 8. Otherwise in 
byte 4 (bits 4 through 7) . For 
structures, the length is contained 
in bytes 12 and 13. For arrays, 
the length of the array element 
must be multiplied by the number of 
array elements. 

c. Block and level number. 

d. Special attributes required during 
storage allocation. 

3. If an end-of-block key is encountered, 
a new record must be read because the 
next SYMTAB entry is in the new record. 

4. When the end key of SYMTAB is encoun¬ 
tered, the TXTOUT tape is rewound and 
the 6-byte entries are read into BUFFI 
and written on the work file as table 
DSTAB. 


INITIAL3 — XQ 

This subroutine causes the parameters 
required to perform the SYMTAB scan to be 
set to their initial values. 

GETSY M -- XQ 

This subroutine causes SYMTAB to be read 
into the input buffers as determined by 
parameter REC. 

INCR -- XQ 

Input pointer INPT is increased by the 
length of the SYMTAB entry. If the value 
of INPT exceeds the buffer length, the 
contents of BUFF2 are moved to BUFFI and 
the next SYMTAB record is read. 
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ALLOC — XR 


The subroutine tests the SYMTAB entry. If 
it is a variable for which storage must be 
allocated in STATIC or AUTOMATIC storage, 
the subroutine ALLVAR is called. Other¬ 
wise , the entry is skipped. 


AL LVAR — X S 


This subroutine generates a DSTAB entry for 
the variables in SYMTAB that require stor¬ 
age to be allocated. For the information 
contained in a DSTAB entry, refer to the 
introductory paragraphs of this section. 


DSEND — XT 


This subroutine causes (1) the end-of-DSTAB 
key (X'FFFF') to be moved into the output 
buffer and (2) the last DSTAB record to be 
written on TXTOUT. 

PUTNV — XT 


This subroutine reads DSTAB from TXTOUT 
into the input buffer and causes the 
entries to be written out on the work file. 

Sorting Consta n ts — XU th rough XY 


All constants that are included in the text 
string from TXTIN are sorted in the order 
described in the introductory paragraphs of 
this section. For the format of the con¬ 
tents and the type of information they 
contain, refer to Phase In put a nd O utput. 
The overall functions for the sorting of 
constants are as follows: 

1. The TXTIN tape is rewound and the table 
of constants is scanned for constants 
that cannot be optimized and for 
address constants. The constants are 
read consecutively from TXTIN into 
BUFFI and BUFF2; the attribute byte is 
tested and, if the constant cannot be 
optimized, moved into the output buffer 

(see subroutine OUTPUT) from which 
blocks of sorted constants are written 
on the work file. If the attribute 
byte indicates that the constant can be 
optimized, control is transferred to 
the subroutine SKIP in order to skip 
the constant by increasing the value of 
INPT accordingly. 

2. When the end-of-constant key is encoun¬ 
tered, the TXTIN tape is rewound and 
the table of constants is scanned for 
optimizable address constants. 


3. This procedure of rewinding the 

TXTIN tape and scanning the table of 
constants for a specific type of con¬ 
stants is repeated until all constants 
have been written on the work file in 
the desired order. 

Flow charts XU and XV show the main 
functions to be performed to properly sort 
the constants. 


INITI A L4 - - XW 

This subroutine causes (1) the buffer 
addresses to be calculated and (2) the 
parameters required to write out the sorted 
constants on the work file to be set to 
their initial values. 


GETIN — XW 

This subroutine causes (1) the TXTIN tape 
to be rewound to the beginning of the first 
constant by means of a POINT macro and (2) 
the subroutine GECON to be called. 


GECON -- XW 

The input buffers are filled as determined 
by the value of REC. 


ouTPu r — xx 

This subroutine tests the constant to 
determine if the DELETE bit is set. If 
this bit is set, the constant is skipped. 

If the delete bit is not set, the subrou¬ 
tine causes the constant to be moved into 
the output buffer and 0PT1 to be increased 
by the length of the constant. If the 
value of 0PT1 is greater than the buffer 
length, the contents of the output buffer 
are written out on the work file. 

COUT - - X X 

This subroutine writes the contents of the 
output buffers on the work output buffers 
to be written on the work file. 

SKIP - - XY 

INPT is increased by the length of the 
constant. If its value is greater than the 
buffer length, the next record is read from 
TXTIN. 

CONEND — XY 

The end key for the constant table CONTAB 
is moved into the output buffer and the 
records in the output buffer that have not 
yet been written out are written on the 
work file. 


Phase PL/IF25 
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PHASE PL/ I F35 (OPTIMIZATION OF CONSTANTS) — YA 


Daring phase PL/I F25, the constants were 
sorted into the table CONTAB in this order: 

1. Constants and address constants that 
are not optimizable. 

2. Optimizable address constants. 

3. Optimizable 8-byte constants. 


All equate entries that have been gener¬ 
ated are read from TXTOUT into the input 
buffers and written as table CONEQU on the 
work file. 

Those constants which were written out 
on TXT IN are (1) read into the input buf¬ 
fers , (2) moved into the output buffers if 

they do not have a DELETE bit, and (3) 
written on the work file as new constant 
table CONTAB. 


4. Optimizable 4-byte constants. 


Phase Input and Output 


5. Optimizable 2-byte constants. 

6. Other optimizable constants. 

Constants that are not optimizable are 
allocated storage in the order as they are 
written in the table. 

Constants are compared for identity. If 
two constants are equal, storage is allo¬ 
cated only to one constant and an equate 
entry is made for the other. An equate 
entry has following format: 


B yte (s ) Contents 


0-1 Name of equated constant. 

2-3 Name of based constant (storage 

allocated) . 

4-5 Modifier of based constant. 

The modifier indicates an offset as 

shown by the example below: 

Constant (A): DC C* ABCDEFGH* 

Constant (B) : DC C'EFGH' 

Constant B is contained in constant A. 

In this case, constant B is flagged by the 
DELETE bit and an equate entry B EQU A+4 is 
generated. 

The constants are read from the work 
file into the table space. If the con¬ 
stants do not fit into the table space, the 
constants are optimized only within the 
limits of this area. 

The equate entries are moved into the 
output buffers and are written on TXTOUT. 
After all constants contained in the table 
area have been tested for identity, these 
constants are written on TXTIN following 
the program string. The next part of CON¬ 
TAB is read into the table space and proc¬ 
essed as described above. This procedure 
is repeated until the end of CONTAB is 
reached. 


The input for this phase are the constants 
contained in the table CONTAB on the work 
file. These constants are sorted in the 
order as described in phase F25. 

The output consists of the following: 

1. Equate table CONEQU on the work file. 
This table contains 6-byte entries as 
follows: 

Byte ( s) Contents 

0-1 Name of equated constant. 

2-3 Name of based constant (for 

which storage is allocated) . 

4-5 Modifier of based constant. 

2. Constant table CONTAB on the work file 
containing only those constants for 
which storage must be allocated. The 
format of the constants in this new 
CONTAB is the same as for the constants 
in the input table CONSTA. 


STORAGE AREAS 


The subsequent paragraphs describe the 
storage areas used during this phase. Fig¬ 
ure 1 shows the layout of these areas. The 
following symbols are used: 


TS Begin-address of table-space area 
TS1 TS + one buffer-length 
BUFFI Begin-address of buffer area 
TS8 TS + 12 buffer-lengths 
TSE TS + 13 buffer-lengths (end of 
table-space area 

OBUF1 Begin-address of first of two 
output buffers (same as TSE) 


The constant table CONTAB is read from 
the work file into the table space TS up to 
TSE. 


During initialization, INPT1 is set to 
point to the first constant, i.e., to TS. 
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Figure 1. Layout of Storage Areas 

The constants in the table-space area 
are then compared with each other. If 
identical constants are found, an Equate 
entry is generated and written on TXTOUT. 

If all constants in the table-space area 
are optimized / these constants are written 
on TXTIN following the end of the program 
string. The constants between TS8 and TSE 
are moved to TS, INPT1 is updated and, if 
not all of the constants have yet been 
processed, the table-space area is filled 
with the following part of CONTAB beginning 
at TS. This procedure is repeated until 
all constants have been optimized. 


DESCRIPTION OF ROUTINES 


Sy mbo ls us e d i n fl ow c h art s: 


LCON : 
INPT : 
INPO : 
REP01: 
REP02: 
OPT : 
T SO : 
TS 1 : 


Length of table CONTAB 
input pointer 
input pointer 
Record counter 
Record counter 
Output pointer 
Pointer in table space 
Pointer in table space 


IN ITIAL — YB 

This subroutine calculates the addresses of 
the input and output buffers and sets the 
pointers to their initial values. 


FILL— YB 


This subroutine reads from the work file 
into the table space. This causes eight or 
nine buffers to be filled with constants 
from CONTAB. 


SAVE — YC 

INPT2 is set to INPT1 + 5 + the length of 
the constant? thus, INPT2 points to the 
address of the next constant. This address 
is stored. 

TEST — Y C 

This subroutine determines the type of the 
constant INPT1 points to and transfers 
control to the appropriate subroutine. 

NOTOPT — YD 


This subroutine scans the table space for 
optimizable blocks of constants. If two 
blocks of constants compare equal, an 
equate entry is generated. 

ADCON — YE 

This subroutine scans the table space for 
identical address constants. Two address 
constants are equal if (1) they have ident¬ 
ical types and (2) they are identical in 
bytes 5 through 9. In this case, the 
equate information is moved into the output 
buffer and written on TXTOUT when the out¬ 
put buffer is full. 

0PTIM8 — YF 


This subroutine compares the base constant 
with all constants that have a length of 
eight bytes or less. The base constant is 
pointed to by INPT1• Constants of a length 
of two, four or eight bytes are compared 
only for identical boundary alignment. The 
compare operation is terminated when the 
end of CONTAB or the end of the table space 
is reached. 

0PTIM 4 — YG 

Constants of a length of less than five 
bytes are compared with the base constant. 
The base constant, which is pointed to by 
INPT2, has a length of four bytes. Con¬ 
stants of a length of two bytes are com¬ 
pared only for identical boundary align¬ 
ment. Also, the constants are compared 
only within the limits of the table space. 
If an identical constant is found, control 
is transferred to the subroutine EQU. 

MOD — YG 

This subroutine updates the input pointer 
INPTO and the modifier MODIF. 
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0 PTIM2 — YH 

When this subroutine is entered, INPT1 
points to a 2-byte base constant. INPT 2 
points to the constants the base constant 
is compared with. 

If a subsequent constant has a length of 
two bytes or only one, this constant is 
compared with the base constant. If the 
two constants compare equal, a DELETE bit 
is set and an equate entry is moved into 
the output buffer. 

The compare operation is terminated when 
the end of the table space or the end of 
CONTAB is reached. 


OPTIM -- YI 


Constants of a length other than eight, 
four, or two bytes are compared with each 
other. 

Two constants are considered to be equal 
if they are identical in length and if 
their internal representations are the 
same. In this case, an equate entry is 
moved into the output buffer and control is 
transferred to the subroutine EQU. 

The compare operation is terminated when 
the end of CONTAB or the end of the table 
space is reached. 

EQ U — YJ 


The subroutine causes the equate informa¬ 
tion, i.e., the name of the equated con¬ 
stant, the name of the base constant, and 
the modifier, to be moved into the output 
buffers. The output pointer OPT is 
increased by 6 and, if the value of OPT 
exceeds the buffer length, control is 
transferred to the subroutine. 

E QUOUT — YJ 

The contents of OBLJF1 are written on 
TXTOUT. 0BUF2 is moved to 0BUF1 and OPT is 
updated. 


CONOUT — YK 

This subroutine causes the constants con¬ 
tained in the table space to be written on 
TXTIN following the end of the program 
string. 


EQUSR — YK 

The TXTOUT tape is rewound and the equate 
entries are read from TXTOUT into the input 
buffer and then written on the work file as 
table CONEQU. 

CONSCR — YL 

This subroutine causes the TXTIN tape to be 
positioned to the beginning of constants 
following the program string. The con¬ 
stants are read into the input buffers and 
tested for DELETE bits. Constants without 
a DELETE bit are moved to the output buf¬ 
fers and written on the work file. Con¬ 
stants with a DELETE bit are skipped. 

SKIP — YL 

The input pointer INPT is increased by the 
length of the constant. If the value of 
INPT exceeds the buffer length, BUFF2 is 
moved to BUFFI. The next block of records 
is read from TXTIN and INPT is updated. 

PUTOU T — YM 

The subroutine causes the output pointer 
OPT to be increased by the length of the 
constant. If the value of OPT exceeds the 
buffer length, the contents of 0BUF1 are 
written on the work file. The contents of 
0BUF2 are moved to 0BUF1 and OPT is updat¬ 
ed. 

PUT — YM 

This subroutine causes the records con¬ 
tained in 0BUF2 and not yet written out to 
be written on the work file. 

GETCON -- YN 

This subroutine causes constants from CON¬ 
TAB to be read into the table space. 
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PHASE PL/IF75 (STORAGE ALLOCATION) — YO 
( ..“.“..‘.“ 




Storage to be allocated may be STATIC or 
AUTOMATIC. This section describes how 
STATIC or AUTOMATIC storage is arranged and 
how these types of storage are allocated. 


Static Stora ge 

At object time, STATIC data is arranged as 
shown in Figure 1. 


r--- 1 

| Not Optimizable Constants f 

I--*-*1 

| Optimizable Constants | 

F-*1 

| Simple Variables | 

F--! 

| Arrays | 

(.--i 

| Structures | 

L_J 

Figure 1. Arrangement of STATIC Storage 


Au tom at ic Storage 

Each invocation of a procedure or 3EGIN-END 
block at object time requires a DSA 
(Dynamic Storage Area) . The DSA consists 
of a block of storage aligned at a double- 
word boundary. The size of DSA is deter¬ 
mined by the size of its fields. Figure 2 
shows the arrangement of a DSA. 

r --- - -- 1 

| Fixed Area | 

F- ^ 

| Parameters | 

(.-1 

| Variables and Work Storage ( 

I-- -I 

| Arrays | 

F--I 

| Structures | 

l_J 

Figure 2. Arrangement of a DSA 

The fixed area contains the length of 
DSA and a register save area. The length 
of the fixed area is always 88 bytes. 


Storage Al locat io n 

Storage is said to be allocated for a vari¬ 
able or a constant when a certain region of 
storage is assigned to the variable (or 
constant) . 


Stora g e Allocation for Constants fr om 
CONTA B ~ ~ ~ 

The constant table CONTAB (for generation 
see phase F35) is consecutively read into 
the input buffers. The location counter 
for STATIC storage (LCST) is set to 0 
before the allocation of storage is started 
for the first string of data from CONTAB. 

For each constant, an entry for the 
offset table 0FFTAB1 is generated and moved 
into the ouptut buffer. The format of an 
0FFTAB1 entry is as follows: 

Byte (s ) Co n tent s 

0-1 Internal name of constant. 

2-3 Offset (= location counter LCST) . 

4 Attribute byte (for constants, this 

byte contains only the STATIC bit, 
i. e., bit 2=1). 

Before the value of the location counter 
is moved into the output buffer, this value 
is set to a specific boundary, if required. 
Following the move operation, the location 
counter is increased by the length of con¬ 
stant and the OFFTAB1 entry for the next 
constant is generated. This procedure is 
repeated until one 0FFTAB1 entry has been 
generated for all constants in CONTAB. The 
generated OFFTAB1 entries are written on 
TXTOUT as the output buffer is filled. 

Stor ag e A l location for Character-String 
Constants in CARTAB 

These constants, which are contained in the 
work file, are chained together and handled 
as one constant. The name of this constant 
is a reserved name and has the internal 
representation 3. The length of CARTAB is 
contained in the interphase communication 
region. 

To allocate storage for these constants, 
an OFFTAB1 entry is moved into the output 
buffer and the location counter is 
increased by the length contained in the 
communication region. 

Stor ag e A l location for STATIC and AUTOMATIC 
Varia b les 

The table DSTAB contains entries for the 
STATIC and AUTOMATIC variables. These 
entries are not sorted. In order to allo¬ 
cate the variables in the order as des¬ 
cribed above, several passes through DSTAB 
are required. In the first pass, storage 
is allocated for parameters; passes 2 
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through 5 allocate storage for 8-byte, 
4-byte, 2-byte, and other scalar variables. 
Pass 6 allocates storage for arrays and 
pass 7 for structures. 


After the 0FFTAB1 entry has been moved f . 

into the output buffer, the value of the T 

location counter is increased by the length 
of the variable and the next DSTAB entry is 
tested. 


The number of procedures or BEGIN-END 
blocks in the compilation was stored in the 
interphase communication region during 
phase A50. 

At the outset of storage allocation, 
location counters are provided for each 
block. These location counters (LC1 
through LCn) are initially set to 88, which 
is the length of the fixed area in a DSA. 
During the first pass, DSTAB entries are 
consecutively read into the input buffers. 
For each parameter encountered, an 0FFTAB1 
entry is generated as follows: 

Byte (s) Conten ts 

0-1 Internal name of parameter 

2-3 Offset (value of location counter 

for the block) 

4 Attributes: 

Bit Indication 
0-1 Level number 
2 1 = STATIC, 

0 = AUTOMATIC 
3-7 Set to 0. 

The information contained in bytes 0, 1, 
and 5 is taken from the DSTAB entry. In 
addition, the DSTAB entry contains the 
block number used to find the proper loca¬ 
tion counter. 

After the OFFTAB1 entry has been moved 
into the output buffer, the value of the 
location counter is increased by the length 
of the parameter and the next variable is 
tested for being a parameter. This proce¬ 
dure is continued until the end of DSTAB is 
reached. The generated 0FFTAB1 entries are 
written on TXTOUT as the output buffer is 
filled. 

During the second pass / the DSTAB is 
scanned for 8-byte variables. Each 8-byte 
variable encountered is tested to determine 
whether it is STATIC or AUTOMATIC. If it 
is STATIC, the value of the location coun¬ 
ter LCST for STATIC storage is moved into 
the OFFTAB1 entry; otherwise, the value of 
the location counter for the associated 
block is moved into the OFFTAB1 entry. 

Before the value of the location counter 
is moved into the output buffer, this value 
is set to the next double-word boundary, if 
necessary. 

The format of an OFFTAB1 entry for an 
8-byte variable is the same as for an 
OFFTAB1 entry for a parameter. 


When the end of DSTAB is reached, the 
next pass is started to allocate storage 
for the 4-byte variables. 

The remaining passes handle storage 
allocation in the same way as the second 
pass. Each time, all DSTAB entries are 
tested for the desired type of variable, 
and the OFFTAB1 entries for variables, 
arrays, or structures are moved into the 
output buffer and written on TXTOUT. 

Phase Input and Output 

Input : 

1. Constants 

The constant table CONTAB, which was 
written on the work file during the 
preceding phase. CONTAB contains all 
declared and generated constants, 
except user-defined character-string 
constants. CONTAB is used to allocate 
storage for the constants. The format 
of CONTAB is described in phase F25. 

2. Character String 

The user-defined character-string con¬ 
stants were gathered in one string and 
written on the work file as table CAR- 
ThB during a phase A45. For storage 
allocation, only the length of the 
character string is required. The 
length is stored in the interphase 
communication region. 

3. Variables 

During phase F25, the table DSTAB was 
built up. This table contains one 
entry for each variable for which stor¬ 
age is to be allocated in STATIC or 
AUTOMATIC storage. For a description 
of this table see the section describ¬ 
ing phase F25. 

Outp ut: 

1. Offset table OFFTAB1 on TXTOUT. The 
format of OFFTAB1 entries has already 
been described. 

2. Block table BLTAB on the work file. 

This table contains the lengths of 
DSA's aligned at double-word boundary. 


DESCRIPTION OF ROUTINES 

Flow chart ZA shows the main functions for 
the allocation of storage for constants; 
flow chart ZH for the allocation of storage 
for variables. 
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Sy mbols used in fl ow ch arts: 

INPT input pointer 

OPT output pointer 

BUFFL buffer length 

LCST location counter for static storage 

LOCO location counter for static storage 

REC number of work file records request¬ 

ed 


St orag e Allocation for Constants -- ZA-ZG 

CONTAB is read consecutively into input 
buffers BUFFI and BUFF2. At the beginning, 
input pointer INPT points to the first 
constant. The location counter LCST for 
STATIC storage is set to 0. 

For each constant, an OFFTAB1 entry is 
generated and moved into the ouput buffer. 
The value of the location counter LCST, the 
name of the constant, and the STATIC bit 
are moved into the output buffer. The 
value of the location counter may have to 
be set to the required boundary before the 
move operation is executed. The value of 
the location counter is increased by the 
length of the constant and the next con¬ 
stant is processed. The 0FFTAB1 entries 
are written out on TXTOUT. When the end of 
CONTAB is reached, an OFFTAB1 entry is 
produced for CARTAB. The length of CARTAB 
is contained in the communication region. 

IN ITI AL 1 -- ZB 

The addresses of the input and output buf¬ 
fers are calculated and the pointers are 
set to 0. Bit 2 in the TABTAB entry for 
CONTAB is set to 0 to start reading the 
CONTAB entries. 

CONTAB_“_ZB 

This subroutine causes one or two records 
of CONTAB to be read from the work file 
into the input buffer (s) . 

OFFTAB1 — ZC 

This subroutine causes the value of the 
location counter, the internal name of the 
constant, and the STATIC bit to be moved 
into the output buffer. Control is then 
transferred to the subroutine OFFOUT to 
write the OFFTAB1 entries on TXTOUT. The 
value of the location counter is increased 
by the length of the constant before con¬ 
trol is returned. 

align_2-_zc 

Before the value of the location counter is 
moved into the output buffer, the constant 
is tested to determine if it requires a 
boundary. This subroutine tests the con¬ 
stant for the required alignment. 


LOCAL — ZD 

The subroutine causes the value of the 
location counter LOCO to be set to the 
boundary specified by AL8, AL4, or AL2• 

LINCR -- ZD 

The subroutine LINCR determines if the 
constant is an address constant of a length 
of three bytes. If it is, the length spec¬ 
ified in bytes 3 and 4 of the constant is 
changed to 3 because the location counter 
is to be increased by 3. 

OFFO UT — ZE 

OPT is increased by 5. If its value 
exceeds the buffer length, the contents of 
OBUF1 are written on TXTOUT. The contents 
of OBQF2 are moved to OBUF1 and OPT is 
updated. 

SKIP C -- ZF 

The input pointer INPT is increased by the 
length of the constant. If the value of 
INPT exceeds the buffer length, the con¬ 
tents of the input buffer BUF2 is moved to 
BUF1 and the next CONTAB record is read 
into BUFF2. INPT is updated. 

CARTA B — ZG 

This subroutine generates an OFFTAB1 entry 
for the character string table CARTAB. The 
value of the location counter is increased 
by the length of CARTAB (obtained from the 
interphase communication region). 

RERRT E ST — ZG 

The location counter is tested and, if its 
value is greater than or equal to 64K-1, an 
error bit is set in the compiler communi¬ 
cation region in the field IJKMWC and the 
diagnostic phase G31 is called. 

Stora g e Allocation for Variables — ZH-ZL 

Seven passes of scanning the DSTAB entries 
are required to properly sort the variables 
and to allocate storage to them. 

When the desired type of variable is 
encountered,. control is transferred to 
OFFSET. That subroutine causes an 
appropriate OFFTAB1 entry to be generated 
and written on TXTOUT. 

I NITI AL -- ZI 

A 2-byte location counter for each proce¬ 
dure or BEGIN-END block is reserved in the 
table space. These location counters are 
set to their initial values, i.e., the 
length of the fixed area in the DSA (19 
words) . 
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PICK_--_ZI 

This subroutine initiates the reading of 
the data table DSTAB from the work file. 
The input pointer INPT is set to 0. 


DST AB -- ZI 

The subroutine causes (1) the data table 
DSTAB to be read into the input buffers and 
(2) INPT to be updated. 

OF FSE T — Z J 

This subroutine causes the offset value, 
the internal name, and the attributes to be 
moved a into the output buffer. In addi¬ 
tion, this subroutine uses various other 
subroutines to complete the generation of 
and the writing out of the OFFTAB1 entry. 

GE TLO C — Z J 

For an AUTOMATIC variable, the appropriate 
location-counter value is taken from the 
table space and moved to LOCO. For a STA¬ 
TIC variable, the value in location counter 
LCST is moved to LOCO. 

PUTLpC_--_ZK 

For an AUTOMATIC variable, the value in 
LOCO is returned to the table space BLTAB 
of the block concerned. For a STATIC vari¬ 
able, LOCO is returned to LCST. 


LEFTH — ZK 

The appropriate location counter value is 
moved to LOCO using the subroutine GETLOC. 
The value in LOCO is then adjusted as det¬ 
ermined by the lefthang of structure. 


SKIPV — ZK 


This subroutine skips to the next DSTAB 
entry by increasing INPT. If the value in 
INPT becomes greater than the buffer 
length, the subroutine DSTAB is called to 
read the next record. 

LAST — ZL 


The end-of-OFFTAB } key (X 1 FFFF 1 ) is moved 
into the output buffer, and offset table 
entries not yet written out are written on 
TXTOUT. 

BLTAB — ZL 


When this subroutine is entered, the loca¬ 
tion counters in TS contain the lengths of 
the generated DSA's. These lengths are 
adjusted to double-word boundaries and 
written on the work file as table BLOCK1. 
The length of STATIC storage (in LCST) is 
stored in the compiler communication 
region. 
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PHASE P L/IF9Q (BUILDING OF OFFSET TABLE) — A A 


This phase builds up the final offset table 
OFFTAB which contains all offsets of data 
in the following form: 

bytes 0-1 offset 

byte 2 attributes 

The entries are sorted in ascending order 
of their interal names. 

Phase Input and Output 

The input used by this phase is 

symbol table SYMTAB on SYS001 
equate table CONEQU on SYS001 
offset table OFFTAB1 (built up and des¬ 
cribed in phase F75} on TXTOUT 

Output is the final offset table OFFTAB 
on SYS001 or in storage. It contains all 
offsets of data in ascending order of their 
internal names. 

Switches 


Switches are located in byte WSWITCH: 


bits 

0 

- 5 

not used 



bit 

6 

= 0 

switch 

CON 

Off: 

SYMTAB must be 
retrieved 



= 1 

switch 

CON 

on : 

CONEQU must be 
retrieved 

bit 

7 

= 0 

switch 

TXT 

off: 

EQUTAB is on 
SYSS001 



= 1 

switch 

TXT 

on : 

EQUTAB is on 
TXTIN. 


I/O Con cep t 

Two adjacent buffers, referred to as buf¬ 
fers A and B, are used as I/O buffers. The 
beginning of a table is read into both 
buffers. The individual entries of the 
table are processed sequentially from left 
to right (beginning in buffer A) . The 
buffer pointer R3 is increased each time by 
the entry length until it points to an 
entry in buffer B. If necessary, buffer A 
is moved into the output buffer in order to 
put it onto TXTIN, TXTOUT or SYS001. Buf¬ 
fer B is moved into buffer A and the buffer 
pointer is reset to the next entry to be 
processed. The next record will be read 
into buffer B in overlapped mode. 

Co mmunication w ith Other Phases 

The address of the table space is decreased 
in this phase by the length of TABTAB. The 
number N2 of records of OFFTAB that can be 
stored in the area between the new begin¬ 


ning of the table space and the end of the 
second I/O buffer is stored in IJKMIP+2. 

If OFFTAB does not exceed N2 records, it 
remains in storage at the end of this phase 
and the beginning of OFFTAB is identical to 
the new beginning of the table space. 


FUNCTIONAL DESCRIPTION 


This phase performs three main functions: 
gathering of equates, sorting of offsets 
and calculating the offsets of equates, and 
inserting equate offsets into the offset 
table. 

1. G a thering of Equates 

Equate table EQUTAB1 is built up. Each 
entry contains the following information: 

bytes 0-1 : Internal name of defined varia¬ 
ble or equated constant 

bytes 2-3 : internal name of based variable 
or based constant 

bytes 4-5 : modifier (0 if defined 
variable) . 

Variables with the attribute DEFINED are 
handled as equates. SYMTAB is scanned and, 
if a defined variable is found, an entry in 
EQUTAB1 is made. 

Equate table CONEQU contains all equated 
constants in the following form: 

bytes 0-1 : Internal name of equated con¬ 

stant . 

bytes 2-3 : internal name of the based 
constant. 

bytes 4-5 : modifier. 

All entries of CONEQU are appended to 
EQUTAB1. If the source text contains no 
defined variables, gathering of equates is 
skipped and CONEQU is used as EQUTAB1. 

2. _So rti ng of Offsets and Calculating the 

Offse t s o f Eguates 


If the offset table entries are sorted in 
ascending order of their internal names, no 
internal name is required within the entry 
since an entry in the final offset table 
OFFTAB can be found by using the internal 
name as relative address in the offset 
table. 
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Offset table OFFTAB1 contains all 
entries in unsorted order. An entry con¬ 
sists of: 


bytes 0-1 internal name 
bytes 2-3 offset 
byte 4 attributes 


The format of the entries in the final 
offset tabel OFFTAB is as follows: 


bytes 0-1 offset 
byte 2 attributes 

The area in which OFFTAB is built up is 
called work area. The number of OFFTAB 
entries that fit into the work area is 
called M. MIN is equal to the smallest 
internal name of an entry that fits into 
the work area; MAX is equal to the internal 
name greater than the greatest internal 
name of an entry that fits into the work 
area. 

Sorting of offsets starts with MIN=0 and 
MAX=M. OFFTAB1 is read successively into 
the input buffers. The offsets and attri¬ 
butes of all entries of OFFTAB1 whose 
internal names are greater than or equal to 
MIN and less than MAX are stored in the 
work area in ascending order of their 
internal names. After scanning of OFFTAB1, 
EQUTAB1 is read successively into the input 
buffers. Entries of EQUTAB1 with internal 
names of based data greater than or equal 
to MIN and less than MAX are processed, 
e.g., the internal names of based data of 
these entries are replaced by their offsets 
retrieved from the work area. The modifier 
is added to each retrieved offset. The 
first byte of the modifier is replaced by 
the attributes of the based data. If 
EQUTAB1 is read from TXTIN, the processed 
EQUTAB1 is written onto SYS001 and vice 
versa. 

The offset table built up in the work 
area is named OFFTAB2. The entries and 
length of OFFTAB2 are the same as those of 
OFFTAB. The two tables differ in that 
OFFTAB2 contains gaps to be replaced by the 
entries of equated data in OFFTAB. If 
0FFTAB2 is completely stored in the work 
area, the offsets are stored and the off¬ 
sets of equates are calculated in one pass. 
Otherwise, the part of 0FFTAB2 that is in 
the work area is written on TXTOUT. MIN 
and MAX are increased by M and sorting of 
offsets and calculating the offsets of 
equates is continued until OFFTAB2 is com¬ 
pletely on TXTOUT. 

The processed equate table is named 
EQUTAB. The EQUTAB entries have the fol¬ 
lowing format: 


bytes 0-1 : internal name of equated data 
bytes 2-3 : offset of equated data 

byte 4 : attributes of equated data 

(equal to attributes of based 
data) 

byte 5 : not used. 

3. I n ser t ing Equate Offsets into th e 
Offse t Table 

If all entries of OFFTAB2 are stored in the 
work area, EQUTAB is successively read into 
the input buffers. The offsets and attri¬ 
butes of the equated data are inserted into 
the work area according to their internal 
names. 

If OFFTAB is greater than the work area, 
inserting of equate offsets starts with 
MIN=0 and MAX=M. The records of OFFTAB2 
that contain entries of internal names 
greater than or equal to MIN and less than 
MAX are read into the work area. EQUTAB is 
successively read into the input buffers. 
The offsets and attributes of equated data 
whose internal names are greater than or 
equal to MIN and less than MAX are inserted 
into the work area according to their 
internal names. If all entries of EQUTAB 
whose internal names are not less than MIN 
or greater than MAX have been inserted, the 
part of OFFTAB that is in the work area is 
written onto SYS001. MIN and MAX are 
increased by M and the insertion of equate 
offsets is continued until OFFTAB is com¬ 
pletely on SYS001. 

DESCRIPTION OF ROUTINES 

Initi a liz a tion and Gathering o f Equ a tes - - 
AB, A C ' .. 

Buffer pointer R3 is set to the beginning 
of buffer A and table space pointer R8 is 
set to the beginning of the table space. 

If th$ source program contains defined 
variables, SYMTAB is scanned. If a defined 
variable is found, an entry in EQUTAB1 is 
made. SYMTAB is scanned in buffers A and 
B. EQUTAB1 is built up in the table space 
and written onto TXTIN. 

If scanning of SYMTAB is finished, 
switch CON is set. CONEQU is read into 
buffers A and B, and all entries of it are 
added to EQUTAB1. If EQUTAB1 has been 
completed and written onto TXTIN, switch 
TXT is set to indicate the presence of 
EQUTAB1 on TXTIN. 

Co nst r uct i on of Work Area — AD 

The space consisting of parts of the phase 
(beginning with WBEG2), the table space, 
and the first three buffers is used as work 
area to build up the offset tables. 
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If the length of the work area divided 
by 3 is not less than the number of off¬ 
sets, the entire offset table can be placed 
in the work area. Otherwise, the offset 
tables must be built up in several passes. 
Between these passes, the parts of an off¬ 
set table that have been processed are 
written onto TXTOUT or SYS001 in the length 
of multiples of the buffer length. To 
avoid gaps in the offset tables, the length 
of the work area actually used must be 
three times the buffer length times floor 
of length of the work area divided by three 
times the buffer length. 

The number of entries of the offset 
table that can be placed in the work area 
is called M. 


Sorting of Offsets (TXTOUT) — AE 

0FFTAB1 is read from TXTOUT into the input 
buffers. The offset and attributes of each 
OFFTAB1 entry whose internal names are less 
than M are stored in the work area accord¬ 
ing to the internal name. The table built 
up in the work area is called 0FFTAB2. If 
there are entries of 0FFTAB1 with internal 
names equal to or greater than M, 0FFTAB1 
is written onto SYS001. 


Ca lculating Offset s of Equates — AF 

EQUTAB1 is on TXTIN if switch TXT is on; 
otherwise, it is on SYS001. EQUTAB1 is 
read into the input buffers. If the entry 
of the based data of an E2UTAB1 entry is in 
the work area, the based data is replaced 
by its offset. Its modifier is added to 
the offset and the first byte of the modi¬ 
fier is replaced by the attributes of the 
based data. 

After processing, EQUTAB1 is written 
onto SYS001 if switch TXT is on; otherwise, 
it is written onto TXTIN. Switch TXT is 
altered. 

Sorting of Of fsets_(SYS001)_--_AG 

The part of OFFTAB2 which is built up in 
the work area is written onto TXTOUT if 
OFFTAB2 is not completely contained in the 
work area. If OFFTAB2 is completely on 
TXTOUT and EQUTAB is on SYS001, EQUTAB is 
written onto TXTIN. 

If the construction of OFFTAB2 is not 
finished, MIN and MAX are increased by M 
and OFFTAB1 is read from SYS001 into the 
input buffers. The offset and attributes 
of each OFFTAB1 entry whose internal name 
is greater than or equal to MIN and less 
than MAX are stored in the work area 
according to its internal name to continue 
the construction of OFFTAB2. 


Inserting of O ffsets of Equates -- A H 

EQUTAB, which contains the internal name, 
offset, and attributes of all equated data, 
is read into the input buffers. If OFFTAB2 
is completely in the work area, the offset 
and attributes of each entry of EQUTAB are 
stored in the work area according to its 
internal name. 

If OFFTAB2 is not completely in the work 
area, the insertion of offsets of equated 
data is started with M1N=0 and MAX=M. The 
records of OFFTAB2 which contain the off¬ 
sets of internal names greater than or 
equal to MIN and less than MAX are read 
into the work area. The offset and attri¬ 
butes of each EQUTAB entry whose internal 
name is greater than or equal to MIN and 
less than MAX are stored in the work area 
according to its internal name. If EQUTAB 
has been completely scanned, the records of 
OFFTAB that are in the work area are writ¬ 
ten onto SYS001. If the construction of 
OFFTAB is not finished, MAX and MIN are 
increased by M and the insertion of offsets 
of equates is continued by scanning EQUTAB 
again. 

End- of -Bu f fer Routine — AI 
Entry point: WSR21 
Input parameters: 

R3 points to the element to be scanned in 
the input buffers. 

R6 contains the address of buffer A. 

R7 contains the address of buffer B. 

If pointer R3 points to an element in 
buffer B, buffer B is moved into buffer A, 
buffer pointer R3 is reset, and the routine 
is left through exit B. Otherwise, the 
routine is left through exit A. 

Move B uffer B to Buffer A -- AI 

Entry point: WSR21A 

The function is the same as described for 
the routine WSR21, but without testing 
whether pointer R3 points to an element in 
buffer B. 

Put End of Tab l e on SYS001 — AJ 
Entry point: WSR51 
Input parameters: 

R3 points to the beginning of the end key 
of a table in buffer A. 

R7 contains the add ress of buffer B. 

It is tested whether the entire end key 
of a table is in buffer A. If not, buffer 
B is written onto SYS001 and the routine is 
left through exit B. Otherwise, the rou¬ 
tine is left through exit A. 
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Wo rk up an Entry of 0FFTAB 1 — AK 
Entry point: WSR11 
Input parameter: 

R3 points to the entry of 0FFTAB1 being 
scanned. 

If the internal name of the entry point¬ 
ed to by R3 is not less than MIN and less 
than MAX, the offset and the attributes of 
this entry are stored in the work area 
according to its internal name. 

Output parameter: 

R3 points to the second byte of the 0FFTAB1 
entry following the scanned entry. 


R4 : address of the table space; 

R9 • MIN; 

RIO 2 MAX. 

If the internal name is less than MIN or 
not less than MAX, the routine is left 
through exit A. Otherwise, the allocation 
of the entry in the work area is calculated 
by the internal name and the routine is 
left through exit B. 

Output parameter: 

R2 contains the address of the internal 
name in the work area, if the routine is 
left through exit B. 


Calculate end of Filled Work Area — AL 


Work up an En tr y of EQU TAB — AK 
Entry point: WSR61 
Input parameters: 

R2 contains the internal name of the EQUTAB 
entry being scanned. 

R3 points to the EQUTAB entry scanned. 

If the internal name in R2 is not less 
than MIN and less than MAX, the offset and 
the attributes of the entry pointed to by 
R3 are stored in the work area according to 
its internal name. 

Output parameter: 

R3 points to the EQUTAB entry following the 
scanned entry. 


W ork up an Ent ry o f EQU TAB 1 — AK 
Entry point: WSR31 
Input parameter: 

R3 points to the EQUTAB1 entry scanned. 

If the internal name of the based data 
of the entry pointed to by R3 is not less 
than MIN and less than MAX, the offset of 
the equated data is calculated by the off¬ 
set of the based data and the modifier. 

The based data is replaced by the offset of 
the equated data, and the first byte of the 
modifier is replaced by the attributes of 
the based data. 

Output parameter: 

R3 points to the EQUTAB1 entry following 
the scanned entry. 


Co mpar e Internal N am e with MIN and MAX — 
AK 

Entry point: WSRE1 

Input parameters: 

R2 : internal name; 


Entry point: WSRB1 

Input parameters: 

R4 : address of the work area; 

R9 : MIN; 

R11 : K = maximum number of 0FFTAB2 or 
OFFTAB entries. 

The address of the end of the filled 
work area is calculated. 

Output parameter: 

R3 contains the address of the end of the 
filled work area. 


Put W o rk A rea on TXTOUT — AL 
Entry point: WSRC1 
Input parameters: 

R3 contains the address of the end of the 
filled work area. 

R4 contains the address of the work area. 

The contents of the filled work area are 
written onto TXTOUT. 


Put W o rk Area on SYS001 — AL 
Entry point: WSRD1 
Input parameters: 

R3 contains the address of the end of the 
filled work area. 

R4 contains the address of the work area. 

The contents of the filled work area are 
written onto SYS001. 

Set P o inter and Clear Work Area — AL 
Entry point: WSR41 
Input parameters: 

R4 contains the address of the work area. 

R6 contains the address of buffer A. 

R8 contains M. 
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Buffer pointer R3 is set to the begin¬ 
ning of buffer A, and the work area is 
filled with zeros. 

Output parameter: 

R3 points to the beginning of buffer A. 

W ork up an Entry of SY MTAB -- AJ 
Entry point: WSR22 
Input parameters: 

R3 points to the SYMTAB entry being 
scanned• 

R8 points to the location in the table 
space where the next entry of EQUTAB1 is 
stored. 

If the SYMTAB entry contains a defined 
variable, the internal names of the defined 
and the based variable are moved into the 
entry in the table space pointed to by R8. 

Output parameters: 

R3 points to the entry of SYMTAB that fol¬ 
lows the one being checked. 

R8 points to the next EQUTAB1 entry. 

Write R ecord of Table Space on TXTIN — AJ 

Entry point: WSR12 


Input parameters: 

R4 contains the address of the beginning of 
the table space. 

R8 points to the location in the table 
space where the next EQUTAB1 entry is 
stored. 

R11 contains the address of the end of an 
EQUTAB1 record in the table space. 


If R8 points to an address not less than 
that of the end of an EQUTAB1 record, a 
record of EQUTAB1 is written onto TXTIN and 
the remaining bytes of EQUTAB1 are moved to 
the beginning of the table space. Table 
space pointer R8 is reset. 


Fill B egin o f Table Space with Zeros — AJ 
Entry point: WSR02 
Input parameter: 

R8 points to the location of the table 
space where the next entry of EQUTAB1 is 
stored. 


The area of the table space used to 
build up EQUTAB1 is filled with zeros 
starting at the location pointed to by R8. 
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These phases can be divided into two 
groups. The first group comprises the 
phases F95 - G15; the second group compris¬ 
es the phases G20 - G55. Phase G17 is 
organized differently and not described 
here. 


PHASES F95 - G1 5 


GENERAL DESCRIPTION OF PHASES F95 - G55 


4. Buffer area. It is used for I/O of the 
text string. 

Actually, there are five buffers in the 
buffer area. However, only three are used 
for text I/O so that the first two buffers 
may be considered as belonging to the table 
space. The last three buffers are used as 
follows: 




These phases prepare the program text for 
final output, i.e., all code and all infor¬ 
mation required for the TXT and RLD cards 
has been prepared upon completion of these 
phases. 

Phase F95 generates the code for offsets 
greater than 4K using the offset table 
OFFTAB, which contains the offsets of the 
variables and constants of static and auto¬ 
matic storage. As far as possible, the 
offsets are inserted into the text string, 
even if no code generation is required. 

Phase GOO optimizes the "maximum" code 
produced by phase F95. The offsets of the 
labels are inserted into the label table 
LABTAB, and all program blocks are divided 
into segments of 12K length. For all 
branches within the same segment, the 
preceding pseudo Assembler instruction ADD 
(generated in previous phases} is deleted. 
LABTAB is updated accordingly. 

Phase G01 inserts the label offsets into 
OFFTAB so that the missing offsets may be 
retrieved ffom only one table. It also 
lists OFFTAB if the SYM option was speci¬ 
fied in the OPTION job control statement. 

In the first part of phase G15, the text 
string is scanned and the remaining offsets 
are inserted. In the second part, the 
format of the constants in static storage 
is changed from that of the constant table 
CONTAB to that of the text string, and the 
offsets for the address constants are cal¬ 
culated. If the source program contains no 
file declarations, phase G15 transfers 
control to phase G20 instead of to phase 
G17. 


In put/Output Handli ng. The handling of 
input and output is the same for all phases 
(except phase G17). Storage is divided 
into four parts: 

1. Compiler interface 

2. Program space (4K) 

3. Table space (TS) . This space is used 
to read OFFTAB from SYSC01 and to build 
up LABTAB. 


buffer 1: output buffer (OBUF) 
buffer 2: input buffer 1 (IBUF1) 
buffer 3: input buffer 2 (IBUF2) 

The start addresses of these buffers are 
BO, B1, and B2, respectively. Pointer POU 
is used in OBUF? pointer POI is used in 
IBUF1 and IBUF2. The buffer length is 
referred to as BUFL. 

ISU, M OO, MODIF (F95, GOO, G15) . The text 
is read into the input buffers and scanned 
using pointer POI. When POI becomes great¬ 
er than B2, the record is moved from IBUF2 
to IBUF1, POI is adjusted, and a new text 
record is read into IBU1. This action is 
performed by the routine ISU. 


PHASES G20 - G55 

The text of the length L (given in reg¬ 
ister 1) is moved from the address pointed 
by POI to the address pointed to by POU by 
means of the routine MOO. This routine 
also performs the output if OBUF is full 
and adjusts all pointers. Reading and 
writing of the text records is performed by 
the external routines IJKGI and IKJPO. The 
external move routine IJKMN is used for 
move operations. MODIF is used to evaluate 
the correct modifier. 

Table Han d ling. Each table to be used in 
several phases has an 8-byte entry in the 
master table TABTAB. Each TABTAB entry has 
the following format: 

bytes 0-1 flag bytes. The first three bits 
indicate the following: 
bit 0 on = table on SYS001 
bit 1 on = table in storage 
bit 2 on = transfer to or from 

SYS001 has been start¬ 
ed. 

bytes 2-3 position on SYS001 (key) 
bytes 4-5 number of records 
bytes 6-7 record length 

If OFFTAB, which is built in phase F90, 
is small enough, it remains in the table 
space. Otherwise, it is written onto 
SYS001 (TABTAB entry ZTAB11). Phase F95 
checks whether or not OFFTAB is in the 
table space. If it is not, the first part 
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is read into the table space by means of 
the external routine ZTIN. The text is 
scanned and the available offsets are 
inserted. Then the next part of OFFTAB is 
read. This process continues until all 
parts of OFFTAB have been in storage. 

If OFFTAB was not on SYS001, it is writ¬ 
ten onto it by the external routine ZTOUT 
in order to free the table space for the 
construction of LABTAB in phase GOO. 

If LABTAB becomes greater than the table 
space, it is intermediately written onto 
ten onto it by the external routine ZTOUT 
in order to free the table space for the 
construction of LABTAB in phase GOO. 

If LABTAB becomes greater than the table 
space, it is intermediately written onto 
ten onto it by the external routine ZTOUT 
in order to free the table space for the 
construction of LABTAB in phase GOO. 

If LABTAB becomes greater than the table 
space, it is intermediately written onto 
ten onto it by the external routine ZTOUT 
in order to free the table space for the 
construction of LABTAB in phase GOO. 

If LABTAB becomes greater than the table 
space, it is intermediately written onto 
ten onto it by the external routine ZTOUT 
in order to free the table space for the 
construction of LABTAB in phase GOO. 

If LABTAB becomes greater than the table 
space, it is intermediately written onto 
ten onto it by the external routine ZTOUT 
in order to free the table space for the 
construction of LABTAB in phase GOO. 

If LABTAB becomes greater than the table 
space, it is intermediately written onto 
ten onto it by the external routine ZTOUT 
in order to free the table space for the 
construction of LABTAB in phase GOO. 

If LABTAB becomes greater than the table 
space, it is intermediately written onto 
SYS001 (TABTAB entry ZTAB19) . It is read 
again into storage for updating. The final 
LABTAB is written onto SYS001 (TABTAB entry 
ZTAB20) for use by phase 325. 

In phase G01, the label offsets are 
inserted from LABTAB into OFFTAB. For this 
purpose, OFFTAB is read into the table 
space and LABTAB is read (record by record) 


into the buffer area. The updated OFFTAB 
remains in the table space unless it 
becomes too large. In this case, it is 
written onto SYS001 (TABTAB entry ZTAB07) . 

In phase G15, OFFTAB is read into the 
table space in order to insert the missing 
offsets into the instructions. The text is 
scanned only once if OFFTAB fits into the 
table space; otherwise, the text is scanned 
as many times as parts of OFFTAB have to be 
read. After this phase, OFFTAB is no long¬ 
er used. 

The constant table CONTAB is also proc¬ 
essed in phase G15. CONTAB (TABTAB entry 
ZTAB08) is read into the buffers record by 
record. After this phase, CONTAB is no 
longer used. 

As initialization for the following 
phases, the external name table EXTAB 
(TABTAB entry ZTAB04) is read from SYS001 
at the end of phase G15 and written onto 
TXTIN, which becomes TXTOUT in the follow¬ 
ing phases. 


PHASES G20 - G55 

Phase G20 arranges the different cards for 
the files to prepare one file module and 
writes the cards onto SYS001. 

Phase G25 generates the ESD cards for 
the object-program module and writes them 
onto SYS001. 

Phase G30 generates the TXT and RLD 
cards for the object-program module as well 
as the END card. The cards are written 
onto SYS001 (TABTAB entry ZTAB16). 

Phase G31 is called if the compilation 
must be terminated before phase G55 is 
called. It lists the flagged errors, clos¬ 
es all files, and terminates the compila¬ 
tion by the EOJ macro instruction. 

Phase G40 lists the object code. 

Phase G55 writes all cards (for both the 
first and the second module) onto IJSYSLN 
(in blocks of 322 bytes) if the LINK option 
is on. If the DECK option is on, it 
punches the object deck. If the SYM option 
is on, it lists the external symbol table 
and the block table. 


Phases PL/IF95 - G55 (General) 
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PHAS E PL/IF95 (HANDLING OF OFFSETS) — AN 



This phase generates code for operands that 
have an offset greater than or equal to 4K 
or 12K r respectively. The code is generat¬ 
ed by means of the four general registers 5 
- 8 and some constants contained in static 
storage. Registers 7 and 8 are loaded with 
4K and 8K, respectively. Registers 5 and 6 
are used for indirect addressing. The 
constants in static storage are OK, 12K, 
16K, 20K, 24K, and 28K. They are stored in 
this sequence under the internal name 
N'0004* (one half-word each). 


1. Offset less than 12K 

a. No additional code is required if 
the offset is less than 4K. 

Note: No code generation is 
required for RS instructions, since 
these instructions are never used 
with offsets greater than or equal 
to 4K. 

b. For instructions with offsets 
between 4K and 12K, an additional 
register is used for addressing. 

In RX instructions, the index reg¬ 
ister has not been used so that 
registers 7 (containing 4K) and 8 
(containing 8K) can be used as 
index registers for these instruc¬ 
tions. For instance, in the 
instruction 


The instructions in brackets are 
required if, for example, register 
6 is not free. 

2. Offset greater than 12K-1 and less than 
32K. In this case, one of the con¬ 
stants 12K, 16K, 20K, 24K, or 28K is 
loaded into a register as follows: 

LH 6,=A (16K) . 

This register can then be used as an 
index register in RX instructions so 
that no additional code generation is 
required. In all other cases, an addi¬ 
tional ADD instruction for the base 
register must be generated, and reg¬ 
ister 6 or 5 is inserted as base reg¬ 
ister. For instance, 

AR 6,9 

STM R,S,50, (6) 

3. Offset greater than 32K-1. One of the 
constants is loaded into register 5 or 
6 and multiplied by 2 by adding the 
register to itself, e.g., 

LH 6 , =A (2OK) (2OK) 

AR 6,6 (4 OK) 

For 36K, 44K, 52K, and 60K, additional 
4K must be added, e.g., 

AR 6,7 (44K) 


L R,NAME 1 

NAME1 is an address with the offset 
5000. This instruction is modified 
to 


L R, 904 (7,9) 

where 9 is the base register. 


In all 

other instructions, the base 

register is increased by 4K or 8K. 
For example, in the instruction 

MVC 

NAME 2 (4) , NAME 3 

NAME2 is an address with the offset 
6000 and NAME3 has the offset 

10000. 

to 

The instruction is modified 

(ST 

6, SAVE) 

LA 

6,0 (7,9) 

LA 

5,0 (8,9) 

MVC 

1904 (4,6) , 1806 (5) 

(L 

6, SAVE) 


The following instructions are the same 
as described under item 2. 

Phase Input and Output 

The input is read from the text input file 
and consists of machine instructions, pseu¬ 
do Assembler instructions, and end key. 

The format of these instructions is des¬ 
cribed in the section Instruction Formats . 
The input is read into the two input buf¬ 
fers B1 and B2• The input pointer is POI. 

The offset table OFFTAB is read into the 
table space. If OFFTAB is small enough, 
phase F90 has left it in the enlarged table 
space of the length M*buffer length. If 
the size of OFFTAB exceeds the table space, 
OFFTAB is read from SYS001. The table 
space was enlarged in phase F90 by 180 
bytes in low core and two I/O buffers in 
high core. Thus, M is given by the length 
of the table space divided by the buffer 
length. M is stored at IJKMIP+2. The 
start address of the table space (stored at 
IJKMTS) was reduced by 180 bytes. 
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88 

Op 

Code 

LI 

L2 

El 

Name 

Modifier 

E4 

Name 

Modifier 

Input 


88 

Op 

Code 

LI 

L2 

10 

Name 

Modifier 

R 

Offset 

10 

Name 

Modifier 

R 

Offset 

Output 


Figure 1. Input and Output of Phase F95 


All instructions whose offset has 
already been determined are modified by 
inserting a half-word after the modifier. 
The inserted half-word contains the base 
register in the first four bits and the 
offset in the remaining bits. The key is 
changed to 10. 

Note; The pseudo Assembler instruction 
DC AL3 

is not modified. 

The correlation between the input and 
output of this phase is shown in Figure 1. 

NAME and MODIFIER are not deleted 
because they are still used in phase G4 0. 
The output is written on the text output 
file using the output buffer (OBUF) BO with 
the pointer POO. At the end of this phase, 
OFFTAB is written on SYS001, if it is not 
already there. 

Instruct io n For ma ts 

The format o'f the individual machine 
instructions is shown in Figure 2. The 
first byte contains the key 88. The second 
byte contains the operation code. R1, R2, 
and R3 are registers. LI and L2 are 
lengths. I is an immediate constant. 

The format of the Assembler pseudo 
instructions is shown in Figure 3. The 
first byte contains the key 80. 

The end key (01) is used to determine 
the end of the text. 

The keys used in the operands have the 
following meaning: 


El 

Declared 

variable 

E4 

Generated variable 

E9 

Constant 


E5 

Register 


00 

Absolute 

address 

11 

Label in 

DC A 

10 

New key 

(worked up) 

18 

New key 

(worked-up E5) 


The first three keys denote entries in 
OFFTAB, from where the offset is retrieved. 
The key E5 indicates that the operand con¬ 
sists of a register with a displacement 
given by the modifier. The key 00 denotes 
an absolute address. The key 11 denotes a 
label in a DC A or DC AL3 instruction. The 
keys 10 and 18 are written if the offset 
has already been retrieved and inserted 
into a half-word following the element. 

FUNCTIONAL DESCRIPTION 

Phase F95 does the following: 

1. To retrieve the offset from OFFTAB, the 
first part of OFFTAB is read into the 
table space if it is not already there. 
The offsets of all text operands with 
entries in this part of OFFTAB are 
determined. Then, the next part of 
OFFTAB is read into the table space, 
and the text is scanned again from the 
beginning. This process is repeated 
until all parts of OFFTAB have been in 
storage. 


RR-Format 


88 

Op 

R1 

R2 

RX-Format 



88 

Op 

R1 

X2 

- r 

Keyj 

Name 

Modif 

RS-Format 

88 

Op 

*1 

R3 

r 

Key [ 

Name 

Modif 

Si-Format 

88 

Op 

00 

■ 

Key' 

_L. 

Name 

Modif 


SS-Format 


88 

Op 

LI 

L2 

i 

Key{ Name 

Modif 

Key 

Name 

Modif 


If only one length is present, L replaces L2 and LI 
must be zero. 


Figure 2. Machine Instruction Formats 
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CNOP 


DC F 


80 

CO 

b 

w 

i 

i 

80 

C7 

LEV[BLO 


DC AL3 


80 

Cl 

KEY 

NAME 

MOD IF 


This is a special key for a DC X'L' in which 
the length L of the DSA is inserted in phase 
G30. The reserved length is 4 bytes. 


. ADD i 

(opt: 

) 

DC X (L + 4 bytes) 1 

l- 1-1-—-1 1 \ r . . - .....i l 

80 

C8 

LABEL 


80 

C2 

L 

CON J) STANT 

This is a special key denoting that a branch 




r / u irui l 

instruction follows that is optimized in 


DSL 


80 

C3 

L 


LABEL 



80 

C4 

NAME 


PROCEDURE 


80 

C5 

LEV 

BLO 

NAME 


phase G00. 


DC A (STATIC) 


80 


C9 


not 

used 


This is a special key for a DC A(STATIC) 
containing the initial address of static 
storage. 


PARA 


80 

CA 

LC 

LO 


BLO is the block number; 
LEV is the level number. 


END OF BLOCK 


This instruction precedes a field of instruc¬ 
tions not to be separated by other instructions. 
(The length of the string is restricted to 256 
bytes.) LC = length of the string? LO = length 
at object time. 

UREG 


80 


C6 


not 

used 


80 


CB 


KEY 


Indicates register not to be used for indirect 
addressing (5 or 6). Zero means both are free. 





Figure 3. Assembler Pseudo Instruction Formats 


2. To evaluate the base register, it is 
determined whether the variable is in 
static or in automatic storage. Gener¬ 
al register 12 is used for static stor¬ 
age. One of the general registers 13, 
11, or 10 is used for automatic stor¬ 
age. Which of these three registers is 
used depends on the block in which the 
variable appears and in which it is 
called (see BAS — AS ) . 


3. The length of static and automatic 

storage and of the text string is res¬ 
tricted to 64K. 


To get no displacement greater than or 
equal to 4K, storage is divided into 
4K-blocks. Each block is pointed to by 
the corresponding offset. When code is 
to be generated, the 4K-block is deter¬ 
mined and the address of the block is 
loaded into a register which is then 
used as a base or index register. 

4. The code to be generated depends (1) on 
the type of instruction and (2) on the 
4K-block pointed to by the offset of 
the operand. Examples of code genera¬ 
tion for blocks with an offset greater 
than 4K are shown in Figure 4. 


308 






PL/I PLM 8 


IBM Confidential 


Block pointed 
to by offset 

RX instruct ion 

SS or SI instructions 

4K 

8K 

Reg. 7 as index 
Reg. 8 as index 

LA 5,0(7,BASE) 

LA 5,0(8,BASE) 

12K 

LB 5, A (12K) 

Reg. 5 as index 

LH 5,A(12K) 

AR 5,BASE 

Reg. 5 as base reg. 

16K 

LH 5,A(16K) 

Reg. 5 as index 

LH 5, A (16K) 

AR 5,BASE 

Reg. 5 as base reg. 

20K 

LH 5, A (20K) 

Reg. 5 as index 

LH 5,A(20K) 

AR 5,BASE 

Reg. 5 as base reg. 

24K 

LH 5 ,A (24K) 

Reg. 5 as index 

LH 5, A (24K) 

AR 5,BASE 

Reg. 5 as base reg. 

28K 

LH 5,A(28K) 

Reg. 5 as index 

LH 5, A (28K) 

AR 5,BASE 

Reg. 5 as base reg. 

32K 

LH 5,A (16K) 

AR 5,5 

Reg. 5 as index 

LH 5, A (16K) 

AR 5,5 

AR 5,BASE 

Reg. 5 as base reg. 

36K 

LH 5, A (16K) 

AR 5,5 

AR 5,7 

Reg. 5 as index 

LH 5, A (16K) 

AR 5,5 

AR 5,7 

AR 5, BASE 

Reg. 5 as base reg. 

40K 

LH 5,A (20K) 

AR 5,5 

Reg. 5 as index 

LH 5, A (20K) 

AR 5,5 

AR 5,BASE 

Reg. 5 as base reg. 

5 = one of the registers 5 or 6. 

A(•..) - address of the corresponding constant. 

BASE * base register. 


Figure 4, Generation of Code for Blocks 
with Offset greater than 4K 


Lo gical Flow 

If the first part of OFFTAB is not yet in 
the table space, it is read from SYS001. 

The I/O buffers are filled with text. The 
text is scanned for entries in this part of 
OFFTAB, and the corresponding offset and 
the attribute byte are moved into a special 
stack. The base register and the 4K-block 
are determined and the corresponding code 
is generated. The key and the instruction 
followed by a half-word containing the base 
register and the offset (modulo 4K) are 
then put into the output text string. 

When the end key is found, the next part 
of OFFTAB is read into the table space and 
the text is scanned again from the begin¬ 
ning. This process is repeated until all 
parts off OFFTAB have been in storage. 


N ote : The modifier becomes negative if it 

is greater than X'FFF8'. 


DESCRIPTION OF ROUTINES 

Note: The routines ISU, MOO, and MODIF are 

described in the section General Descrip¬ 
tion of Phases F95 - G55. 


Symbo l s used in flow charts : 


BN 

Number of OFFTAB records 

TS 

Table space 

M 

Number of buffers in TS 

BO, B1, B2 

Initial I/O buffer addresses 

POU 

Output pointer 

POI 

Input pointer 

STA 

Stack 

STAP 

Pointer in STA 

STAR 

Pointer in STA 

HW 

Half-word 

SSS 

Switch for SS instructions 

BOTH 

Switch indicating that R6 
has been saved by a store 
instruction 

OFEN 

Stack for offset 

LEVS 

Stack for level 

RY 

Register containing object¬ 
time base register 

REWO 

1-byte stack indicating the 
free register 

R1, R2, etc. 

General registers 

OBUF 

Output buffer 

IBUF 

Input buffer 

WUP — AP, AQ 



This routine scans the text for end-of- 
statement, machine instructions, and 
Assembler instructions. 


If an end-of-statement of the format 

(D (3) (2) 

r- T - T -1 

| EA | not used |Statement No. | 

L-X-X-J 

is detected, it is transformed into a pseu¬ 
do Assembler instruction of the format 

(D (D (2) (2) 

r - T - T - T - 1 

j 80 I C5 j FF FF j Statement No. | 

L_X_X_X_J 

This format is the same as for the PROCE¬ 
DURE statement. The only difference is 
that it contains X•FFFF• in bytes 3 and 4. 

Assembler and machine instructions are 
differentiated by their first byte, which 
is 80 for Assembler instructions and 88 for 
machine instructions. The individual types 
of Assembler and machine instructions are 
then determined by means of the second byte 
(the code byte) . 

The Assembler instructions are processed 
by individual routines branched to via the 
branch table shown in Figure 5. The rou¬ 
tines are described later. 


Phase PL/IF95 


309 








PL/I PLM 8 


IBM Confidential 


r - T - T - 

|Key|Branch to|Handles 


CO 

| B 

CNOP 

Cl 

| B 

DCAL3 

C2 

j B 

DCX 

C3 

|B 

DSL 

C4 

1 B 

LABEL 

C5 

| B 

PROCE 

C6 

j B 

ENDBL 

C7 

1 B 

DCF 

C8 

1 B 

ADD 

C9 

|B 

DCSTA 

CA 

j B 

PARA 

CB 

B 

UREG 


CNOP 
DCAL3 
DC X 
DS 

Label 

Begin of block 

End of block 

DC X with length of DSA 

Optimizable branch 

DC A (static) 

Connected field 
Free register (6 or 5) 


Figure 5. Format of the Branch Table 

For machine instructions, the instruc¬ 
tion format (RR, RX, RS, SI, and SS) is 
checked. The routine then scans the text 
for operands with one of the keys El, E9, 
E4, E5, and 00. The scanned element is 
moved into a special 18-byte stack. STAR 
always points to the first free byte in 
STA. Pointer STAP is used to indicate the 
position of the keys. 

If one of the keys El, E9, or E4 is 
found, the routine OGE is called to 
retrieve the offset from OFFTAB, add the 
modifier, determine the base register and 
the 4K-block and generate code, if neces¬ 
sary, insert the base register and the 
offset into the half-word following the 
modifier as shown in Figure 1. 

If one of the keys E5 or 00 is found, 
only a part of OGE (0GE1) is used to gener¬ 
ate code if the modifier is greater than or 
equal to 4K, and to insert offset and reg¬ 
ister (for key E5 only) into the half-word 
following the the modifier half-word in 
STA. 


bits 0-1: 
bit 2 
bits 3-7: 


level 

1 = automatic 
off 


For static variables, register 12 is 
used as base register. 

For automatic variables, the block con¬ 
taining the variable is determined. Figure 
6 shows the register used for the current 
block level and the level of the variable. 
The base register is returned in RY. 



T' 

1 

CURRENT 

BLOCK 

LEVEL 

i 

VARIABLE 

l~ 

LEVEL| 

1 

"T" 

1 

2 

r— 
1 

3 

H 

1 

1 

- 

1 

13 

1 

11 

1 

1 1 

H 

1 

2 

1 

ERROR 

1 

13 

1 

10 

1 

3 

1 

X- 

ERROR 

1 

-X- 

ERROR 

1 

_J__ 

13 

1 

_ J 


Figure 6. 


Base Registers Used for Block 
and Variable Level 


MOK 


AT 


MOK inserts the base register (contained in 
RY) into the leftmost 4 bits of the half¬ 
word at STAR and the rightmost 12 bits of 
the offset into the other 12 bits. 


KBT — AT , AU, AV, AW 

KBT determines the 4K-block and 
distinguishes the offsets as follows: 


1 . 

offset 

smaller 

than 

12K 



2. 

of f set 

greater 

than 

or 

equal 

to 

12K and 


smaller than 32K 





3. 

offset 

greater 

than 

or 

equal 

to 

32K 




OGE_--AR 

OGE determines whether or not the name at 
STAP+5 is an entry in the present part of 
OFFTAB. If it is an entry, OGE moves off¬ 
set and attribute byte to OFEN+2, deter¬ 
mines the base register, changes the key, 
and moves base register plus offset into 
the corresponding column of STA. If addi¬ 
tional code is required, it is generated by 
means of the routine KBT. 


In each of these cases it determines wheth¬ 
er or not the instruction is an RX instruc¬ 
tion. 

It generates code by means of 3 masks 
(see M IO -- AY ) corresponding to the 
4K-block and the type of instruction and 
returns the number of the base register in 
RY. The number of the index register, if 
any, is inserted into the instruction at 
STA+3. 


BAS — AS 


FRR — AX 


This routine determines the base register 
by means of the variable level (in the 
attribute byte at OFEN+4) and the current 
block level (in LEVS) . 

The attribute byte has the following 
format: 


This routine determines which of the two 
registers 5 or 6 is free and returns the 
number of the free register in R2. If both 
registers are free, 6 is returned. If no 
register is free, R2 is set to zero. 

Whether or not a register is free is indi¬ 
cated by the byte REWO (see Figure 7) . 
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If a free register is used for the first 
operand of an SS instruction (SWITCH=1) , 
bits 4 (for R5) and 5 (for R6) are set to 
prevent the use of these registers for the 
second operand. Therefore, these bits are 
always tested when a free register is 
found. If the corresponding bit is on, the 
other register is used and its contents are 
saved, if required. 


PCX — AZ 

The length of the element is determined by 
adding 4 to the length half-word. The 
element is then put into the output stream. 


DSL, L ABEL, D C F, DC ST A, ENDBL 


r - T - 

|Bit | Meaning 


1 0-3 | 

Not used 




1 4 1 

If on, register 

5 is 

used for 

first) 

1 1 

operand of an SS 

instruction 


1 5 1 

If on, register 

6 is 

used for 

first] 

1 1 

operand of an SS 

instruction 


I 6 1 

If on, register 

5 is 

free 


1 7 1 

If on, register 

6 is 

free 



Figure 7. Available Registers as Indicated 
by Byte REWO 


MIO — AY 


All these routines are identical to MULTI. 
MULTI — AZ 


This routine moves the element (length 4 
bytes) into OBUF. 

PROCE — BA 


This routine determines whether there is a 
statement number or not. If there is a 
statement number, the element is put out. 
Otherwise, this routine stores the level 
from POI+2 at LEVS and calls MOO to move 
the element into OBUF. 


MIO puts a mask, the initial address of 
which has been inserted into RO, into OBUF. 
It identifies the mask and thus its length. 
The hexadecimal formats of the masks are as 
f ollows: 

LH mask (9 bytes) : 

88 48 00 00 El 00 04 00 00 

AR mask (4 bytes) : 

88 1A 00 00 

LA mask (9 bytes) : 

88 41 00 00 E5 00 00 00 00 

L mask (9 bytes) : 

88 58 06 00 El 00 06 00 00 

ST mask (9 bytes) : 

88 50 06 00 El 00 06 00 00 

CNOP -- AZ 

This routine is identical to MULTI. 

DC A L3 — AZ 

The element (length 7 bytes) is moved into 
OBUF. 


ADD — BB 


The pseudo assembler instruction and the 
following branch are put into OBUF. 

PARA -- BA 


The following elements of length LC 
(restricted to 256) are regarded as one 
unit and put into OBUF together with the 
preceding assembler pseudo instruction 
PARA. No additional ADD, CNOP, or LABEL 
may occur in the string. 

UREG -- BB 


The free register (5 or 6) is flagged in a 
special flag byte REWO. If bit 7 of REWO 
is on, register 6 is available. If bit 6 
is on, register 5 is available. The reg¬ 
ister that may not be used is specified in 
the second half-word of the instruction. 

If it contains 5, this means that register 
5 is not free. If it contains zero, both 
registers are free. The element is then 
put into OBUF. 
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PH ASE PL/IGQQ (LABEL HANDLING) — BF 


This phase performs the following func¬ 
tions: 

1. It constructs a label table LABTAB 
which contains the internal names of 
the labels, the location counter values 
relative to the beginning of each pro¬ 
gram block, and the number of the pro¬ 
gram block; 


2. It constructs a program block table PBT 
which contains the names and addresses 
of the program blocks; 


3. It optimizes the code for branches to 
label constants inside the same 12K 
segment and updates LA.BTAB and PBT. 
The code generated for branches that 
cannot be optimized is shown in the 
section Ge nerate d C ode and Optimiza - 
tion. 


Bl ock Structur e 

The source program has a special block 
structure; blocks may be nested into one 
another up to a level of 3. This block 
structure is assorted in a previous phase, 
so that there is no longer any nesting. 

Each program block may have a maximum 
length of 32K bytes. Because most of the 
branch instructions branch to labels inside 
of the same program block, the label han¬ 
dling is optimized within a program block. 
All branches to labels outside of the block 
are not optimized. 

If any program block is larger than 12K 
bytes, it has to be divided into segments 
of 12K. At the end of each (full) 12K 
segment, an instruction 

BALR 9,0 

is generated so that register 9 is always 
loaded with the initial address of the 
current 12K segment. For the first 12K 
segment of each program block, register 9 
is loaded by the prologue. 

A branch within a 12K segment may 
require a displacement greater than or 
equal to 4K. Therefore, the general reg¬ 
isters 7 (loaded with 4K) and 8 (loaded 
with 8K) are used as index registers. 

Thus, any branch inside of a 12K segment is 
possible without using a displacement 
greater than or equal to 4K. 


Gener a ted Code and Optimization 


In phase E50, a 4-byte pseudo Assembler 
instruction of the format 

[ 80 T C8 T LABEL ] 

L_X_X_ J 

is generated in front of each branch to a 
label constant inside the same program 
block so that the code can be optimized as 
follows: 

1. The branch instruction and the label 
appear in the same 12K segment of the 
same program block: 

The pseudo Assembler instruction is 
deleted and the branch may be modified 
by inserting register 7 or 8 as index 
register (if the displacement is great¬ 
er than 4K-1 or 8K-1, respectively). 

2. The branch instruction and the label 
appear in different 12K segments of the 
same program block: 

The code to be generated depends on the 
type of branch instruction. 

a. Absolute branch 

AH 9, =X' 3000 ' (or = X' 6000') 

BC F,LABEL 

b. Conditional branch 

BALR 14,0 

AH 9,=X'3 000 ' 

SPM 14,0 

BC 8,LABEL 

SH 9,=X'3000' 

c. BCT and BAL 

AH 9,-X 1 3000 1 

BAL LINK,LABEL 

SH 9,=X'3000' 

If the label has an offset smaller than 
that of the branch instruction, the AH 
will be replaced by an SH and the SH by 
an AH. The constants 12K and 24K are 
half-words contained in static storage. 


Const r uction of LABTAB and PBT 

LABTAB and PBT are constructed in the rou¬ 
tine LATA. The text is scanned for the 
pseudo Assembler instructions PROCEDURE, 
END OF BLOCK, and LABEL. 
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1. When PROCEDURE is found, the number of 
the program block is stored in a stack, 
the name and the location counter LOCI, 
which counts the offset from the begin¬ 
ning of the program, are inserted in 
PBT at a location given by the block 
number (PBN). The second location 
counter LOCO, which counts the offset 
from the beginning of the program 
block, is set to zero to start a new 
count. The entry name is inserted in 
LABTAB with the location 0. 

The format of PBT and LABTAB entries is 
as follows: 

PBT : 

Name (2 bytes) 

Offset (LOCI) (2 bytes) 

LAB TAB : Name (2 bytes) 

Offset (LOCO) (2 bytes) 

PBN (1 byte) 

2. When END OF BLOCK is found, it is 
checked whether LOCO is greater than 
32 k and whether LOCI is greater than 
64K. An error is indicated if either 
one of these conditions is detected. 

The part of LABTAB that pertains to 
this block is written on SYS001. 

3. When LABEL is found, the name, LOCO, 
and the block number PBN are inserted 
at the appropriate location in LABTAB. 
While PBT remains in storage for phase 
G15, LABTAB is written on SYS001 for 
the phases G01 and G25. 


Op timization of Text Code 

The text is scanned for the 4-byte special 
pseudo Assembler instruction ADD, which 
indicates an optimizable branch. This 
instruction has the format. 

r- t-t- 1 

j 80 | C8 | LABEL j 

L_X_X_J 

The present part of LABTAB is scanned 

for the label and, if the label is found, 
the label offset is compared with the cur¬ 
rent location counter LOCO if the label and 
the ADD instruction are located in the same 
program block. If label and instruction 
appear in the same 12K segment, the pseudo 
Assembler instruction is deleted and the 
following instruction is modified. The 
label offsets of this program block in 
LABTAB and all offsets of following blocks 
in PBT are updated. 

If label and instruction do not appear 
in the same 12K segment, code is generated 
as described in the section Gen erated Cod e 
and Opt imizati on. 


At the end of a 12K segment, an instruc¬ 
tion 

BALR 9,0 

is generated to load register 9 with the 
initial address of the following segment. 
This instruction must be exactly at the end 
of the 12K segment. This is achieved by 
inserting one or more instructions of the 
type 

BCR 0,0 

if necessary. 


Criti c al Cases and Boundary Problems 

There are some critical cases at the end of 
each 12K segment. Because the LABTAB was 
constructed when maximum code was present 
or simulated by the pseudo Assembler 
instruction, some labels may get from one 
12K segment into the other during this 
phase due to the deletion of code. 



Figure 1. Calling of Label A at Different 
Moments of Compile Time 

Figure 1 shows two cases of calling 
LABEL A at different moments of compile 
time. While in case 1 instruction and 
label are situated in different segments, 
they are in the same segment in case 2, 
although instructions 1 and 2 are situated 
in the same segment. These cases are han¬ 
dled differently as follows: 

Case 1 : 

The ADD instruction is not deleted because 
it is not known whether or not LABEL A will 
go into the same segment. In phase G15, 
where it can be determined whether label 
and instruction are in the same segment, 
the generated AH instruction is modified to 
a NOPR instruction by inserting the address 
of a zero half-word into the AH instruc¬ 
tion, so that zero is added to register 9. 
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C ase 2: 

The pseudo Assembler instruction is deleted 
and no code is generated. Another critical 
case occurs, for instance, if there is only 
one label to be called in a 12K segment, 
and this is situated just before the last 
instruction of the segment. Because a 

BALR 9,0 

instruction has to be generated at the end 
of each 12K segment, it may happen that the 
label is moved into the next segment so 
that the optimization performed before 
becomes wrong. To exclude this case, A 
will be regarded as being situated in the 
next block, so that no optimization is 
performed. 

Due to the limited table space, only a 
part of LABTAB may fit into storage so that 
the rest remains on SYS001. Because each 
LABTAB entry has 5 bytes, the maximum num¬ 
ber of present labels is restricted to 
FLOOR[M+BUFFERLENGTH:5| =NPL where M is the 
number of buffers in the table space. For 
a 16K system with a buffer length of 256 
bytes, the number of labels in the table 
space is NPL = FLOOR (9x256: 5) =460. 

If NPL is smaller than the number of 
labels of one 12K segment, some labels, 
although belonging to the same segment, may 
not be present in the table space and, 
therefore, be regarded as belonging to 
another segment. The corresponding branch¬ 
es are not optimized. Optimization is 
stopped when coming to a branch with cur¬ 
rent offset greater than the offset of the 
last present label. 


P has e I npu t an d Outp ut 


Phase input is the output text string of 
phase F95. The I/O buffers B1 and B2 are 
used for accommodating the text input (the 
pointer is POI) . Input is controlled by 
the subroutine ISU. 

LABTAB is intermediately written on 
SYS001 if it becomes larger than the table 
space. It is put out in records of buffer 
length (ZTAB19) and read again into the 
table space for updating. At the end of 
each block, the corresponding updated part 
of LABTAB is written on SYS001 (ZTAB20) . 
Thus, LABTAB is completely on SYS001 at the 
end of the phase. PBT is left in storage. 
It is placed at the end of the program 
space by an ORG instruction. 

Buffer BO and the pointer POU are used 
for output. The output consists of the 
optimized text string which contains only 
one new element: 


(D (D 0) (D (1) d) (2) (2) 

f - T - T -T-T-1-T-T- 1 

j 80 j CO | OP j X j 00 I El jNAME|0000| 

I I |code) I I I I I 

L_X-X-X_X_X-J_X_J 

This element represents the optimized 
branch instruction. The special pseudo 
Assembler instruction ADD is changed in 
this phase to 

(1) (1) (1) (1) (1) (1) (2) (2) 

r-T-T-T-T-T-T-T-1 

I I I 4A | | | | | | 

| 80 j C8 | or j 9 j 00 j El |NAME| 0 | 

I I I 4B | | | | | | 

L_X_X_X-X_X_X_X_J 

The CNOP instruction 

r-T-T-T—--1 

| 80 I CO I B I W I 

L_X_X_X_J 

is replaced by a corresponding number of 
BCR 0,0 

instructions of the format 

r- t-t-t- 1 

| 88 | 07 | 00 | 00 | 

L_X_X_X_J 

so that the key CO is available for the 
other instructions, and the instructions 

r-T-T-T-~T 

| 80 j CA j LC I LO j and 


r - T - T - 

j 80 j CB | KEY 

L-X-X- 

are deleted. 


DESCRIPTION OF ROUTINES 

Note: The routines ISU, MOO, and MODIF are 

described in the section General Descrip¬ 
tion of P h ases F95 - G55 . 

Symbols used in flow charts: 


B0, Bl , 

B2 - Initial addresses 
buffers 

of the I/O 

BUFL 

- Buffer length 


OBUF 

- Output buffer (for 
same as B0 

text) , 

IBUF 

- Input buffer (for 

text) 

POU 

- Pointer for OBUF 


POI 

- Pointer for input 

buffers 

LAPO 

- Pointer for LABTAB 
I/O buffers 

in the 

TS 

- Initial address of 
space 

table 



€ 


314 
















PL/I PLM 8 


IBM Confidential 


TSE 


End of table space (points 
to first byte after table 
space) 

LSP 

" 

Pointer for LABTAB in table 
space 

NLB 

- 

Number of LABTAB buffers 

LAPO 

— 

Pointer in table space to 
insert labels into LABTAB 

BA 

- 

BUFL of BO 

LASTAD 

— 

Address of last updated 
LABTAB element + 5 

BTS 

- 

TS + BUFL 

LOCO 

— 

Location counter from 
beginning of a program block 

LOCI 


Location counter from 
beginning of program 

UPCO 

- 

Update counter 

UP 

— 

Update counter for present 
LABTAB part 

PBTCO 

— 

Pointer for PBT and other 
tables 

BRAN1 

- 

Branch table 

N 

— 

Number of current 12K 
segment 

sss 

- 

Switch for SS format 

SRS 

- 

Switch for labels 

CCB 

— 

Switch for conditional 
branches 

NLBSTA 

- 

Stack for NLB 

NO 

R0, R1, 

R2, 

Number of program blocks 

RX, RY 

- 

Working registers 

PBT 

- 

Program block table 

OFFTAB 

- 

Offset table 

LABTAB 

- 

Label table 

M 

- 

Number of buffers in TS 


LATA 21 BI 

LATA constructs the first version of LAB- 
TAB. It scans the text string for the 
pseudo Assembler instructions LABEL, PROCE¬ 
DURE, and END of block. Two location coun¬ 
ters are used. LOCO counts from the begin¬ 
ning of each program block; LOCI counts 
from the beginning of the program. 

1. When LABEL is found, LOCO is stored in 
LABTAB together with the label name and 
the number of the current program 
block. 

2. When PROCEDURE is found, the number of 
the program block is stored in a stack. 
The name and LOCI are inserted into PBT 
at a location given by the block number 

(PBN) . LOCO is set to zero to start a 
new count. The entry name is inserted 
into LABTAB with the location 0. The 
format of the entries in PBT is as 
follows: 

bytes 1 - 2 : name 

bytes 3 - 4 : offset (LOCI) 

The format of the entries in LABTAB is 
as follows; 


bytes 1 - 2 : name 

bytes 3 - 4 : offset (LOCO) 

byte 5 : program block number 

3. When END OF BLOCK is found, an error is 
indicated if LOCI is greater than 64K 
or if LOCO is greater than 32K. 


LABE -- BJ 

If the pseudo Assembler instruction LABEL 
is found, LOCO is stored in LABTAB together 
with the internal name of the label and the 
current program block number contained in 
the corresponding stack. LABTAB is written 
on SYS001 if an overflow occurs. The ele¬ 
ment LABEL is put into OBUF. 

UDA — BK 

UDA updates those offsets of the present 
labels in LABTAB of the current program 
block that are greater than the value of 
the current location counter LOCO with the 
value given in UP. The same updating is 
performed for the offsets in PBT that are 
greater than the value of LOCI. 

MOC — BL 

If the half-word pointed to by LSP contains 
the end key (X f FFFF') , LABTAB is written on 
SYS001. It is tested whether the byte 
pointed to by LSP + 4 (block number) is 
equal to PBN. If it is not, the routine 
returns. If the label location is greater 
than LOCO, the routine returns. If it is 
not, LSP is increased by 5. If LSP becomes 
greater than TS + BUFL, the first buffer in 
the table space is written on SYS001. LSP 
is decreased by BUFL and a new LABTAB 
record, if any, is read in and updated. 

S CAL — BM 

If switch SRS is off, SCAL scans the pre¬ 
sent part of LABTAB for the label at POI + 
2. If SRS is on, the label is regarded as 
not belonging to the same 12K segment. 

Thus, optimization is suppressed for 
branches of that part of a 12K segment the 
labels of which are not present in the 
table space. 

Before scanning LABTAB, the current 
program block number PBN and LOCO are com¬ 
pared with the number of the last present 
LABTAB entry. If the PBNs are identical 
and LOCO is greaer than the label offset, 
SRS is set to one. SRS is reset if the end 
of the program block or the 12K segment is 
found. 

If the label is in the present part and 
belongs to the same program block and the 
same 12K segment, SCAL returns RX * 0; 
otherwise, it returns RX = 0. 
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M ADM — BN 

This routine moves the ADD mask to OBUF by 
means of the routine MOC. 


SBO — BN 

This routine is used for the handling at 
the 12K segment boundaries. It generates 

BCR 0,0 

instructions until LOCO has the value 
N+12K-2. The instruction 

BALR 9,0 

is generated to load register 9 with the 
initial address of following segment. 

The location counters and the update 
counter are adjusted. The present labels 
are updated (by calling UDA) , and new 
labels are read into the table space (by 
calling MOC) . 


Branch Table BRAN1 and Routines 


To determine the various Assembler instruc¬ 
tions, the code byte is used as offset in a 
branch table BRAN1 which contains branches 
to corresponding subroutines. For the 
format of the branch table refer to phase 
F95. 

The individual routines branched to via 
the branch table perform the following 
functions: 

CN OP ( T est N) — BO 

N = 0 : Word boundary: Add 2 to location 
counters. Double-word boundary: 

Add 6 to location counters. Skip 
the element. 

N # 0 : Evaluate the increment of the loca¬ 
tion counters. Generate a corres¬ 
ponding number of 


instructions. Update the present 
label offsets of LABTAB, change 
UPCO and update PBT. 


DCAL3 — BO 

The location counters are increased by 3 
and the element is moved into OBUF. 

PC X — BO 

The second half-word (L) of the element is 
added to the location counters and the 
element is put into OBUF. 


D SL — BP 

The second half-word (L) of the element is 
added to the location counters and the 
element is moved into OBUF. 

LABEL (Test N) — BP 


N = 0 : Branch to LABE. 

N * 0 : Move the element into OBUF. 

PROCE — BQ 


The routine checks whether there is a 
statement number. If there is not, it 
stores the program block number in stack 
PBN and sets LOCO to zero. It tests wheth¬ 
er N = 0. 

N = 0 : Insert the name of the block and 
LOCI into PBT and the name with 
LOCO into LABTAB. 

N * 0 : Move the element into OBUF. 

If it is a statement number, the element 
is moved into OBUF. 

ENDBL — BQ 


An error message is produced by calling 
phase G31 if either LOCO > 32K or LOCI > 
64K. Call MOC to write the labels of the 
current block on SYS001 and read the next 
part of LABTAB into the table space, if 
possible. Move the element into OBUF. 

DCF -- BQ 


The location counters are increased by 4 
and the element is moved into OBUF. 

ADD — BR 

N = 0 : Determine the type of the following 
branch instruction and increase the 
location counters accordingly. 

Skip the element and the following 
branch instruction. 

N t 0 : Call SCAL to scan LABTAB for the 
label (second half-word). Deter¬ 
mine whether the label belongs to 
the same 12K segment as the 
instruction. 

1. If not the same 12K segment: 

Insert name and instruction key into 
the ADD mask of following format: 

(1) (1) (1) (1) (1) (1) (2) (2) 
r - T - T -T-T-T-T-T-1 

I I MA| | | | | | 

j 80 j C8 j 4B j 9 | 0 j E3 j NAME| 0 | 

L_X_X_X_X-X_X_X-J 
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a. An absolute branch follows: The ADD 
mask followed by the branch 
instruction is put into OBUF. 

b. A BAL or BCT instruction follows: 
The ADD mask is put into OBUF fol¬ 
lowed by the branch instruction and 
an SH instruction of corresponding 
format. 

c. A conditional branch follows: The 
following sequence of instructions 
is generated: 


BALR 

14,0 

AH 

9,.. 

SPM 

14 

BC 

... 

SH 

9,.. 


The location counters are increased 
accordingly. If the generated 
instructions should not fit in the 
current 12K segment, corresponding 
NOPR instructions are inserted and 
the instructions are put into the 
next segment. 

2. Same 12K segment: 

Delete the pseudo Assembler instruction 
by adjusting the pointer POI and change 
the following branch instruction to the 
format 

(1) (1) (1) (1) (1) (1) (2) (2) 

r - T - T -T-T-T-T-T-1 

I I I Op. I I I I | I 

I 80 I CO Icgdel X I 0 j El |NAME| 0 | 

L_ JL _ 1 _X-X_X_X-X-J 

Put this element into OBUF and increase 
the location counters by 4. Update the 
label table LABTAB and PBT. 


DCSTA — BP 

The location counters are increased by 4 
and the element is moved into OBUF. 


PARA — BT 

N = 0 : Increase the location counters by 
the length LO (contained in the 
byte at POI + 3) . Skip the element 
of length 4 and the following 
string of length LC. 

N t 0 : Delete the pseudo Assembler 

instruction (POI + 4) . Test wheth¬ 
er LOCO + LO is greater than N*12K 
- 2. If the value is not greater, 
increase LOCO and LOCI by LO. Put 
the string at POI (length LC) into 
OBUF. If the value is greater, 
evaluate 

N*12K - 2 - LOCO = ABS. 

Generate ABS: 2 instructions of the 
type 

BCR 0,0 

Increase the location counters by 
ABS + 2 and N by 1. Then generate 
an instruction 

BALR 9,0; 

update present labels and branch to 
the action listed under item 1. 

UREG - - B T 

This instruction is deleted during the 
construction of LABTAB by increasing the 
pointer POI by 4. 
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PHASE PL/IG01. (LABEL OFFSETS) 


The offset table OFFTAB is listed if the 
SYM option is active. This phase inserts 
the label offsets and block numbers from 
the label table LABTAB into the offset 
table OFFTAB. The offset table is put into 
the table space in subsequent parts. The 
label table is read into the I/O buffers 
record by record. 

Each LABTAB record is scanned. For each 
entry, the offset half-word and the follow¬ 
ing program block number are inserted into 
the present part of OFFTAB, if possible. 

The scan of LABTAB is repeated until all 
parts of OFFTAB have been in the table 
space. 


Phase I npu t and Output 

The input consists of the two tables OFFTAB 
and LABTAB retrieved from SYS001. OFFTAB 
is read into the table space in parts of M 
records. The value of M is stored at 
IJKMIP+2. 

LABTAB is read (record by record) into 
the I/O buffers BO and°Bl with the pointer 
LAPO. Each record is processed separately. 
If the end of LABTAB is found, the next 
part of OFFTAB is written into the table 
space and reading of LABTAB starts again 
with the first record. 

The output (used by phase G15) consists 
of the changed offset table which is writ¬ 
ten onto SYS001 under ZTAB07. 

O FLIS -- CC 

This routine lists the offset table OFFTAB 
in the following format (in the example, 
the start address of the static storage is 
assumed to be 4 000) : 


r-T-T-T-1 

I INTERNAL | OFFSET j TYPE | MODULE | 

j NAME j j | OFFSET | 

l - -i-i-i-*1 

j 0101 j 0024 j STATIC | 004024 | 

j 0102 *| 0038 j AUTOMATIC) j 

L_X_X_X_J 

Variables,- constants, or labels that do 
not have an offset in static or automatic 
storage are not listed. For entry names, 
the offset of the generated address con¬ 
stants in static storage are written. 

RAN — CD 

RAN inserts one line of the offset table 
into the print buffer. For the format of 
the line see the section OFLIS — CC . Then 
the line is printed by the routine ZPRNT. 

TRANS — CD 

This routine translates hexadecimal values 
into EBCDIC. The bytes (the number of 
which is given in R2) at 0 (R1) are trans¬ 
lated and moved into the print buffer at 
the location given in R0. 

WOLA - - C B 

WOLA inserts the offsets and block numbers 
of the present part of LABTAB into the 
present part of OFFTAB. 

It takes the first half-word of a LABTAB 
entry, multiplies it by 3, and takes the 
value as offset in the offset table. It 
then inserts offset and block number at the 
position indicated by the offset. The 
pointer LAPO is increased by 5 for adjust¬ 
ment to the next entry. The routine 
returns when it finds the end key or reach¬ 
es the end of the first buffer. 
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PHASE P L/I G15_(FINAL OFFSET PRE PAR ATION ) — CH 


This phase inserts the offsets from OFFTAB 
together with the corresponding base Reg¬ 
isters into the instructions. A half-word 
following the instruction is reserved for 
this purpose as described in phase F95. 

For address constants, three bytes are 
reserved for the offset. 

The phase consists of two main parts: 

1. Processing of the text string and 

2. Processing of the constants contained 
in static storage. 


c. The key X'OO* denotes an absolute 

address, i.e., the name field is free, 
no base register has to be taken, and 
the modifier has to be inserted as 
offset. 

Though most of the instructions were 
processed in phase F95, some are left 
because the offsets for the labels 
could not be inserted; some strings, 
the elements of which should be con¬ 
nected, have not yet been processed; 
and the address constants could not be 
processed because some of them might 
contain labels. 


Te xt String 

The text output of phase COO is the input 
of this phase. The text is scanned for RX, 
RS, SI, SS, and DC AL3 instructions. The 
format of the operands of these instruc¬ 
tions is as follows: 


byte 1 : key 

bytes 2-3 : name 
bytes 4-5 : modifier 


The key may have the following values: 


X 1 E1 ' 
X 1 E9 ' 
X f E4' 

X 1 E5' 
X'OO" 
X' 1 1 ■ 
X'10 1 

X I 20 1 


declared variable 
constant 

generated variable 
register 
absolute address 
DC AL3 (label) 
already processed 
DC VL3 


a. The first three keys mark the following 
field as entry in OFFTAB. In these 
cases, the offset is taken from OFFTAB. 
The modifier is added, the correspond¬ 
ing base register evaluated, and both 
are inserted into half-word following 
the operand. 

The key is changed to X'10' to mark 
that the element has already been proc¬ 
essed. 

Address constants require special 
treatment because the offset may become 
greater than 64K. Therefore, the off¬ 
set is inserted into the following 3 
bytes. 

b. The key X'E5' denotes that the operand 

(the half-word nam e) is a register. 

The register is taken as base register 
and the modifier as offset. Both are 
inserted into the following half-word 
as described under item a. The key is 
changed to X*10•. 


d. The key X'10 1 is used to mark operands 
already processed, i.e., that the half¬ 
word with offset and base register has 
already been inserted. 

Besides those normal cases, two special 
instructions have to be regarded. 

Those are the special pseudo assembler 
instructions with the code byte X'CO' 
or X'C8 *, respectively. (See phase 
GOO) . Special base and index registers 
have to be inserted besides the offset 
in these cases. 


Constants 


The constants are on SYS001 in the table 
CONTAB. They have the following format: 

bytes 1 - 2 : internal name 

byte 3 : attribute 

bytes 4 - 5‘: length 

bytes 6 - n : constant 

The attribute byte has the following 
format: 


bits 

0-1 : 

00 

= 

constant of type 

DC 

X 



01 

= 

constant of type 

DC 

A 



10 

= 

constant of type 

DC 

V 



11 

= 

constant of type 

DC 

AL3 

bit 

2 : 

0 

= 

not optimizable 





1 

= 

optimizable 



bit 

3 : 



not used 



bit 

4 : 

1 


DCVL3 if bits 0-1 

are on. 

bit 

5 : 

1 

= 

word boundary 



bits 

6-7 : 

01 

= 

DC X for label assignment 





DC A for segment 

origin 



10 

= 

DC A of an entry 

name 



11 

= 

double-word boundary 


The constant itself is given in the inter¬ 
nal representation or, if it is an address 
constant, as name plus modifier (4 bytes) . 
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Byte (s) 


r~ 

Instruction| 

j 

--p- 

1 1 

2 i 

3 j 4 i 

— 

1-1 

1 1 

o 

— 

<T\ 

— 

00 

— 

r- 

DC X | 

80 i 

C2 i 

length | 

constant. 

T 

1 

-+- 

--+- 

--+- 

- T -x_ 

- T - 

—i- 


DC 

A 

l 

I- 

80 

i 

-I- 

CA 

1 

-1- 

10 

i 

-I 

name 

i 

- I- 

modifier| 
. 1 

offset 

DC 

V 

T 

1 

_ 1 

80 

T 

1 

-I- 

CB 

T 

1 

-I- 

10 

T 

1 

-I— 

name 

t 

1 

T 

modifier| 

l 

offset 

DC 

AL 3 

- 1 

1 

_l 

80 

t 

1 

-4— 

Cl 

t 

1 

1 _ 

10 

t 

1 

1 _ 

name 

— t 

1 

T 

modifier| 

offset 

DC 

VL 3 

- 1 

1 

80 

+ 

I 

Cl 

T 

1 

13 

t 

1 

name 

— t 

1 

T 

modifier| 

of f set 


Figure 1. Output Format of Translated Constants 


These constants are translated into the 
same format as those in the text string, 
and the offset for address constants is 
inserted. For DC A, the code byte X'CA* 
and for DC V the code byte X'CB' is used. 
The constants are put onto the text medium 
behind the normal text; the end key is put 
at the end of the constants so that there 
is no difference between the two parts in 
following phases. At the begin of the 
constants, a label FFFF is generated denot¬ 
ing the begin of static storage. 


The output is shown in Figure 1. 


Two keys are used for DC AL3 because two 
types of instructions may occur: 1) the 
normal DC AL3 with the key X'10' and 2) a 
DC VL3 (flagged by bit 4 of the attribute 
byte) with the key X’30*. 

The names in front of the constants, 
used to address them, are inserted into a 
pseudo assembler instruction LABEL. 

Special constants: 

a. For GOTOs from one program block to a 
label in another one, the following DC 
instructions are used: 

L'aaaa' DC A (BLOCK + 12K segment) 

DC X* OFFSET 1 

The DC A constant contains the address 
of the program block and a multiple of 
12K as modifier representing the ini¬ 
tial offset of the 12K segment corres¬ 
ponding to the label. 

The 4-byte DC X constant is the label 
offset in the block reduced by the 
offset of the corresponding 12K seg¬ 
ment. 

The output formats of these constants 
are shown in Figure 2. 


00 

o 

— 

C4 

label aaaa 

—1 

1 


_X 

— 

t - ~r t- 

| ] BLOCK j 

_J 

"T 

1 

o 

00 

CA 

110 NAME j 

N* 12K 

|OFFSET 

_X 

— 

1 

h 

1 

1 

1 

1 

h 

1 

1 

1 

1 

I 

1 

1 

h 

i 

- 

-X _ 

I = 0 

or 

1 or 2 



1 

00 1 
o 1 

1 

—1 

C2 

T T _ - - 

j 4 j CONSTANT 

1 


__L 

_ 

XX 

.j 



Figure 2. Output Formats of DC A and 

DC X Constants Generated for 
GOTOs. 


r 


DC A | 12K 


i-- 

i 

DC X j L : <— n LABEL L 

I I 

L_ | 

I 

r- I 

I I 

I J 

| GOTO X —J X = L 


L_ 

b. To correctly load register 9 (in the 

prologue) when calling an entry name, a 
constant 

•Label DC A (BLOCK + 12K segment) ' 

is used. Its output is the same as 
that of the previous instruction. 
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General Flow 


The offset table is read into the table 
space and the text is scanned and proc¬ 
essed, If the End key is found, the con¬ 
stant table CONTAB is read into the buf¬ 
fers. The format is changed, the offset 
inserted, and the constants are written 
behind the text string. 

If the offset table is greater than the 
table space, the text followed by the con¬ 
stants is scanned again. This process is 
repeated until all parts of OFFTAB have 
been in the table space. At the end of the 
phase it is tested whether a file table 
exists. If there is a file table, phase 
G17 is called. Otherwise, phase G17 is 
skipped and phase G20 is called. 

Ph ase Input and Output 

The input consists of the text string as 
generated in phase GOO and of the following 
tables: 

OFFTAB Offset table to be found on SYS001 
under ZTAB07 or, if small enough, 
in the table space. 

CONTAB Constant table to be found on 

SYS001 under ZTAB08. It is read 
into the I/O buffers. 

CARTAB Character-string table to be found 
on SYS001 under ZTAB00. It is read 
in and put behind the text string. 

EXTTAB External name table to be found on 
SYS001 under ZTAB04. It is written 
onto the free text medium at the 
end of the phase. 

PBT Program block table in the program 

space (generated by phase GOO) . 

The text is read into the I/O buffers B1 
and B2 with the pointer POI and put out by 
means of the output buffer BO with the 
pointer POU. 


Symbols used in flow ch art s 


B0, B1, 

B2 

— 

I/O buffer begin 
addresses 

IBUF 


- 

Input buffers 

OBUF 


- 

Output buffers 

POI 


- 

Input pointer 

POU 


- 

Output pointer 

BRAN2 


- 

Branch table 

LOCO 


- 

Location counter 

DCXMA 


- 

Address of the DC X mask 

OFEN 


- 

Storage area for offset 

HW 


- 

Half-word 

BN 


— 

Number of OFFTAB records 
left 

R0, R1, 

R2, 

RY - 

Working registers 

sss 


- 

Switch for SS instructions 


SW 

REN 

LAMA 

CN 

PSC 

AMA 

DSLMA 

SW 0 

M 


Switch for the constants 
Register containing the 
name 

Address of LABEL mask 
Number of constant records 
Pointer for constants 
Address of DC A mask 
Address of DS mask 
Switch for DC SO 
Number of buffers in the 
table space 


Funct i onal Description 

This phase has the following functions: 

1. To scan the text for instructions not 
yet processed. 

2. To generate the half-word containing 
base register and offset after the 
operand. 

3. To change the format of the constants 
in static storage. 

4. To insert the offsets for address con¬ 
stants into the succeeding 3 bytes. 

Since OFFTAB may become greater than the 
table space, only a part of OFFTAB might be 
present in storage. Therefore, the text 
string and the constants may have to be 
scanned several times, once for each part 
of OFFTAB. 


Machine Instructions 


The instruction format is determined by 
testing bits 0 and 1 of the operation-code 
byte. 


RR Format 

The element is moved into OBUF and LOCO is 
increased by 2. 

RX, R S , o r SI Format 

LOCO is increased by 4. The key at POI+4 
is tested. If the key is El, E9 or E4, the 
offset is taken from OFFTAB together with 
the attribute byte. The modifier is added 
to the rightmost 12 bits of the offset, and 
the base register is evaluated. The ele¬ 
ment is put into output after the key has 
been changed. The half-word containing 
base register and offset is put behind the 
element. 

If the key is E5, the offset half-word 
is constructed from register and modifier. 
If the key is 00, the modifier is used as 
offset half-word. If the key is 10, the 
element is moved into the output. 
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SS For mat 

Both operands of the instruction are han¬ 
dled as described for the RX, RS, and SI 
instructions. The element is put into the 
output in two parts. LOCO is increased by 

6 . 


A ssembler Instructions 

The individual assembler instructions are 
determined by the second byte which con¬ 
tains the instruction key. The keys are: 

CO - optimized BRANCH 

Cl - DC AL3 

C2 - DC X 

C3 - DS L 

C4 - LABEL 

C5 - PROCEDURE 

C6 - END OF BLOCK 

C7 - DC X'LENGTH OF DSA* 

C8 - special ADD 
C9 - DC A (STATIC) 

CA* - DC A 
CB* - DC V 
CC* - DC LASS 
CD* - DC SO 

* used for static constants 

The key byte is put into a general reg¬ 
ister and X' CO' is subtracted. The result¬ 
ing number is used as an offset in the 
branch table (BRAN2) that contains the 
corresponding branches to the processing 
subroutines. 

The branch table BRAN2 has the format shown 
below. 

BRAN2 B OBRA 0 

B DCAL3 1 

B DCX 2 

B DSL 3 

B LABEL 4 

B PROCE 5 

B ENDBL 6 

B DCF 7 

B ADD 8 

B DCSTA 9 

3 DCA A 

B DCV B 

B DCLASS C 

B DCSO D 

The names contained in the table are the 
names of the subroutines. The displacement 
within the table is found by multiplying 
the number in the right-hand column by 
four. 

OBRA — CL 


The instruction (branch) has the following 
format: 


Byte ( s) Contents ^ 

V 

1- 2 X*80C0* 

3 operation code 

4 X 

5- 6 X* 00E1 1 

7- 8 name 

9-10 zero 

LOCO is increased by 4. The name field 
is tested to determine whether the corres¬ 
ponding offset is contained in the present 
part of OFFTAB. If it is not contained, 
the element is put into OBUF unchanged. If 
it is contained, the first byte (80) is 
deleted. The second byte (CO) is replaced 
by X'88*. The offset is taken from OFFTAB. 

0 < offset module 12K < 4K byte 4=X , 00' 

4K < offset module 12K < 8K byte 4=X'07' 

8 K < offset module 12K < 12K byte 4=X'08' 

The key El is changed to 10 and the 
element is put into OBUF. The offset modu¬ 
lo 4K and the base register 9 are inserted 
into the following half-word. 

The new format is: 

Byte (s) Contents 

1 X• 88 * 

2 operation code f 

3 X 

4 0, 7, or 8 

5 X'10' 

6 - 7 name 

8 - 9 zero 

1~11 left-hand four bits: X'9* 

remainder: offset 


DC AL 3 — CM 

The instruction has the following format: 

Byte (s) Contents 

1- 2 X'SOCI* 

3 key 

4^ 5 name 

6- 7 modifier 

8-10 used for offset 

The location counter is increased by 3. 
The key is tested for 10 and 11. If it is 
10, the element has already been processed 
and is put into OBUF unchanged. In this 
case, the succeeding 3 bytes contain the 
offset. If it is 11, the key denotes that 
the operand is a label. The offset is 
taken from OFFTAB together with the program 
block number. The offset is increased by 
the sum of modifier and initial block- 
address offset to be taken from PBT. This 
sum is inserted into the succeeding three 
bytes. The element is then put into OBUF 
after the key has been changed. 
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If the key is neither 10 nor 11, the 
operands are constants in static storage. 
The offset is taken from OFFTAB (if 
present). The sum of offset, modifier, and 
length of program is inserted into the 
succeeding 3 bytes after the element with 
the changed key has been moved into OBUF. 

PC X — CM 

Since the constant may become greater than 
2 56 bytes (for STATIC) , a special treatment 
for I/O is necessary. Thus, the element is 
not changed but only put into the output 
(LOCO + length of constant) . It is tested 
whether the element is fully contained in 
the input buffers B1, B2. If it is, MOO is 
called to move the element into OBUF. If 
it is not, MOO is called for the present 
part. The input pointer and the element 
length are updated and new input is read 
into B1 and B2. This loop is repeated 
until the entire element has been brought 
from input to output. 

PS L — C N LOCO is increased by the 
length L (HW at POI + 2) . The element is put 
into OBUF unchanged (call MULTI) . 

L ABEL — CN (Same as MULTI) — CN. The 
element is put into OBUF unchanged. 


12K segment, by 12K if it is a neighbouring 
segment, and 24K in all other cases. Base 
register 12 together with the offset of the 
constant which is stored in a special stack 
during the initialization are inserted into 
the succeeding half-word. 

The new format is: 


Byte (s ) Contents 

1 X 1 88 1 

2 X* 5A 1 or X* 58 1 

3- 7 X'0900100004 1 

8- 9 modifier 

10-11 left-hand four bits: X'C* 

remainder: offset 


r - T - T -r-T-T- 1 --T-1 

I I5A | | | | | | | 

|88|or 58 | 09 | 00|10|0004| MOPIFIER|C OFFSET| 

L_X_X_X_X_X_X_X_J 

The internal name 0004 is reserved for the 
special constants OK, 12K, 16K, 20K, 24K 
and 28K. These are stored as half-words at 
the beginning of static storage. Their 
offset is contained in OFFTAB. Puring the 
initialization of the phase, the offset of 
these constants has to be taken and stored 
into a stack so that it is accessible dur¬ 
ing the entire phase. 


PR OCE -- CN LOCO is set to zero to start 
a new count. The element is then put into 
OBUF (call MULTI) . 

ENPBL -- CN. (Same as MULTI) . The element 
is put into OBUF unchanged. 

PC F — CN The element is put into OBUF 
unchanged and LOCO is increased by 4. 

MULTI -- CN. The element of length 4 is 
moved from POI to POU by calling MOO. 

A PP — CN The element has the following 
format: 

C ont ents 

1- 2 X^OCS' 

3 X * 5A 1 or X'5B * 

4-10 X , 0900E300040000* 

LOCO is increased by 4. The name field is 
tested to determine whether the correspond¬ 
ing offset is contained in the present part 
of OFFTAB. 

If it is not contained, the element is 
moved into OBUF unchanged. If it is con¬ 
tained, the first byte (80) is deleted. 

The second byte (C8) is set to X'88'. The 
key is changed to X'10*. The offset is 
taken from OFFTAB. Then it is tested 
whether or not LABEL and instruction are 
contained in the same 12K segment. The 
modifier is replaced by 0 if it is the same 


Constant 

Name 

Modifier 

OK 

0004 

0000 

12K 

0004 

0002 

16K 

0004 

0004 

20K 

0004 

0006 

24K 

0004 

0008 

28K 

0004 

000A 

DC ST A — 

CO. The 

length of 


retrieved from the interphase communication 
region. It is inserted to the last three 


bytes of the PC A mask. The format of the 
DC A mask is as follows: 


BytejsL 

1- 3 
4- 7 
8-10 


Contents 
X'80CA10' 
zero 

length of program 


The name field is set to zero to sign the 
special PCA. This mask is moved into OBUF, 
and LOCO is increased by 4. 


DC A a nd PC V — CP These routines are 
used for the constants of static storage 
after they have been brought to a new for¬ 
mat. 


Byte (s ) 
1 
2 
3 

4-5 

6-7 

8-9 


Contents 
X' 80' 

X'CA' or X•CB 

key 

name 

modifier 

offset 
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The key is tested for 10 and 11. The DC V 
routine is contained in DC A. 

The key 10 indicates that the element 
has already been processed. The three 
succeeding bytes contain the offset. The 
element is put into OBUF. The key 11 
denotes that the internal name represents a 
label. In this case, the offset together 
with the program block number, if present, 
are taken from OFFTAB. The offset is 
increased by the sum of modifier and ini¬ 
tial block-address offset to be taken from 
PBT. This sum is inserted into the suc¬ 
ceeding three bytes and the element put 
into OBUF after the key has been changed. 

If the key is neither 10 nor 11, the 
offset is taken from OFFTAB, if present. 

The sum of offset, modifier, and length of 
program is inserted into the succeeding 
three bytes. The element is put into OBUF 
after the key has been changed. 

DC LASS —- CQ The instruction has the 
following format: 

f - T - T -T-T-T-1 

| | | | Int. NAME j | | 

j 80 | CC j El j OF LABEL j 0 j | 

L- JL -X- r -X_1_J 

The name of the label is tested to deter¬ 
mine whether the corresponding offset is 
contained in the present part of OFFTAB. 

If it is not contained, the element is 
put into OBUF unchanged. If it is con¬ 
tained, the second byte is changed to CA 
and the third to 10. The offset together 
with the block number is taken from OFFTAB. 
The block number is inserted into the name 
field and the 12K segment is determined. 
Corresponding to this, 0, 12K, or 24K is 
inserted as modifier. The modifier is then 
added to the offset of the program block to 
be taken from PBT. The sum is inserted 
into the following three bytes. 

r— t—t— r- t-t-1 

| | | | NUMBER |0, 12K|OFFSET OF j 

j 8 0 j CA j 10 j OF BLOCKjor 24K|CORRES.12K segm.j 

L X X X_1_1_J 

Following this, the instruction DC X 
(containing the offset of the label inside 
the 12K segment) is generated. Its format 
is as follows: 

r -T-T-T-1 

| 80 j C2 I LENGTH=4 j OFFSET j 

L_X-X_X__J 

The length 4 is inserted into the DC X 
mask. The label offset is reduced by the 
modifier of the preceding DC A and stored 
into the following 4 bytes. The element is 
put into OBUF. 


DC SO — CQ. This routine consists of the 
first part of DC STA. At the beginning, 
switch SWO is set to one so that the rou¬ 
tine is terminated before generating the 
second instruction. 


End K ey 

tfhen the End key is found for the first 
time, a routine will be called to transform 
the static storage constants into the same 
format as the constants of the text string. 
The routine inserts the offset, if possi¬ 
ble, and moves it into OBUF. After this a 
switch will be set. 

At the beginning of the static storage, 
a label *FFFF' is generated while the end 
key is put at the end of the output. 

In all cases, the contents of the last 
output buffer are written onto text medium. 
If all parts of OFFTAB have not yet been in 
storage, a new part of OFFTAB is read into 
the table space. The work files are 
switched and rewound, and the phase is 
called again until all offsets have been 
inserted. 

The character string is retrieved from 
SYS001 and put behind the text. TXTIN is 
rewound and EXTAB is written on it. It is 
tested whether a file table exists. If it 
does, phase G17 is called. Otherwise, that 
phase is skipped and G20 is called. 

EXTAB — CR 

This routine reads EXTAB record by record 
into the I/O buffers B0 and B1 in over¬ 
lapped mode and puts it onto TEXTOUT in the 
same way. 

OGA — CR 

OGA determines whether the corresponding 
offset is contained in the present part of 
OFFTAB. If not, it moves the rest of the 
element (5 bytes) into OBUF and returns. 
Otherwise, the offset is taken from' OFFTAB 
together with the attribute byte and stored 
in OFEN+2. The base register is determined 
by the routine BAS; the rest of the element 
(5 bytes) is followed by a half-word con¬ 
taining the base register in the first 4 
bits and the offset mod 4K in the following 
12 bits is moved into OBUF. 

GEO — CS 

GEO moves the OFFTAB entry, if present, to 
OFEN+2 (R1 = 0) , or it returns (R1 = 1) 
after having moved the element into OBUF. 

MOK — CS 

Moves the half-word at OFEN+2 into OBUF. 
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RQFF -- CT 

ROFF determines the final offset by adding 
the modifier (at POI + R1) to the offset, 
taking the sum modulo 4K, storing the 
result in OFEN+2 and ORing base register RY 
on the initial 4 bits of OFEN+2, 

BAS_-~_CU 

This routine determines the base register 
by means of the variable level contained in 
the attribute byte at OFEN+4 and the cur¬ 
rent block level contained in LEVS. The 
format of the attribute byte is as follows: 

bits 0 - 1 : level 

bit 2 : 1 = static, 0 = automatic 

bits 3 - 7 : zeros 

If bit 2 is on (static), register 12 is 
used as base register. If it is off 
(automatic) , it has to be determined in 
which block the variable is to be found. 
Figure 3 shows all possible cases and the 
base register used. The base register is 
returned in RY. 

r - 

| Current Block | 

j Level | 

I r- t-t- \ 

I | 1 | 2 J 3 | 

| r -+-1-H 

|Level | 1 | 13 | 11 | 11 | 

j of the (---j--+-1-^ 

|Variablej 2 |ERROR| 13 | 10 | 

| I--+-+-+-i 

| | 3 |ERROR)ERROR] 13 | 

L-X_X-X_X_J 

Figure 3. Basic Register Used for Automat¬ 
ic Variables 

TRAN — CV, CW , DA DB 

TRAN transforms the constants of static 
storage given in a table on SYS001 into the 
instruction formats used for the text. The 
constant table CONTAB is taken from SYS001 
and put into the input buffers B1 and B2. 
The format of the constant in the table is: 

DC_X 

Byte (s) C ontents 


All elements with a 'delete* bit are delet¬ 
ed. The name field is translated into the 
pseudo assembler instruction LABEL. The DC 
X instructions are transformed into the 
following format: 

Byte ( s) Contents 

1-2 X'80C2' 

3-4 length L 

5-7 constant 

This is done by inserting the length into 
the DC X mask: 

Byte ( s) Contents 

1-2 X'80C2' 

3-4 length L 

and moving the mask followed by the con¬ 
stant itself into OBUF. In the case of an 
optimizable DC X, LOCO is set to boundary 
depending on the length of the constant: 

Leng th Boun dar y 

2 half-word 

4 word 

8 double-word 

This is done by generating a corresponding 
DSL instruction by means of the DSL mask: 

Byte ( s) Cont en ts 

1-2 X'80C3' 

3- 4 length L 

There are special constants for label 
assignments which are transformed to the 
format: 

Byte ( s) Contents 

1-2 X'80CC' 

3 key 

4- 5 label 

6 zero 

The routine DC LASS is called to insert the 
offsets, to generate the following DC X and 
to put the elements into OBUF. These spe¬ 
cial constants originally have the follow¬ 
ing format in CONTAB: 

1 . DC A 


1-2 

name 

Byte (s) 

Contents 

3 

attributes 

1-2 

name of DC A 

4-5 

length 

3 

attributes 

6-8 

constant 


bits 0-1 = 00: DC X 
bit 2=0: not 

ID 

in 

1 

l> 

h 

DC AL3, DC V, DC VL3 


optimizable 

bits 3-5 always zero 

1-2 

name 


bits 6-7 = 01: label 

3 

attributes 


assignment 

4-5 

4 

4-5 

length = 4 

6-7 

internal name 

6-7 

label 

8-9 

modifier 

8-9 

zero 
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2. DC X 

B^teJsL C ontents 
1-2 zero 

3 attributes 

bits 0-1 = 00: DC X 
bits 2-7 always zero 

The DC AL3 and the DC VL3 instructions are 
transformed by means of the DC A mask: 

Byte C ont e nts 

1 ' X’80 1 

2 X’CV, X * CA* , X* CB * , or X'CC f 

3 key 

4-5 internal name 

6-7 modifier 

8-10 place for offset 

The key Cl is inserted into byte 1, the 
internal name and the modifier into the 
corresponding two half-words. The key at 
byte 2 is set to 11 for entry names, to 20 
for DC VL3, and to El for all other items. 
The routine DC AL3 is called to insert the 
offset,, if possible, and to put the element 
into OBUF. 

The same mask is used for DC A and DC V 
instructions, CB is inserted into byte 1 
for DC V and CA or CC for DC A, after LOCO 
has been brought to word-boundary. 

In the case of a DC V, the element is 
put into OBUF. The modifier is taken as 
offset and put into the three bytes follow¬ 
ing the element. The key at byte 2 is set 
to 10. 

For DC A instructions the following 
three cases may occur: The operand is an 
entry name: The key (byte 2) is set to 11, 
and the routine DC A is called to put the 
element followed by the offset (if present) 
which is formed by the sum (modifier + 
offset from OFFTAB + length of program 
block) into OBUF. 

Segment origin: 

The format of this instruction is: 

Byt e (s) Co nt ents 

1-2 name of DC A 

3 attributes 

4-5 length = 4 

1-7 entry 

8-9 zero 

The format of the attribute byte is as 
follows: 


It is transformed to: 

Byte ( s) Contents 

1-2 X* 80CD* 

3 key 

4-5 label 

6-7 zero 

and the routine DC SO is called to insert 
the offsets and to put the element into 
OBUF. 

In all other cases, the key (byte 2) is 
set to El and the routine DC A is called to 
put the element followed by the offset 
which is formed by the sum (modifier + 
offset from OFFTAB + length of program) 
into OBUF. 


BOU — DC 

BOU sets LOCO to the boundary given in R2. 

R2 = 2 half-word boundary 

R2 = 4 word boundary 

R2 = 8 double-word boundary 

All other values of R2 cause no boundary 
alignment. LOCO is set to boundary by 
generating an instruction DSL with the 
corresponding length L. 


MOK1 - - D P 

This routine moves a constant from PSC into 
OBUF even if it is not fully contained in 
the I/O buffers. It moves the present 
part, reads new input into the input buf¬ 
fers, and moves the next part. This proce¬ 
dure is repeated until the constant is 
fully moved into OBUF. 

ISCR - - D E 

ISCR supervises the input buffers B1 and 
B2. It compares the pointer PSC with B2. 

If B2 is greater than PSC, the routine 
returns. If it is less or equal, the input 
is moved from B2 to B1 (with the length L = 
BUFL) and new input is read into B2. PSC 
is adjusted by subtracting BUFL, and the 
routine returns. 

BRG — DF 

BRG is called by the routines OBRA and ADD. 
It prepares the elements generated in phase 
GOO for the branch instruction. It takes 
the offset from OFFTAB and inserts some 
keys into the instruction. 


bits 0-1 : 01 = DC A 
bit 2 : 0 = optimizable 

bits 3-5 : zero 

bits 6-7 : 01 = segment origin 


ISU, M OO, MODIF 

These routines are described in the section 
Gene ra l Description of Phases F95 - G55 ) 
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PHASES PL/IG17 , B, D, E , R, S (FILE GENERATION) — D J 


These phases generate the tables required 
for each file: the DTF appendages, the DTF 
tables, and the buffers. 

These tables are generated in the form 
of assembler output cards (ESD, TXT, and 
RLD cards) . For each file, a special con¬ 
trol section is produced. The name of the 
control section is the file name. External 
references are the module name in each 
table and, depending on special file param¬ 
eters, certain library routine names (e.g. 
the name of the end-of-file processing 
routine). The first part of the text is 
the appendage (from START to the label 
TABAD in the tables shown in Appendix D ). 
For the format see description of the 
library. The following text applies to the 
normal logical IOCS DTF table, which is 
followed by the buffer areas, if required. 


The above control sections are generated 
as follows: First, the addresses of the 
work spaces (buffers) to be used by the 
phas'es are established and the first 
entries of the file table and of the exter¬ 
nal name table (on the text output medium) 
are read. Reading and writing is performed 
in non-overlapped mode, using the external 
routines IJKARO and IJKAPI and the standard 
routine ZTIN. The phase itself provides a 
partial overlapping of these functions. A 
record count -is maintained in register RD 
for the file table entries, and the proc¬ 
essing is terminated when this table is 
exhausted. Then the file entries are 
scanned. The file table was constructed 
and written on SYS001 by phase B25. The 
external name table was constructed and 
written on SYS001 by phase B97. The latter 
table is written on TXTOUT by phase G15. 

All file entries, which are not to be 
processed by the present phase are 
bypassed. In the first of the six phases, 
a bit is set in the communication region 
for each bypassed file entry. This bit 
later on initiates calling of the appropri¬ 
ate phase to process the entry. If a file 
entry to be processed by one of the phases 
of group G17 is encountered in the corres¬ 
ponding phase, a mask is selected according 
to certain file parameters, and the output 
pointer (register RE) is set to the address 
of this mask. Then the external name table 
is scanned for the external name of the 
file. The external name table is scanned 
record by record. Each record contains 
several entries. A new record is fetched 
whenever the previous record has been com¬ 
pletely scanned. 


If no matching file name is found, the 
file entry is associated to a file paramet¬ 
er and consequently ignored. Otherwise, 
the matching external name is inserted into 
the selected mask. The remaining part of 
the mask is set up according to the file 
table attributes. The EDIT routine is 
called to edit the modified mask into the 
text input medium, immediately following 
the program text. The next phase is 
fetched according to the setting of the 
communication bits. If the next phase is 
G20, an END card image is additionally 
produced and edited. 

The EDIT routine writes one output 
record (card image: 8 0 bytes) , starting 
with the byte selected by the output poin¬ 
ter. Then the output pointer is conse¬ 
quently incremented by 80. 

Phase Input and Output 

This phase uses the file table (see phase 
B25) and the external name table (see phase 
B97) as input. The external name table was 
written onto the text output medium by the 
preceding phase. The text input medium was 
not rewound so that the output cards can be 
written onto the medium, immediately fol¬ 
lowing the text. 

The output file tables are based on 
preassembled masks in the form of assembler 
output cards. All files are divided into 
several groups, each group is characterized 
by special file parameters. For each 
group, one mask is generated. The remain¬ 
ing file parameters, which may change and 
which are not required for the selection of 
the group, affect the mask internally. The 
file groups and the modification of masks 
are discussed later. 

Gener a l R u les 

The following rules apply to all files 
except those explicitly mentioned: 

1. The file name is inserted as SD name in 
the first ESD card. 

2. The CSECT length in the SD entry is 
incremented for all files except the 
unbuffered files. 

The increment value is: 

• one blocksize for files with 
BUFFERS (1) ; 

• two blocksizes for files with 
BUFFERS (2) and STREAM, and 

• two blocksizes + MOD (blocksize,8) 
for files with BUFFERS (2) and 
RECORD. 
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PL /IG17 (CARD, PRINT, UNBUFFERED FILES) 

This phase processes all card, print, and unbuffered files. 



CARD FILES 


Four different masks are used for card files: 


FILECDI 
FILECDO1 
FILECD02 
FILECD03 


Input card files 
1442 Output card files 
2520 Output card files 
2540 Output card files 


The following rules apply to all card files: 


Location Action 


00 1E AL1 (0) 

AL1 (1) 

00 1F AL1 (1) 

AL1 (2) 

AL1 (0) to AL1 (245) 
0028 7th character 

8th character 


if SYSIPT, SYSPCH 
if SYS000 to SYS245 
if SYSIPT 
if SYSPCH 

if SYS000 to SYS245 


z 

if 

BUFFERS (1) 

I 

if 

BUFFERS (2) 

0 

if 

2540,INPUT 

1 

if 

1442 

2 

if 

2520 

3 

if 

2501 

4 

if 

2540,OUTPUT 


Rules for FILECDI: 



Location Action 


002D 

AL1 (0) 

if 

2501 


AL1 (1) 

if 

2540 


AL1 (2) 

if 

2520 


£L1 (32) 

if 

1442 


Add 4 to all values if BUFFERS (2) 



0030 

The address is incremented 




by blocksize 

if 

BUFFERS (2) STREAM, and 


by blocksize + MOD (blocksize,8) 

if 

BUFFERS (2) , RECORD. 

0038 

4th parameter: 

insert blocksize 

0040 

Insert LA 2,0 (14) 

if 

BUFFERS (2) 


Rules for 

FILECDO1, 2, 3: 

Location 

Action 


002D 

002E 

002F 

003A 

003E 


0040 


AL1 (16) 

AL1 (20) 

AL1 (65) 

AL1 (193) 

Insert LA 2,0 (14) 

X'00' 

X'01' 

X 1 02 1 

1st parameter: 

2nd parameter: 

by blocksize + MOD (blocksize,8) 
4th parameter: 


if BUFFERS (1) 
if BUFFERS (2) 
if 2520, 2540 
if 1442 
if BUFFERS (2) 
if 2540 
if 2520 
if 1442 

see location 002E 


the address is increased by blocksize 
if BUFFERS (2) STREAM, and 
if BUFFERS (2) , RECORD 
insert blocksize 
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PRINT FILES 


Two different masks are used for print files: 

FILEPRR : print files with record 
FILEPRP : print files with print 


The following rules apply to print files: 


Location 


Action 




FILEPRR 

FILEPRP 





001E 

0026 

AL1 (0) 


if 

SYSLST 



AL1 (1) 


if 

SYS000 to SYS245 

00 IF 

0027 

AL1 (3) 


if 

SYSLST 



AL1 (0) to AL1 (245) 

if 

SYS000 to SYS245 

0028 

0030 

7th character: 

Z 

if 

BUFFERS (1) 




I 

if 

BUFFERS (2) 

002D 

- 

AL (16) 


if 

BUFFERS (1) 



AL1 (20) 


if 

BUFFERS (2) 


0035 

ALl (48) 


if 

BUFFERS (1) 



AL1 (52) 


if 

BUFFERS (2) 

003A 

0042 

NOP 


if 

BUFFERS (1) 



LA 2,0 (14) 


if 

BUFFERS (2) 

0040 

- 

2nd parameter: 






the address is 

increased by blocksize + 





if 

BUFFERS (2) 



4th parameter: 


insert blocksize - 

- 

0048 

2nd parameter: 






the address is 

increased by blocksize 





if 

BUFFERS (2) 



4th parameter: 


insert blocksize - 


(blocksize, 8) 


UNBUFFERED TAPE FILES 


One mask is used for unbuffered tape files: FILETAUN. The following rules apply to this 
file group: 

Location Action 


0016 AL1 (1) 

AL1 (0) 

0017 AL1 (1) 

AL1 (2) 

AL1 (3) 

AL1 (0) to AL1 (24 5) 
0025 Increase value by 16 

0028 Insert blocksize 

002A Insert blocksize 

002C X'02' 

X' 0C' 

0038 X'00000000' 

X'004 00000' 


if SYS000 to SYS245 
if SYSIPT, SYSPCH, SYSLST 
if SYSIPT 
if SYSPCH 
if SYSLST 

if SYS000 to SYS245 
if BACKWARDS, and by 128 
if LEAVE 


if without BACKWARDS 
if BACKWARDS 
if without BACKWARDS 
if BACKWARDS 


c 
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UNBUFFERED DISK FILES 

Two different masks are used for unbuffered disk files: 

FILEDIUN: no UPDATE 
FILEDIUU: with UPDATE. 


The following rules apply to unbuffered disk files: 


Location 


Action 




FILEDIUN 

FILEDIUU 





0026 

002E 

Insert filename 




0038 

0040 

Insert blocksize 




004E 

0056 

Insert blocksize 




0050 

0058 

Increment value by 

64 

if 

VERIFY 

0054 

005C 

Increment value by 

16 

if 

VERIFY 

PL/IG17B 

(BUFFERED 

TAPE FILES) 





This phase processes all tape files except the unbuffered ones. Eight different masks 
are used for buffered tape files: 

FILETAFI: Input tape files with fixed records 
FILETAFO: Output tape files with fixed records 
FILETASP: Tape files with PRINT option 
FILETAFB: Tape files with BACKWARDS option 
FILETAVI: Input tape files with variable records 
FILETAVO: Output tape files with variable records 
FILETAUI: Input tape files with undefined records 
FILETAUO: Output tape files with undefined records 

The following rules apply to all buffered tape files: 


L ocatio n A cti on 

FILETASP All others 


0026 

00 IE 

AL1 (0) 


if 



A.L1 (1) 


if 

0027 

00 IF 

A.L1 (1) 


if 



AL1 (2) 


if 



AL1 (3) 


if 



AL1 (0) to 

AL1 1(245) 

if 

0034 

002C 

X' 11 ' 


if 



X' 12' 


if 



X' 13' 


if 



X' 14 ' 


if 

0035 

002D 

Increment 

by 64 

if 



by 32 


if 



by 4 


if 

0036 

002E 

Insert file name 


0040 

0038 

Increment 

value 




by 128 


if 



by 16 


if 



by 8 


if 


SYSIPT, SYSPCH, SYSLST 

SYS000 to SYS245 

SYSIPT 

SYSPCH 

SYSLST 

SYS000 to SYS245 
NOLABEL 

OUTPUT without NOLABEL 

INPUT, BACKWARDS without NOLABEL. 

INPUT without BACKWARDS and NOLABEL 
blocksize * record size or if VARIABLE 
BUFFERS (2) 

BACKWARDS 


NOLABEL not specified, 
LEAVE, 

BACKWARDS specified. 


330 





PL/I PLM 8 


IBM Confidential 


Ru les for FILETAFI, FILETAFO, FI LETA SP, FILETAFB: 

L ocation Action 

FILETASP All others 

0054 004C Insert NOP if neither blocksize unequal to record size 

nor BUFFERS (2) specified. 


0058 

0050 

2nd parameter: 
add (blocksize -1) 

4th parameter: 
insert blocksize 

if 

BACKWARDS 

0060 

0058 

Add to address blocksize 

if 

BUFFERS (2) STREAM, 



blocksize + MOD (blocksize, 8) 

if 

BUFFERS (2) RECORD, 



add extra (blocksize -1) 

if 

BACKWARDS. 

0064 

005C 

Add (blocksize - record size) 

if 

BACKWARDS, 



blocksize 

if 

OUTPUT, BUFFERS (2) , STREAM 



blocksize + MOD (blocksize, 8) 

if 

OUTPUT, BUFFERS (2) RECORD 

0068 

0060 

Insert (-recordsize) 
recordsize in all other cases. 

if 

BACKWARDS, 

006C 

0064 

Add (blocksize - recordsize) 

if 

BACKWARDS, 



blocksize 

if 

OUTPUT, BUFFERS (1) , 



2 blocksizes 

if 

OUTPUT, BUFFERS (2) , STREAM 



2 blocksizes+MOD(blocksize,8) 

if 

OUTPUT, BUFFERS (2) , RECORD 

0070 

0068 

Insert blocksize 



0072 

00 6A 

Insert (blocksize + 1) 

if 

BACKWARDS, 



(blocksize -1) in all other cases 


0074 

00 6C 

Insert (recordsize -1) . 



Rules for 

FILETAVI 

and FILETAVO: 




Location 

Action 



0050 

4th parameter: insert blocksize 



0058 

Add blocksize + MOD (blocksize, 8) 

if 

BUFFERS (2) 

005C 

Insert blocksize 



0060 

Add blocksize + MOD (blocksize,8) 

if 

BUFFERS (2) 

006C 

Add blocksize + MOD (blocksize, 8) 

if 

BUFFERS (2) 

0070 

Insert blocksize -4 

if 

OUTPUT, 


blocksize 


if INPUT 

0076 

Insert (blocksize -1) 




Ru les f or FILETAUI and FILETAUO: 
Location Action 


004C 

Insert NOP 


if 

neither BACKWARDS nor BUFFERS (2) 

0050 

1st parameter: 

X'01 • 


if 

OUTPUT 


X* 02' 


if 

INPUT without BACKWARDS 


X'OC' 


if 

INPUT, BACKWARDS 


2nd parameter: 
add (blocksize -1) 

4th parameter: insert blocksize 


if 

BACKWARDS 

0058 

Add blocksize + MOD (blocksize. 

8) 

if 

BUFFERS (2) 


add extra (blocksize -1) 


if 

BACKWARDS 

005C 

Add blocksize + MOD (blocksize. 

8) 

if 

BUFFERS (2) 

0060 

Insert BCTR 14,0 


if 

BACKWARDS 


NOPR 




0064 

Insert blocksize 




0066 

Insert (blocksize -1) 
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PL/IG17D, E (BU FFE RED C ONSECUT I VE DISK FILES 

These two phases process all consecutive disk files except the unbuffered ones. Ten 
different masks are used for buffered, consecutive disk files: 

FIDIINFI: Input disk file, fixed records 
FIDIINVA: Input disk file, variable records 
FIDIINUN: Input disk file, undefined records 
FIDIOUFI: Output disk file, fixed records 
FIDIOUPR: Disk file with PRINT option 
FIDIOUVA: Output disk file, variable records 
FIDIOUUN: Output disk file undefined records 
FIDIUPFI: Update disk file, fixed records 
FIDIUPVA: Update disk file, variable records 
FIDIUPUN: Update disk file, undefined records 



Ex ception to G e ner al Fi le R ules: 

The CSECT length is additionally increased by 8 bytes for all disk files with OUTPUT, 
BUFFERS (1) , and by 16 bytes for all disk files with OUTPUT, BUFFERS (2) . 


R ules for all Buffered , Co n secutive Dis k Files: 


Location 


Action 

FIDIOUPR 

All others 


0035 

002D 

Increment value by 64 if blocksize unequal to recordsize 

0036 

002E 

Insert file name 

004C 

0044 

If INPUT/UPDATE, BUFFERS (2) , STREAM, add blocksize to address. 

If INPUT/UPDATE, BUFFERS (2) , RECORD, add blocksize + MOD 
(blocksize, 8) to address. 

0062 

005A 

If OUTPUT, insert blocksize 

0068 

0060 

If FIXED, insert records per track (RT: see below) . Otherwise 
insert X f FF f . 

006A 

0062 

Insert (blocksize -1) 

0074 

006C 

If BUFFERS (1) and blocksize is equal to recordsize, insert NOP. 

0080 

0078 

If OUTPUT, add (blocksize +8) to address. Otherwise, add blocksize 
to address. 

0084 

007C 

Increment value 

by 4 if VARIABLE, INPUT/UPDATE; 

by 8 if FIXED, INPUT/UPDATE, BUFFERS (2) ; 

by 16 if VERIFY, OUTPUT/UPDATE 

00A0 

0098 

2nd parameter: 


Add (blocksize +8) to address if OUTPUT, BUFFERS (2) , STREAM. 
Add (blocksize +8) + MOD (blocksize, 8) to address if OUTPUT, 

BUFFERS (2) , RECORD. 

3rd parameter: 

Insert 64 if OUTPUT, VERIFY 
4th parameter: 

Insert blocksize if INPUT/UPDATE. 

Insert (blocksize +8) if OUTPUT. 

R ules for Evaluation of RT (Records per Track) : 

Length of normal record: 

LNR = [blocksize multiplied by 537/512 + 61] 

Normal records per track: 

NRT = [362 5/LNR] 

Number of records per track for INPUT/UPDATE: 

RTI = NRT or 

RTI = NRT + 1 if 3625 - NRT multiplied by LNR > blocksize 
Number of records per track for OUTPUT: RTO = RTI - 1 
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PL /IG17R, S (R E GIONAL DISK FILES) 

These two phases process all regional disk files. Ten different masks are used for reg¬ 
ional disk files: 


FIDIINR1 2 
FIDIONR1: 
FIDIOVR1: 
FIDIUNRI: 
FIDIUVRI: 
FIDIINR3: 
FIDIONR3: 
FIDIOVR3: 
FIDIUNR3: 
FIDIUVR3: 


Input disk files, regional 1 
Output disk files, regional 1, 
Output disk files, regional 1, 
Update disk files, regional 1, 
Update disk files, regional 1, 
Input disk files, regional 3 
Output disk files, regional 3, 
Output disk files, regional 3, 
Update disk files, regional 3, 
Update disk files, regional 3, 


no verify 
with verify 
no verify 
with verify 

no verify 
with verify 
no verify 
with verify 


Exception to General Fi le Rules 


For FIDIINR3, the CSECT length is increased by blocksize + key length.For FIDIONR3, 
FIDIOVR3, FIDIUNR3, and FIDIUVR3, the CSECT length is increased by blocksize + key length 

+ 8 . 


Ru les f or all Regio nal Files: 
Location Action 


0010 If REGIONAL 3, OUTPUT/UPDATE, add (keylength + 8) to address. 

0018 If INPUT, REGIONAL 3, add blocksize to address. 

001C Insert RT if REGIONAL 1 

0024 Insert keylength 

005E Insert filename 

0094 Insert blocksize 

00B0 2nd parameter: 

If INPUT, REGIONAL3 add blocksize to address. 

4th parameter: insert keylength if INPUT/UPDATE, REGIONAL3. 

00B6 If OUTPUT, REGIONAL 3, insert keylength. 

00B8 2nd parameter: 

add (keylength + 8) to address if OUTPUT/UPDATE, REGIONAL 3 
4th parameter: 
insert blocksize. 

00D0 If OUTPUT/UPDATE, REGIONAL 3, insert blocksize + keylength. Otherwise insert 
blocksize. 

00F0 4th parameter: 

If OUTPUT/UPDATE, REGIONAL3, insert blocksize + keylength + 8. 
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PHASE PL/IG2Q (FILE MODULE) — DP 


This phase moves the block table from 
SYS001 into the table space. The label 
table is written from SYS001 onto TXTIN. 

If no files are declared, the end of the 
phase is reached. 

If files do exist, ESD, TXT, and RLD 
cards for each user- defined file are proc¬ 
essed. 0 These cards are stored on TXTIN in 
the preceding sequence. Following the 
cards for all files, only one END card is 
generated. The output of G17 is changed in 
the following manner: 

First, all ESD cards are sorted out and 
written onto SYS001. Then all TXT cards 
are written behind the ESD cards, and 
finally all RLD cards followed by the END 
card are written onto SYS001. The ESID 
numbers of the cards are changed to provide 
only one module for the files. 


P hase Input and Output 
In put : 

1. TXTIN : The text (i.e., the changed 

source program) is located on 
TXTIN. Information about the 
existing files is written 
following the text. This 
information consists of ESD, 
TXT, and RLD cards and one END 
card as described in phase 
G17. TXTIN is positioned at 
the end of the text if no 
files exist and at the end of 
the files if files do exist. 

2. TXTOUT : The external name table is 

located on TXTOUT, which is 
positioned at its beginning. 

3. SYS001 : The block table and the label 

table are located on SYS001. 

O utput : 

1. TXTIN : At the end of this phase, the 

unchanged text and the 
unchanged files followed by 
the label table are contained 
on TXTIN, which is positioned 
at the beginning of the label 
table. 

2. TXTOUT : The external name table is 

contained on TXTOUT, which is 
positioned at its beginning. 

3. SYS001 : The work file SYS001 contains 

the updated files. 

The block table is contained in the first 
128 bytes of the table space. 


Interphase 

1. The NOTE information about the begin¬ 
ning of the files written on TXTIN is 
contained in ZTAB19. 

2. The NOTE information about the end of 
the external name table written on 
TXTOUT is contained in ZTAB18. 

3. The NOTE information about the end of 
the DTF table writen on SYS001 is con¬ 
tained in KSAVE8. 

4. If the third bit in the first byte of 
ZTAB03 is 1, files do exist. 

5. At the end of this phase, the number of 
the cards which are still in the output 
buffer and have not been written on 
SrSOOl is stored in the first byte 
behind the output buffer. 

Main Rout i ne -- DO and DR 

This routine moves the block table into the 
table space and writes the label table pnto 
TXTIN. SYS001 is reset to the end of the 
DTF table and, if no files exist, the end 
of the phase is called; otherwise, the 
files are read in. 

The ESD cards are changed and written 
onto SYS001, the TXT cards that have been 
processed are written onto TXTOUT, and the 
RLD cards are stored in the table space. 

If an overflow occurs in the table space, 
the RLD cards are written onto TXTIN. If 
the END card is detected, the TXT cards are 
moved from TXTOUT onto SYS001 and the RLD 
cards are written onto SYS001. Finally, 
the END card is written on SYS001. Each 
card written on SYS001 is given a consecu¬ 
tive card number in colunms 77-80 and the 
identification FILE in columns 73-76. At 
the end of this phase, TXTIN is positioned 
at the beginning of the label table, and 
TXTOUT is repositioned at its beginning. 

The parameters for ZTIN are loaded and 
the block table record indicated by ZTAB13 
is read into the table space. Control is 
transferred to the routine LABTAB, which 
moves the label table onto TXTIN. The 
tables contained on SYS001 are saved or no 
longer used; therefore, the work file is 
positioned at the end of the DTF table, and 
the other tables may be overwritten. If 
files exist, routine INI2 is called. 

TXTOUr is set to the first free record 
following the external-name table, and 
TXTIN is set at the beginning of the files. 
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Buffer handling is as shown in Figure 1. 

TS TSB 

t t 

I I 

I - -i- 

block table | table space used for RLD cards 

i--+- 

i i 

IJKMTS IJKMTS +12 8 

Input Buffers: 

BO B0+80 B1 B1+80 B3 BA 

I I I III 

j.-1-1-i~ +--| 

| | input files] output TXT |free]free| 

L_J__ ± _ ± JL_J 


BO 

t 

I 

■H 

I 

H 


IJKMBS+2 * IJKMBL 


IJKMBS+ 3+IJKMBL 


Output Bu ffer: 
BA. 


L- JL _J._±__. 

IJKMBS+3 * IJKMBL+8 

320 BYTES 

Figure 1. Buffer Handling 


2. Processing of the files. 


The first card of the file is read into 
the input buffer at B0+80, and the 
program enters a loop as follows: 

LOOP: The card in B0+80 is moved into 
buffer BO and the next record is 
read into B0+80. The card type 
in BO is checked: 

a. An ESD card is detected: Sub¬ 
routine ESD changes the ESID 
numbers in the ESD card and 
subroutine MOOK moves the card 
into the output buffer BA. 

b. A TXT card is detected: The 
ESID number of the last ESD 
card that contains an SD entry 
is contained in SDNO. It is 
put into the TXT card. The 
card is moved into output- 
buffer B1 and written onto 
TXTOUT. 

c. An RLD card is detected: 
Subroutine RLD changes the 
ESID numbers in the RLD cards, 
and subroutine MOR moves the 
card into the table space or 
onto TXTIN. 

d. If an END card is detected, 
the end of the loop is 
reached. 


BB or B5 

I 

--I 


-j 

BA+320 
= 4 CARDS 


Subroutine TXTSYS moves the TXT cards 
behind the ESD cards; subroutine RLDSYS 
moves the RLD cards behind tne TXT 
cards. The number of those cards that 
are still in output buffer BA 
(contained in POUS) is stored in the 
first byte behind B5. TXTIN is set to 
the beginning of the label table and, 
after repositioning TXTOUT to its 
beginning, phase G25 is called. 


INI1 -- D T 

This routine initializes some pointers. 
These pointers are used mainly to move the 
label table and the block table. All poin¬ 
ters, counters, and values used for han¬ 
dling files are initialized in INI2. The 
transfer bits of the block table (ZTAB13) 
and the label table (ZTAB20) are set to 0. 
The initial buffer address (IJKMBS) is 
increased by 2 * IJKMBL and stored in BO. 

BO is increased by IJKMBL and stored in B1. 


INI2 — D U 

This routine is called if files exist. It 
evaluates the buffer start addresses and 
initializes some counters and pointers used 
to process the files. 
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The address of the output buffer for the 
TXT cards is stored in B1 (B1 = B0 + 160) • 


The address of the output buffer for the 
sorted cards is stored in BA (BA = 

BO + IJKMBL+ 8) , and the end of this buffer is 
Stored in BB (BB = BA+320) • 

The TABTAB entry of the output (ZTAB16) 
is updated. The buffer length is changed 
to 320; the transfer bit is set to 0. 

SDNO, which contains the ESID number of the 
last ESD card with an SD entry, is set to 
0, and ESID, which contains the current 
ESID number, is set to 1. The output poin¬ 
ter CSP is set to BA, TSB is evaluated, and 
SPEI is set equal to TSB. 


LABTAB — DV 


This routine moves the label table from 
SYS001 onto TXTIN. 

The beginning of the label table on 
TXTIN is noted by the NOTE macro, and the 
number of label table records is moved from 
ZTAB20 into register R3. 

If R3 is 0, the label table does not 
exist, and the routine returns to the main 
routine. Otherwise, the first label table 
record is read into buffer BO. 

Buffers: 

r- T -1 

I I I 

L_X_J 

t t t 

BO B1 = BO+IJKMBL B1+IJKMBL 

Both buffers have the buffer length and 
both are used alternately as input and 
output buffers. Next, the program enters a 
loop as follows: 

First, R3 is decreased by 1 and a test 
is performed to determine if it is equal to 
0. If it is 0, the end of the loop is 
reached; otherwise, the next record is read 
into B1 or B0 and the preceding record is 
written onto TXTIN from B0 or Bl, respec¬ 
tively. 

The program waits for the end of the 
last reading. Then the last record is 
written onto TXTIN, the end of the label 
table is noted, and the routine returns 
control back to the main routine to the 
point where it was called. 


ES D — DW 

This routine inserts the current ESip num¬ 
ber contained in ESID into the ESD cards. 
SDNO is updated and ESID is increased by 
the number of entries in the ESD card. 


This routine is called if an ESD card is 
identified. If its first entry is an SD 
entry, SDNO, (the ESID number of the last 
ESD card containing an SD entry) is set to 
the current value of ESID. ESID is insert¬ 
ed into the ESD card and increased by the 
number of bytes contained in the card 
divided by the length of one ESD entry. 

Then the routine returns to the main rou¬ 
tine. 


MOOK - - D X 

This routine moves the cards that have been 
processed into the output buffer BA after 
inserting the successive card number. If 
the buffer is filled, a 320-byte record is 
written on SYS 001. 


This routine is called if a card that 
has been processed has to be moved from the 
place pointed to by R1 into the output 
buffer BA. The pointer CSP points to the 
next available byte in the buffer. NOS 
contains the current card number in binary 
representation. It is increased by 1, and, 
after it was converted to decimal, it is 
moved into the last four columns of the 
card. The identification ;FILE; is put 
into columns 73-76. Then the card is moved 
into the output buffer, CSP is increased by 
80, and POUS, the counter of the cards in 
BA, is increased by 1. 


If CSP does not point to the end of the 
output area, the end of the routine is 
reached; otherwise, the four cards con¬ 
tained in the buffer are written on SYS001. 
CSP is reset to BA, POUS is cleared, and 
the program waits for the end of the write 
operation before the end of the routine is 
reached. 


RLD — DY 

This routine updates the relocation and 
position headers of the RLD cards. 


This routine is called when an RLD card 
is found in buffer B0. 

First, the ESID numbers of the first 
entry are updated. The first ESID number, 
the relocation header, is increased by 
SDNO-1 and the second, the position header, 
is set to SDNO. The next entries are han¬ 
dled in the following manner: 

If the flag byte is on, the four-byte 
entry is skipped. If the flagbyte is off, 
the entry is handled like the first entry. 
If all entries are processed, the routine 
returns to the main routine. 
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MOR -- DZ and EA 


This routine moves the RLD cards out of BO 
into the table space. If the area reserved 
for this purpose is filled, the cards are 
written in records of 1920 bytes onto TXTIN 
following the label table. 

SPEI (the current pointer for the area 
TSB reserved for the RLD cards) is 
increased by 80 and then compared with BO. 
If SPEI+80 is not greater than BO, the RLD 
card is moved into the area, SPEI is 
increased by 80, and the end of this rou¬ 
tine is reached. 

If SPEI+80 is greater than BO, the cur¬ 
rent position of TXTIN is noted and the 
file is set to the end of the label table 
or to the end of the last RLD card written 
on TXTIN. Next, the contents of the table 
space are divided into 1920-byte records 
which are written onto TXTIN. Left over 
cards are moved to the beginning of the 
area TSB and the RLD card in BO is moved 
behind them. The end of the last record 
written on TXTIN is noted and the file is 
reset to the current position in the file 
module. ZEHLS, which counts the number of 
records put onto TXTIN, is updated and SPEI 
is set to the location of the next availa¬ 
ble byte in the table space. Next a branch 
is made to the beginning of this routine 
and the next RLD card is processed. 

TXTSYS — EB 

This routine moves the TXT cards written on 
TXTOUT onto SYS001 behind the ESD cards. 

This routine is called after the END 
card is found in the buffer BO. 


The TXTOUT work file is repositioned to 
the beginning of the TXT cards. They are 
read into buffer Bl, and moved by subrou¬ 
tine MOOK into output buffer BA. If all 
cards are read in and processed (ZAHLS = 

0), the routine returns to the main rou¬ 
tine. 


RLDSYS — EC and ED 

This routine moves the RLD cards from the 
table space or TXTIN onto SYS001 behind the 
TXT cards. 


This routine is called by the main rou¬ 
tine. Two cases have to be distinguished. 

1. If SWI = 0, (i.e., no RLD cards have 

been written on TXTIN) the RLD cards 
contained in the table space are put 
onto SYS001 by subroutine MOOK. When 
all cards have been processed, the 
program branches back to the main rou¬ 
tine. 

2. In the second case, RLD cards have been 
written on TXTIN by subroutine MOR. 

The file is positioned to the end of 
the last record. The RLD cards still 
contained in the table space are moved 
onto TXTIN (buffer length = 1920) and 
the number of written records is updat¬ 
ed. Then the file is repositioned to 
the beginning of the RLD cards and the 
cards are moved from TXTIN onto SYS001, 
controlled by the counter of the RLD 
records and the counter of the cards 
contained in the last record. After 
having moved all records, the routine 
returns to the main routine. 


c 
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PHASE PL/IG25 (GEN ERATION OF ESP CARDS) — EH 


/A 


The function of this phase is to generate 
ESD (External Symbol Dictionary) cards The 
format of ESD cards is shown in Figure 1. 
ESD cards are generated in the following 
cases: 


2. If the entry name has the block number 
1 and the level number 0 r this is a 
secondary entry point of the external 
procedure and an ESD-LD card is pro¬ 
duced. 


1. Program: 

One ESD-SD card for the program control 
section including the STATIC storage. 


2. External references: 

One ESD-ER card for each of the follow¬ 
ing : 

a. Library routine used during object 
time 

b. External procedure referenced by 
this compilation 

c. File name 

3. Entries: 

One ESD-LD card for each entry point of 
the external procedure. 

4. External variables: 

One ESD-SD for each external variable. 


r - T - 

|Column|Contents 

|_- 1 - 

1 |Multiple punch 

2- 4 jESD 

11-12 |Number of bytes of information 
|contained in this card 
15-16 j ESID number of the first SD or ER 
jon this card 

17-72 [Variable information: 
j8 positions - name 
j1 position - Type code to 
jindicate SD,LD or ER 
|3 positions - assembled origin 
j1 position + Blank 
|3 positions - Length, if SD type, 
jIf an LD type, this field contains 
|the external symbol identifica- 
j tion. 

73-76 jFirst four characters of the 
jprogram name or zeros 
77-80 [Sequential card number 


H 


Figure 1. Format of the ESD Card 

In the first part of this phase (general 
flow charts EH-El) the external name table 
EXTAB is scanned and the following ESD 
cards are produced: 

1. On finding an entry name with the block 
and level number 0, the ESD-SD card for 
the program is produced. 


3. On finding an entry name with a level 
and block number different from 0,0 and 
0,1 an ESD-ER card must be produced. 

4. On finding a file name, an ESD-ER card 
is produced. 

5. Entries for built-in functions are 
skipped. 

6. Other entries are considered as exter¬ 
nal variables and ESD-SD cards are 
produced. 

If the external variable is a structure 
with a lefthang different from 0, an ESD-SD 
card with a generated name and an ESD-LD 
card with the name of the structure is 
produced. 

If lefthang is 0, only an ESD-SD card is 
generated. 

In the second part of the phase (general 
flow chart ET) the ESD-ER cards for the 
library routines are produced. The library 
bit string in the communication area indi¬ 
cates which routines are needed during 
object time. 

Appendix XYZ contains a listing of the 
library routines and their corresponding 
internal names in decimal and hexadecimal 
representation. 


Phase Input: 

1. Label table LABTAB on the TXTIN work 
file. The format of the LABTAB entries 
is as follows: 

Bytes 0-1 : Internal name of the label 
or entry name 

Bytes 2-3 : Offset from program begin 
Byte 4 : Block number 

2. External name table EXTAB on the TXTOUT 
work file. 

3. Block table BLTAB in the table space at 
IJKTS. Length of BLTAB: 128 bytes. 

4. Library bit string in the table space 
at IJKTS+128. Length of library bit 
string: 32 bytes. 
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5. Length of the control section PROGRAM+ 
STATIC STORAGE in the first 4 bytes of 
the TABTAB entry ZTAB05. 

6. Remaining ESD, TXT, and RLD cards and 
the END card which are in a 320-byte 
buffer at BUFF3 of the buffer area. 

7. Information bytes needed by the phase, 
at BUFF3+320. 


Ph ase O utp ut: 

1. ESD table on SYS001 (TABTAB entry = 
ZTAB16) . If the last I/O buffer is not 
full, the remaining ESD cards are 
stored at BUFF3. The number of remain¬ 
ing ESD cards is stored at BUFF3+320. 

2. ESID table containing a maximum of 255 
entries. The ESID entries have the 
following format: 

Bytes 0-1 : Internal name 
Byte 2 : ESID number 

The start address of the ESID table is 
stored at BUFF3+324 

3. Block table containing the lengths of 
DSA's (Dynamic Storage Areas). This 
table, located in the first 128 bytes 
of table space, is not changed by this 
phase. The address of the block table 
is stored in BUFF3+328. 

4. If the number of ESD cards is greater 
than 255, bit 4 in IJKMWC is set to 1 
and phase G31 is called. 


DESCRIPTION OF ROUTINES 

Sym bo ls us ed in fl ow ch art s: 

ABLT : Address of block table 

ALIB : Address of library bit string 

AESID: Address of ESID table 

EXBU1: Input buffer for EXTAB 

EXBU2: Input buffer for EXTAB 

LABU1: Input buffer for LABTAB 

LABU2: Input buffer for LABTAB 

ESBU : ESD output buffer 

REC1 : Number of input records required 

CACN : Number of cards in ESD buffer 

BCDP : BCD pointer 

SVAR : ESD variable field 

INIT1 — EJ 

The initialization routine INIT1 determines 
the addresses of the buffers and tables 
used during the phase. The contents of the 
table space (starting address TS) and the 
buffer area (starting address BS) are shown 
in Figure 2. 


Location 

"T 

|Contents 

I 

"T ~ 

| Length 

1 


■ + 

T 

TS+0 

|Block table BLTAB 

| 128 

TS+128 

jLibrary bit string 

i 


| LIBTAB 

| 32 

TS+160 

|ESID-table ESIDTAB 

|max. 765 

TS+925 

jInput buffers for 

|2 buffer 


j EXTAB 

|lengths 

BS+1BUFFL|Input buffers for 

|2 buffer 


|LABTAB 

| lengths 

BS+3BUFFL|ESD output buffer 

I 320 

BS+3BUFFL tInterphase 

i 


|communication 

| 20 

+ 320 

i 

1 


i _ .. 

1 

Note: 



TS 

Table space starting 

address 

BS 

Buffer area starting 

address 

BUFFL = 

Buffer length 



Figure 2. Contents of the Table Space and 
the Buffer Area 


GETEX — EK 


This subroutine reads one or two records of 
the external name table EXTAB from the 
TXTOUT medium according to the specifi¬ 
cation in REC1• If only one record is 
required, buffer EXBU2 is moved to EXBU1 
and EXBU2 is filled up. 

GETLA — EK 


This subroutine reads 2 records of the 
label table LABTAB from the TXTIN work file 
and waits for I/O termination. 

MESID — EL 


This subroutine moves the internal rep¬ 
resentation of the external name and the 
ESID number to the ESID table area. The 
output pointer OPT2 is increased by the 
length of the ESID entry. 

E SFI N — EM 

This subroutine controls the variable field 
in the ESD card, i.e., columns 17-60. If 
the ESD card is full or if the last ESD 
entry was made, the routine ESMO is called 
in order to move the ESD card into the 
output buffer ESBU. 

SDPRO — EL 

This subroutine moves the following infor¬ 
mation into the ESD entry SVAR: 

1. Program name (8 bytes) as given in the 
external name table 

2. Origin = 000 

3. Type of ESD entry = X'00* 
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4. Length of the control section including 
program and STATIC storage. The length 
is contained in the TABTAB entry 
ZTAB02. 

Finally, the origin is increased by the 
length of the section and aligned on 
double-word boundary. The ESID numer is 
increased by 1. The length of the variable 
field in the ESD card is increased by 16 
and routine ESFIN is called in order to 
move the entry into the output buffer. 


E SMO — EN 

The ESD card produced at ESENT is moved 
into the output buffer ESBLJ. If the output 
buffer is full, it is written on a work 
file. Otherwise, the output pointer 0PT1 
is increased by 80 and the routine returns 
to the main program. 


LD XEC — E O 

This subroutine stores the LD information 
for the secondary entry points of the 
external procedure In the variable field of 
the ESD card: 

1 • External name (8 bytes) 

2. Type code to indicate LD = X'01' 

3. Assembled origin (3 bytes) which is 
taken from the label table LABTAB by 
means of subroutine LABS. 

4. ESD number which is always X'OOOOOI* 


LA BS — EO 

The input parameter for this routine is the 
name of the secondary entry point of the 
external procedure in internal representa¬ 
tion. This subroutine scans through the 
label table LABTAB, and, on finding the 
corresponding name of the secondary entry 
point, the offset is fetched and stored in 
the ESD card. 

E RCAL — EP 

This subroutine moves the following infor¬ 
mation into the variable field of the ESD 
card: 

1. External name 

2. Type code to indicate ER 

3. Assembled origin (must always be 
X'OOOOOO') . 

An entry in the ESID table is made and 
the ESID number is increased by 1. 


SDLDS — E Q 

If the external structure has a lefthang of 
0, only an ESD-SD card is produced in sub¬ 
routine SDPRO. Otherwise, an ESD-SD card 
is produced for which an external name must 
be generated, and an ESD-LD card is made 
for the structure name. 


PAD — ER 

This subroutine generates a name for the 
ESD-SD card of an external structure^ The 
user-defined name of the external structure 
must not be longer than 6 characters. If 
it is exactly 6 characters, the leftmost 2 
bytes of the 8-byte name in the ESD card 
are padded with X'5B5B'. If the user- 
defined name is shorther than 6 bytes, it 
is moved right-aligned into the ESD card, 
and the leftmost bytes are padded with 
X'5B *• 


SKIP -- ES 

This subroutine increases the input pointer 
INPT1 by the length of the EXTAB entry. To 
ensure that the second input buffer EXBU2 
is read, the routine waits for completion 
of input from the TXTOUT work file to 
determine if the input pointer is greater 
than EXBU2-30. If the input pointer is 
greater than EXBU2, buffer 2 is moved into 
buffer 1 and the next record is read from 
buffer 2. 


LIBE R — ET 

In the second part of phase G25, the ESD-ER 
cards are produced for the library routines 
needed during object time. The library bit 
string located at IJKMLB in the communi¬ 
cation region indicates the library rou¬ 
tines for which ESD cards must be produced. 
The BCD names of the library routines have 
a length of 6 or 7 bytes. The first 3 
characters are always IJK. The variable 
characters are listed in the library table 
and are inserted in the ESD card. 

ERLI - - E U 

This subroutine moves the following infor¬ 
mation into the variable field of the ESD 
card: 

1. BCD name of the library routine. 

2. Type code to indicate ER 

3. Assembled origin must always be 
X' 0000'. 

An entry in the ESID table is made, and 
the ESID number is increased by 1. 
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PHASE P L/I G30 (GENERATION O F TXT A ND RL D CARDS) — FH 


This phase generates the TXT and RLD cards 
for the program module. 

TX T Cards 

TXT cards (see Figure 1) contain machine 
instructions and constants. 


| Column 


h 


Contents 


2- 4 
5 

6 - 8 


9-10 

11-12 


13-14 

15-16 


17-72 


73-80 


Load card identification 
(12-2-9). Identifies this as a 
card acceptable to the loader. 
TXT. Identifies the type of load 
card. 

Blank. 

24-bit start address in storage 
where the information from the 
card is to be loaded (in extended 
card code) . 

Blank. 

Number of bytes of text to be 
loaded from the card (in extended 
card code) . 

Blank. 

External Symbol Identification 
(ESID.) number, in extended card 
code, assigned to the program 
segment in which the text occurs. 
(Here 01) 

A maximum of 56 bytes of instruc¬ 
ts ms and/or constants assembled 
in extended card code. 

Not used by the loader; used for 
identification: the first 4 char¬ 
acters of the external procedure 
name followed by a sequence num¬ 
ber. 


Figure 1. Format of the TXT Card 
RLD Cards 


RLD cards are generated for all address 
constants. They contain the location of 
the constant in reference to the corres¬ 
ponding TXT card, the ESID numbers for the 
reference (relocation header) , and the 
position (position header) . Figure 2 shows 
the format of the RLD card. 

The length of the information to be put 
in the RLD card for each constant is 8 
bytes or 4 bytes depending on whether the 
relocation and position headers change or 
not. If they do not change, the headers 
must not be repeated. This is flagged by 
the continuation flag bit. The information 
for a maximum number of 13 address con¬ 
stants may be contained in one card. 


r-r- 

|Column|Contents 




Load card identification 
(12-2-9). Identifies this as a 
card acceptable to the loader. 

2- 4| RLD. Identifies the type of load 
card. 

5-10 | Blank. 

11 — 12 j Number, in extended card code, of 
bytes of information in the vari¬ 
able field (card columns 17-72) 
of this card. The range is from 
8 to a maximum of 56. 

13-16j Blank. 

17—72 j Variable field (in extended card 
code)• Consists of the following 
subfields: 

1. Relocation Heade r. (Two 
bytes) An ESID with a value 
of from 01 through 256. 

Whether or not the value is 
01 or from 02 through 256 
depends on whether the symbol 
it points to is internal or 
external to the particular 
program segment. 

2. P osition Header . (Two bytes) 
The ESID assigned to this 
program segment. 

3. Flag Byte (bits 0 through 3 
are not used) . This byte 
contains three items: 

a. Size . (Bits 4 and 5) Two 
bits which indicate the 
length (in bytes) of the 
adjusted address cell (AA 
cell) 

a. 00 - one-byte cell 

b. 01 - two-byte cell 

c. 10 - three-byte cell 

d. 11 - four-byte cell 

b. Complement Flag . (Bit 6) 
When this bit is 1, it 
means that the value (or 
address) of the symbol is I 
to be subtracted from the] 
contents of the AA cell. 
When this bit is 0, the 
value of the symbol is to 
be added to the contents 
of the AA cell. 


Figure 2. Format of the RLD Card (Part 1 
of 2) 
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r -- T - 

|Column|Contents 


c • Con tinuation Flag • (Bit 
7) When this bit is 1, it 
means that this is one of 
a series of addresses to 
be adjusted. When this 
bit is 0, this is the 
only AA cell to be 
adjusted or the last in a 
series using the same 
relocation and position 
headers. 

4. Ad dr ess. The three-byte 
address of the location of 
the AA cell. 

The flag byte and address may 
be repeated for AA cells as 
long as the continuation flag 
bit is on in the current 
four-byte entry. 

73-80] Not used by the loader; used for 
identification: the first 4 char¬ 
acters of the external procedure 
name followed by a sequence num¬ 
ber. 


H 


Figure 2. Format of the RLD Card (Part 2 
of 2) 

E ND Card 

The last card to be generated is the END 
card. Figure 3 shows the format of the 
Load End card. 


r - T -- 

|Column] Contents 


H 


Load card identification 
(12-2-9). Identifies this as a 
card acceptable to the loader. 

2- 4| END. Identifies the type of load 
card. 

5 | Blank. 

~81 Address (may be blank) , in 

extended card code, of the point 
in the program segment to which 
control may be transferred at the 
end of the loading process. 

9-14| Blank. 

15-16| External Symbol Identification 
(ESID) . (May be blank.) 

17-72| Blank. 

73 — 80 j Used for identification as in the 
ESD, TXT, and RLD cards. 


Figure 3. Format of the Load End Card 

If there is a main procedure (flagged in 
the communication area) , the address 
columns will be set to 0 and the ESID num¬ 
ber is set to 01. In all other cases the 
address columns and columns for the ESID 
number contain blanks. 


The cards are constructed in an 80-byte 
mask and written on SYS001 in physical 
records of 320 bytes each. The cards for 
the files and the ESD cards of the program 
module are already present on SYS001. All 
cards are used as input for the final out¬ 
put phase (G55) . 

There are two modules, one for files and 
one for the program and the external varia¬ 
bles. A module may consist of several 
control sections. 


ESD - cards 
TXT - cards 
RLD - cards 


MODULE 1 


( FILES ) 


| END - card 

L 


ESD - cards 

TXT - cards ( PROGRAM ) 
RLD - cards 


MODULE2 


| END - card 

I 

L_ 

General Flow of the Phase — FH 


The program string is scanned to determine 
whether an element is a machine or an 
assembler instruction. 

For machine instructions the format is 
determined. The instruction is moved 
(according to the format) into the current 
TXT-card mask which is moved into the out¬ 
put buffer if it is full. 

For assembler instructions the kind of 
instruction is determined first. The cor¬ 
responding information is inserted in the 
current TXT card. For address constants, 
the current location counter (LOCI) is 
stored in a save buffer together with the 
corresponding ESID numbers. 

When all TXT cards have been generated, 
i.e., when the END-key is found, the RLD 
cards are generated from the records in the 
save buffer. 

All cards are written on SYS001 in 
320-byte records. 
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( 



Ph ase Input/Ou t put 


Machine Instructions 


The input consists of the program string 
and three tables: the ESD table, the 
character-string and the BLOCK table. The 
program string is located on TXTIN, fol¬ 
lowed by the character-string and is the 
output of phase G15 where it has been des¬ 
cribed. The program string is read sequen¬ 
tially using buffers B1 and B2 as input 
buffers with the pointer POI. 


The ESID and BLOCK tables are inserted 
in the table space by the phases G25 and 
G20, respectively. Their addresses are 
located in the second and third word of the 
master table TABTAB. The ESID table is 
restricted to 255 3-byte entries with the 
following format: 


The format is determined first. Then the 
information contained in the instructions 
is inserted (according to the format) in 
the TXT-card mask which is moved into the 
output buffer if it is full. 


RR instructions 

a. 

r - T - T -T 


,0P. I I I 

| 88 |C. I OX I OY I 

L-X-X-X-J 

Format of the instruction. 

b. 


(4 bytes) 


2 1 

r --] 

ESID |INTERNAL ESID| 
j NAME NO j 

(.-^ 

I • -I 


BLOCK 


r- 1 

j LENGTHi 
j OF DSA| 

F- 1 

I . I 
I • I 


I 


I 


The BLOCK table is restricted to a maxi¬ 
mum of 63 2-byte entries each containing 
the length of a DSA. 

If the save buffer BO is full, it is 
written on TXTOUT intermediately. The 
information is read in again for generation 
of the RLD cards using the input buffers B1 
and B2• 

The output is written on SYS001 just 
behind the ESD cards constructed in phase 
G25. The output consists of TXT cards, RLD 
cards, and the END card. 

For output, two 320-byte buffers are 
used with the pointer CPO. Which of the 
two buffers is used is determined by reg¬ 
ister ABU and switch AE. One buffer is 
filled while the other is written on 
SYS001. The first buffer is located at 
B3+8, and the second one is at the end of 
the phase. 

If phase G25 does not fill the last 
320-byte record, this record is left in the 
I/O buffer and is filled with TXT cards in 
phase G30. 


D etail e d Descr iption 

The scan of the text string is handled as 
in previous phases. It must be determined 
whether an element is a machine instruction 
or an assembler instruction. 


3. 


f - T - T -1 

|0P. I I I 

|C. |X |Y I 

L_X_X_J 

Information inserted in the TXT card (2 
bytes) 

RX and RS instructions 

a. 

f - T - T -T-T-T-1 

I I Op. I I | | I 

j88 |C. I OX j OY j 10 j NAME | 

L_X_X-X-X-X-J 

r - T - T -1 

|MODIFIER j B |DISPL• j (11 bytes) 

L_X_X_J 

b. 

f-T-T-T-T- 1 

|0p. I I I I | 

jc. j X j Y j B j DISPL. j (4 bytes) 

L_X_X-X-X-J 

SI instructions 

a. 

f - T -T-T-T-T- 1 

I I Op. I I | I | 

j 88 jc. j 00 j I j KEY jNAMEj 

L_X_X_X-X-X-J 

r- t—t-1 

jMODIFIER IB IDISPL. j (11 bytes) 

L_X_X_J 

b. 

r - T - T -r-1 

|0p. Ill I 

jc. j ij B j DISP. I (4 bytes) 

L_X-X_X-J 
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SS instructions 


BRAN 4 


-> --—-—i 


a. 


f*-T-T-T-T-T-T 

j88 jOp. j 0L1 j 0L2 j KEYj NAME | 

I |C. | III I 

L_X_X-X_X_X_J 

r-T-T-T-T- 1 

jMODIFIER |B j DISPL•j KEY j NAME j 

L-X-X_X_X-J 

r -j —t-1 

|MODIFIER j B jDISPL.j (18 bytes) 

L-X_X_J 

b. 

( 1 ) ( 1 ) ( 2 ) ( 2 ) 

r - T - T -T”T- 1 T-1 

|Op.C.jLI|L2jBjDISPL.|B|DISPL.j (6 BYTES) 
L_X_X_X_X_X- X_J 

For all instructions the location coun¬ 
ter is adjusted in the same way. 

Abbreviations: 

X, Y are registers, 

B is the base register, 

Op.C. is the operation code, 

I is the immediate constant, 

DISPL is the displacement 

L1,L2 are lengths 


As sembler Instructions 

These instructions must be distinguished in 
the code byte (second byte) . 


B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 


ERR 

DC AL3 
DC X 
DS L 
LABEL 
PROCE 
ENDBL 
DC F 
ERR 
ERR 
DC A 
DC V 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 
A 
B 




L-J 


Note: ERR is an error routine for elements 

which must not occur. 


1. DC AL3 (DC VL3) 


The location counter is stored in the 
save buffer together with the corres¬ 
ponding ESID number. The ESID number 
is 01 for the key 10 (for DC AL3), 
otherwise it has to be taken from the 
ESID table (for DC VL3) . 


The leftmost bit of the entry is set to 
1 to flag the length of the address (3 
bytes) . 


Save buffer: 


CURRENT 

LOCATION 

COUNTER 


ESID 

NO 


H-^ 


The location counter is increased by 3, 
The instruction has the format: 


Code byte 

*T" 

1 

-X- 

Instruction 

Cl 

T 

1 

DC A.L3 

C2 

1 

DC X 

C3 

1 

DS L 

C4 

1 

LABEL 

C5 

1 

PROCEDURE 

C6 

i 

END OF BLOCK 

C7 

1 

DC X'LENGTH OF DSA* 

CA 

1 

DC A 

CB 

I 

DC V 


The code byte is put into a general 
register and X'CO' is subtracted. The 
result is used as offset in the branch 
table BRAN4 with the corresponding branches 
to subroutines as entries. 


(i) 

(1) 

(1) 

(2) 

«-1 

1 00 l 

1 o 1 
1 1 

“T- 

| Cl 

_X- 

r -t— 

j KEY j 
_JL JL - 

NAME | 

. - J 


(2) 

(3) 


MODIFIER 


OFFSET | (10 bytes) 


The following information is put into 
the TXT-card mask: 


OFFSET 


(3 bytes) 
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2. DC X 

The location counter is increased by 
the length of the constant found in the 
second halfword and the constant itself 
is moved into the TXT-card mask. 

3. PS L 

The location counter is increased by 
the length given in the second half¬ 
word/ and < if the length is greater 
than 8 r a new TXT card is started, 
otherwise, zeros are inserted. 

4. LABEL 

This element is skipped by increasing 
the pointer POI by 4. 

5. PRQCE 

This element is not used and, there¬ 
fore, it is skipped by adding 6 to POI. 

6. ENDBL 

Adding 4 to POI causes this element to 
be skipped, too. (Same routine as 
LABEL) 

7. DC_F 

This instruction has the format 

r-T-T-T-1 

j80 |C7 jLEV j BLO | 

l -jl _r_X_J 


The block number BLO is used to find 
the corresponding entry in the BLOCK 
table, where the length of the DSA is 
found in a halfword. This halfword is 
expanded to a fullword by inserting 
leading zeros and the fullword is 
stored in the TXT card mask. 

The location counter is increased by 4. 

8. DC_A 

The location counter is stored in the 
save buffer together with the ESID 
number 01. The location counter is 
increased by 4. The offset, found in 
the last three bytes of the instruc¬ 
tion, is expanded to a fullword and 
stored in the TXT-card mask. 

9. DC V 

The location counter is stored in the 
save buffer together with the corres¬ 
ponding ESID number, which is taken 
from the ESID table. 

The location counter is increased by 4. 


The offset, found in the last three 
bytes of the instruction, is expanded 
to a fullword and stored in the TXT- 
card mask. 

END K ey 

The END key is directly followed by the 
character string, the length of which is 
found in the communication area. The 
character string is inserted in the current 
TXT-card mask and the mask is written on 
SYS001. 

The save buffer, which might be written 
on TXTOUT intermediately, is read into the 
I/O buffers, and for each entry in the save 
buffer an entry in the current RLD mask is 
inserted. 

When the records of the save buffer have 
been processed, this phase ends by generat¬ 
ing the END card. 

Abbreviations 


BO, B1, B2, 

B3 - 

I/O buffers 

POI 

- 

Input pointer 

POU 


Output pointer for save 
buffer 

BRAN4 

- 

Branch Table 

LOCI 

- 

Location Counter 

BUFL 

- 

Buffer length 

RLDCOJ 

- 

Counter for the RLD mask 

TXTCOQ 

- 

Counter for the TXT mask 

CPO 

— 

Pointer for the 320-byte 
buffers 

AE 

— 

Switch for the 320-byte 
buffers 

AB1 

— 

Initial address of first 
320-byte buffer 

AB2 

— 

Initial address of second 
320-byte buffer 

TXT 

- 

Address of TXT-card mask 

L 

INRE — FL 


Length 


This routine inserts the register in the 
rightmost 4 bits of the byte POI+2 into the 
leftmost four bits of POI+2, and the reg¬ 
ister in the rightmost 4 bits of the byte 
at POI+3 into the rightmost 4 bits of 
POI+2. 

MEX — FL 

This routine moves a string of length L 
(given in R1) from POI+1 into the TXT-card 
mask at the point denoted by the pointer 
TXTCOtJ and supervises the TXT-card mask, 
moves it into output if it is full and 
adjusts the starting address and TXTCOU. 

MOSC — FM 

This routine moves a record of length 80 
bytes from the mask initial address TXT to 
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the current output buffer. It adusts the 
pointer CPO and writes the output buffer, 
if full, on SYS001. 

Before moving the card into output, it 
inserts the TXTCOU or RLDCOU in bytes 11 
and 12 of the mask giving the number of 
information bytes in the card. 

The output buffers have a length of 320 
bytes. 


MO KK — FM 

This routine moves the four bytes, consist¬ 
ing of the location counter and ESID num¬ 
ber, into OBUF (BO) by means of routine 
MOO. The OBUF is supervised and the output 
pointer is adjusted. 

E LO — FN 

This routine determines the information to 
be inserted into the RLD mask. This will 
be done by means of an 8-byte mask with the 
following format: 

r - T -- T -T-1 

| -2- | -2- | -1- | -3- | 

jRELOCATION! POSITION |FLAG jADDRESS j 

j HEADER j HEADER |BYTE | | 

L-X-X-X_J 

1. The relocation header is taken from the 
save-buffer where it is the fourth byte 
of each entry (ESID number) . 

2. The position header is always X'01', 
because all constants arise in the 
program control section. 

3. The flag byte has to be constructed in 
the following format: 

bits 0-3 : zeros 

4,5 : 10 - For DC AL3 and DC VL3 
constants. 

11 - For all other 
constants. 

6 : zero 

7 : 0 - If another header or 

no more instructions 
follow in current card. 
1 - For the same headers. 


4. The address of the DC instruction rela¬ 
tive to the beginning of the program 
control section. 

ELO inserts this information in the mask 
and sets a switch (SW8) to 1 if the headers 
change and to 0 if they do not. 


MAX — FO 


This routine inserts the 8-byte mask. It 
determines whether there is room enough to 
insert the information of length 4 (SW8 = 

0) or 3 (SW8 = 1) into the current RLD 
mask. If there is room enough, the mask is 
inserted and counter RLDCOU is increased; 
if not, the RLDCOU is inserted into bytes 
11-12 of the mask (number of information 
bytes in the card) and the mask is written 
on SYS001. Then the 8-byte mask is insert¬ 
ed into the card in each case, and the 
RLDCOU is updated. 

If SW8 =0, the last bit of the previous 
flag byte is set to 1 (means continuation) . 

RLDCA — FP 


This routine changes the TXT-card mask to 
an RLD-card mask which is used to generate 
the RLD cards. It reads the save records 
one by one into the I/O buffer B0 and uses 
the pointer POI. For each entry it deter¬ 
mines the bytes to be inserted by routine 
ELO, inserts them into the card (by MAX) 
and increases POI. This is done until the 
END key X^ 1 FF• is found. Then the last RLD 
card is written out by MOSC. 

INLE - - FQ 


This routine inserts the length-1 in the 
byte at POI+3 into one byte together with 
the length-1 at POI+2 if there is any. 

ESI — FQ 


This routine fetches the corresponding ESID 
number from the ESID table by scanning the 
table for the name in the current DCV. 
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PHASE PL/IG 31 (FIN AL DIAGNOSTI C) — GA 


This phase lists the errors that occur 
after phase E25. It terminates the compi¬ 
lation if one or more of these errors occur 
or if neither LINK, SYM, nor DECK was spec¬ 
ified in the OPTION job control statement. 
Which error has occurred is indicated by 
the bits of byte IJKMWC as follows: 

B it M essage * 

0 5G01I 

1 5G02I 

2 5G03I 

3 5G04I 

4 5G05I 

5 5G06I 

6 5G07I 

♦For the actual diagnostic message refer to 
the DOS/TOS PL/I Programmer's Guide. 

If no error is detected, all files are 
closed and the compilation is terminated. 

If an error is detected, the corresponding 


message is written on SYSLST, and the mes¬ 
sage 

5E01I JOBSTEP PL/I TERMINATED, LINK OPTION 
RESET is written on SYSLOG. 

The linkage bits in the communication area 
are set off, the files are closed, and the 
compilation is terminated. 

Note: For the tape version, SYSRES is 

rewound at the beginning of the phase. 


COPR - - GB 

The current line is written on SYSLST. If 
SYSLOG is not the same device as SYSLST, 
the message 

5E01 JOBSTEP PL/I TERMINATED, LINK OPTION 
RESET 

is written on SYSLOG. 
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PHA.SE PL/IG40 (LISTING OF COMPILER OUTPUT) — GF 




This phase lists the object code produced 
by the compilation and the constants of the 
static storage. The listing is produced if 
the LISTX option is specified; otherwise/ 
the next phase (G55) is called. Figure 1 
shows the format of the object code list¬ 
ing. 


Print 

Position 


10 


31 


40 


46 


90 


h 


Subheader 


LOC. 


OBJECT 

CODE 


LABEL 


OP. 


OPERANDS 


Contents 


6 hexadecimal digits 
representing the cur¬ 
rent value of the 
location counter. 

The instruction 
printed in hexadecimal 
digits containing 
operation code, 
registers or lengths/ 
and displacements. 

The internal name is 
listed in the format 
L'aaaa', where 'a' is 
a hexadecimal digit of 
the internal name. 
Mnemonic operation 
code using the Assem¬ 
bler mnemonics. 

Up to 35 print posi¬ 
tions containing the 
operands of the 
instruction. 

Statement number NN 


H 


H 


Note: Registers, lengths/ displacements 
names, and labels are listed in hexa¬ 
decimal notation. The statement number 
is listed in decimal notation. It indi¬ 
cates that the code generated from the 
preceding statement number from the 
beginning of the program) to this one 
belongs to the statement marked by the 
statement number. This number may appear 
more than once. 


There are two formats for the operands: 


If the internal name replaces a 
declared name or a library routine/ it 
is listed in the format N'aaaa'+mmmm, 
where aaaa is the internal name and 
mmmm is the modifier. A zero modifier 
or heading zeros in it are left out. 


In all other cases, the format of the 
operands is X'ddd' (B) , where ddd is the 
hexadecimal displacement and B is the 
base register. 


In addition, there are some pseudo 
Assembler instructions with the following 
formats which differ from Assembler lan¬ 
guage: 


1. At the beginning of a block, 'BEGIN OF 
BLOCK NN* is written, where NN is the 
block number. 


2. At the end of a block, 'END OF BLOCK' 
is written. 


3. For the length of a DSA, the comment 

'LENGTH OF DSA OF BLOCK NN' is written. 


4. At the beginning of the static storage. 


'L'FFFF' STATIC STORAGE' 


is listed starting in column 31 and preced¬ 
ed by a blank line. 

5. The listing is terminated with 'END' in 
columns 40-42. 


Figure 1. Format of the Object Code List¬ 
ing 


Figure 2 shows examples for each type of 
instruction format. 
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000000 



o 

o 

fO 

BEGIN 

OF BLOCK 01 

000000 

05F0 



BALR 

F,0 

000002 

45E0 F00A 



BAL 

E,X' 00A' (F) 

000008 

00000040 



DC 

A (N’FFFF*) 

oooooc 

905A D078 



STM 

5, A,N'0103'+8 

000010 

05E0 



BALR 

E, 0 

000012 

4A60 C002 



AH 

6,X' 002* (C) 

000016 

04 0E 



SPM 

E 

000018 

0A02 



SVC 

02 





STATEMENT NUMBER 7 

00001A 

9216 D080 


L f 0107 * 

MVI 

N'oioe'+^x'ie' 

00001E 

05E0 



BALR 

E, 0 

000020 

41El E00E 



LA 

E,X'00E’ (1 ,E) 

000024 

03 



DC 

X' 03' 

000025 

000118 



DC 

AL3 (N’ 0105 ') 

000028 

00000C80 



DC 

LENGTH OF DSA OF BLOCK 01 

0 0 0 02 C 

D255 E007 

D112 


MVC 

X' 007 ' (56, E) ,N'0110'+36 

000032 

F842 D104 

D080 


ZAP 

N'0111 '-7 (5) , N' 011 0' (3) 

000038 

94EE 6022 


L 1 0 112 * 

NI 

X' 022 ' (6) , X 'EE ' 

00003C 




END OF BLOCK 

00003C 




DS 

CL0004 




L 1 FFFF 1 

STATIC STORAGE 

000040 

0000300040005000 

L* 0004' 

DC 

X'0000300040005000' 


60007000 



DC 

X' 60007000 ' 

00004C 

00 


L'0119' 

DC 

X'00' 

00004D 

000000 



DC 

VL3 (N'0100 ') 

000050 

00000000 


L* 0019 1 

DC 

V (N'0019'l 

000054 

00000038 


L' 0 1 1 2 * 

DC 

A (N * 01 12 ') 

000058 

000060 


L* 0120' 

DC 

AL3 (N'0119') 

00005B 



L'0003 * 

DC 

C'/$$$ IJXG40' 


END 


f-^ 

|Note: The preceding listing is not a logical program | 


L 


J 


Figure 2. Example of All Instruction Formats 


In some cases, address constants occur 
containing the same internal name as their 
own label, e.g. 

L * 0 1 01• DC A (N 1 0101*) 

This is because the internal label name 
occurs twice, once in the program part and 
once in statit storage. In the program 
string, the constant is addressed via this 
name. In the static storage, the program 
string label is addressed. Only one entry 
in the offset table is used for both. This 
is because the offset of the constant is 
inserted into the offset table by phase F75 
and inserted into the text string by phase 
F95. In phases GOO and G01, the offset in 
OFFTAB is replaced by the label offset; in 
phase G15, this offset is inserted into the 
instructions. 


P hase Input and Output 

The input is taken from the TEXT work file 
and consists of the output of phase G15. 
The input is read into buffers B1 and B2 
with pointer POI. 


Another input is the BLOCKTABLE, which 
is read into BO during phase G30. 

The output is written onto IJSYSLS via 
two buffers of length 121 bytes each res¬ 
erved in the I/O buffer B4. The buffers 
are addressed via register 11. 

General Flow of the Phase — GF 

The input is scanned. Each instruction is 
identified and the corresponding print line 
inserted into one of the two print buffers. 
The information is written on IJSYSLS by 
means of routine ZPRNT. When all instruc¬ 
tions have been listed, i.e., when the end 
key is found, the phase is terminated by 
printing 'END' and calling phase G55. 

The program string is read and scanned 
sequentially. The following types of 
instructions are differentiated: 

1. Machine instructions (key is X'88') 

2. Assembler instructions (key is X'SO 1 ) 

3. End key (X'01 •) 
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Machine In st ru ct io ns, If a machine 
instruction is detected/ the format is 
determined. This is done by means of the 
code byte which contains a special hexa¬ 
decimal key for each instruction. For each 
format there are translate tables for the 
corresponding mnemonics. The code byte is 
translated with a translate vector contain¬ 
ing the offsets in the corresponding table 
of mnemonics. The mnemonics are moved from 
the mnemonic tables into the corresponding 
entry of the print buffer. The mnemonic 
tables are shown in Figures 4-7. A summary Figure 3. Summary of Mnemonics Tables and 
of these tables is shown in Figure 3. Translate Vectors 


Instruction 

(Tables of 
j Mnemonics 

i . . 

(Translate Vectors 

i 

_L 

RR 

I 

| RR1 

T 

| RR2 


RX 

| RX1 

j RX2 


RS 

j SI1 

j SI2 


SI 

| SI1 

j SI2 


SS 

| SSI 

| SS2 

(for X'D. *) 


1 

j SS3 

(for X’F. ') 


l _r_r_j 


r 


■ 

T- 

T 


- - 

~T - 


r 


-1 

| RR1 

0 

SPM 

| 20 

LPDR|RR2 

X' 00 ' 

00 

|X' 

08* 

14 | 

X' 17* 

28 | 


• 

BALR1 • 

LNDR | 

00 

01 

1 

09 

15 | 

18 

29 | 


• 

BCTR 

i • 

LCDR j 

00 

02 

1 

0A 

16 | 

19 

2A | 


• 

SCR 

i • 

LDR | 

00 

03 

1 

0B 

17 | 

1A 

2B| 


• 

SVC 

1 • 

CDR | 

26 

04 

1 

OC 

18 | 

IB 

2C | 


5 

LPR 

1 25 

ADR | 

01 

05 

1 

0D 

19 | 

1C 

2D j 


• 

LNR 

i • 

SDR | 

02 

06 

i 

0E 

1A | 

00 

2E j 


• 

LCR 

i • 

MDR | 

03 

07 

1 

OF 

IB | 

00 

2F j 


• 

NR 

i • 

DDR j 

00 

08 

1 

10 

1C | 

ID 

30 | 


• 

CLR 

1 • 

LPER | 

00 

09 

1 

11 

ID 

IE 

31 ( 


10 

OR 

( 30 

LNER j 

04 

0A 

1 

12 

IE j 

29 

32 | 


• 

XR 

i • 

LCER| 

00 

0B 

1 

13 

IF j 

IF 

33 | 


• 

LR 

i • 

LER j 

00 

0C 

1 

14 

20 | 

00 

34 | 


• 

CR 

i • 

CER j 

00 

0D 

1 

15 

21 | 

00 

35 ( 


• 

AR 

1 • 

AER j 

00 

0E 

1 

28 

22 | 

00 

36 | 


15 

SR 

1 35 

SER j 

00 

OF 

1 

16 

23 | 

00 

37 | 


• 

MR 

i • 

MER j 

05 

10 

1 

00 

24 | 

20 

38 | 


• 

DR 

i • 

DER j 

06 

11 

1 

00 

25 | 

21 

39 | 


• 

ALR 

i • 

SPM | 

27 

12 

1 

00 

26 | 

22 

3A| 


• 

SLR 

1 • 

LTR j 

07 

13 

1 

00 

27 | 

23 

3B | 




| 40 

LTDR j 



1 


i 

24 

3C | 




| • 

LTER j 



1 


i 

25 

3D| 

L 



l 

± 





_L 


j 


r 



T 

T 



T 


T 


i 

j RX1 

0 

0000 

| 25 

M RX2 

X'01 • 

40 

|X f 

1 6' 

59 | 

X'00 1 

72 | 


1 

STH 

i • 

D | 

02 

41 

1 

17 

5A | 

00 

73 | 


2 

LA 

i • 

AL j 

03 

42 

1 

18 

5B | 

00 

74 | 


3 

STC 

i • 

SL | 

04 

43 

1 

19 

5C | 

00 

75 | 


4 

IC 

i • 

STD | 

05 

44 

1 

1A 

5D | 

00 

76 | 


5 

EX 

| 30 

LD | 

06 

45 

1 

IB 

5E | 

27 

77 | 


6 

BAL 

i • 

CD j 

07 

46 

1 

1C 

5F j 

28 

78 | 


7 

BCT 

i • 

AD j 

08 

47 

1 

IE 

60 | 

29 

79 J 


8 

BC 

i • 

SD | 

09 

48 

1 

00 

61 J 

2A 

7A| 


9 

LH 

1 • 

MD j 

0A 

49 

1 

00 

62 | 

2B 

7B | 


10 

CH 

| 3 5 

DD j 

0B 

4 A 

1 

00 

63 | 

2C 

7C | 


• 

AH 

i • 

AW j 

OC 

4B 

1 

00 

64 | 




• 

SH 

i • 

SW | 

0D 

4C 

1 

00 

65 | 




• 

MH 

i • 

STE j 

00 

4D 

1 

00 

66 | 




• 

CVD 

i • 

LE | 

0E 

4E 


00 

67 | 




15 

CVB 

| 40 

CE | 

OF 

4F 

1 

IF 

68 | 




• 

ST 

i • 

AE ( 

10 

50 

1 

20 

69 | 




• 

M 

i • 

SE | 

00 

51 

1 

21 

6A | 




• 

CL 

i • 

NE j 

00 

52 

1 

22 

6B | 




• 

0 

1 • 

DE | 

00 

53 

1 

23 

6C | 




20 

X 

| 45 

i 

11 

54 

1 

24 

6D | 




• 

L 

i 

i 

12 

55 


25 

6E j 




• 

C 

i 

i 

13 

56 

1 

26 

6F j 




• 

A 

i 

i 

14 

57 

1 

00 

70 | 




• 

S 

i 

i 

15 

58 

1 

00 

71 | 



L_ 

_ 


_x_ 



_ 

-X— 

__ 

-± 


_j 


Figure 4. RR Tables 


Figure 5. RX Tables 
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0 

0000 j SI2 

X'00* 

80 | 

j Contents of 

j Instruction 

• 

SRL j 

00 

81 | 

j Code byte 

i 

• 

SLL | 

00 

82 | 

j.- 

i~ 

• 

SRA | 

00 

83 | 

j Cl 

j DC AL3 (DC VL3) 

• 

SLA j 

00 

84 1 

| C2 

j DC X 

5 

SRDL| 

00 

85 | 

| C3 

| DS L 

• 

SLDL j 

00 

86 | 

| C4 

j LABEL 

• 

SRDA| 

00 

87 | 

1 C5 

j PROCEDURE OR 

• 

SLDA j 

01 

88 | 

1 

(STATEMENT NUMBER 

• 

STM | 

02 

89 | 

| C6 

j END OF BLOCK 

10 

TM | 

03 

8A| 

1 C7 

j DC X’LENGTH OF DSA 1 

• 

MV I j 

04 

8B j 

| CA 

(DC A 

• 

NI | 

05 

8C | 

| CB 

| DC V 


The code byte is put into a general 
register and X*C0' is subtracted. The 
result is used as offset in the branch 
table BRAN3 with corresponding branches to 
subroutines as entries. The format of 
BRAN3 follows: 


i 


1 

10 

98 




BRAN3 r - 



L- 

— 

1 . 


-j 




1 B 

ERR | 

0 









1 B 

DC AL3 j 

1 









1 B 

DC X | 

2 

Figure 

6. RS and SI Tables 



|B 

DS L j 

3 









IB 

LABEL j 

4 









1 B 

PROCE j 

5 

p——— 

— 

- T - 

— 

- T - 


- 1 

1 B 

ENDBL j 

6 

| SSI 

0 

0000ISS2 X'00' 

DO 

SS3 

X' 00* 

F 0 | 

1 B 

DC F | 

7 

1 

1 

MVN | 

01 

D1 


08 

FI j 

1 B 

ERR | 

8 

1 

2 

MVC | 

02 

D2 


09 

F2 | 

1 B 

ERR | 

9 

1 

3 

MVZ | 

03 

D3 


0A 

F3 j 

1 B 

DC A j 

A 

1 

4 

NC j 

04 

D4 


00 

F4 j 

jB 

DC A | 

B 

1 

5 

CLC | 

05 

D5 


00 

F 5 | 


- J 


1 

• 

OC j 

06 

D6 


00 

F6 j 




1 

• 

XC j 

07 

D7 


00 

F7 j 




1 

• 

MVO j 




0B 

F 8 j 

Note: ERR 

is an error routine for elements 

1 

• 

PACK | 




OC 

F9| 

which must 

not occur. 

1 

10 

UNPK j 




0D 

FA) 




1 

• 

ZAP j 




0E 

FB| 

1 . DC AL3 

, DC VL3, 

DC A, and DC V 

1 

• 

CP | 




OF 

FC | 




1 

• 

AP | 




10 

FD j 

The information contained in the instruc- 

1 

• 

SP | 





1 

tion is inserted into the print buffer. 

1 

15 

MP j 





1 

The print 

line has 

the following format: 


Figure 7. SS Tables 


Besides the mnemonics, the location 
counter, the current label, and the oper¬ 
ands are moved into the print buffer. 

Before it is inserted, all the information 
is translated into EBCDIC by routine TRANS. 


A ssembler Instructions 

These instructions must be distinguished in 
the code byte (second byte) . The instruc¬ 
tion codes follow. 


r- t-t- 

j LOC. j OBJECT j LABEL 
| j CODE j 

f 


“T-T- 

j OP.I OPERANDS 




+- +—+ -^ 

000088|000742 |L'0137'|DC |AL3 (N f 0140') | 

j 0 0008B|00 0000 |L 1 0138 1 |DC |VL3(N'0138') | 

| 000090|00000806|L*0139 1 |DC |A (N'0142 1 ) | 

| 000094 | 000000 |L , 0037 , |DC |V(N'0037 f ) | 

L_X_X-X-X-J 


4 corresponding to 
POI is increased 


LOC is increased by 3 or 
the type of instruction, 
by 10. 

2. DC X 


The information is inserted into the print 
buffer as follows: 
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Starting 

Print 

Position 


Contents 


H 


2 

10 

31 

40 

46 


Location counter 
Constant, but not more than 
8 bytes of it 
Label 
DC 

X' CONSTANT' (not more than 8 
bytes) 


If the constant has more than 8 bytes, a 
new line is printed for each 8 bytes, but 
without updating the location counter each 
time. The location counter is increased 
by the entire length of the constant. 


6. ENDBL 

The expression 'END OF BLOCK' and the 
location counter are inserted into the 
print buffer. POI is increased by 4. 

7. DC F 

The length of the corresponding DSA is 
taken from the block table expanded to a 
full-word and inserted at R11+10. The 
message 

' DC LENGTH OF DSA OF BLOCK NN ' 

(where NN is the block number) is listed. 
The location counter and, in some cases, a 
label are also inserted. The location 
counter and POI are increased by 4. 


3. PS L 

The print line has the following format: 

C olumn 

LOCATION 2 

LABEL 31 

CODE DS 40 

OPERAND CL followed by the length 46 

LOC is increased by length L, which is 
found in the second half-word. POI is 
increased by 4. 


4. LABEL 

The label is moved into stack LAFI, and 
POI is increased by 4. When the label 
X'FFFF' (denoting the beginning of the 
static storage) is found, the line 

' L'FFFF' STATIC STORAGE 


END ke y 

When the end key is found, the word END is 
put into the print buffer. ZPRNT is 
called to print the line. It determines 
whether the DECK and LINK bits are off. 

If both are off, the compilation is termi¬ 
nated by calling phase G31, which prints 
the message 

5G02I SUCCESSFUL COMPILATION 

closes all files, and calls EOJ. Other¬ 
wise, the phase is terminated by calling 
phase G55. 

LOCAT -- GL 


The routine translates location counter 
LOC into EBCDIC and inserts it into the 
corresponding entries of the print buffer. 

LAB — GL 


is printed. 


5. PROCE 

Test whether statement number or not. If 
not, the message 'BEGIN OF BLOCK NN', the 
label, and the location counter are 
inserted into the print buffer. POI is 
increased by 6. 

If there is a statement number, it is 
checked if the number is zero. If it is 
not, it is listed in the form 

STATEMENT NUMBER NNNN 

starting at print position 90. NNNN is 
the statement number translated into a 
decimal value. Leading zeros are left 
out. If an immediately following sta 
tement number has a lower value, it is 
skipped. POI is increased by 4. 


This routine first translates the label 
found in the label field (LAFI) into 
EBCDIC. The label, preceded by L' and 
followed by a quote is moved into the 
print buffer. The label field is then set 
to zero. 

TRANS -- GM 


This routine translates hexadecimal values 
into EBCDIC. The bytes (the number of 
which is given in R2) at 0 (R1) are trans¬ 
lated and moved into the print buffer at 
the location given in R0. 

CHAMO — GM 


This routine complements the half-word at 
POI+<R1>. The half-word is moved into a 
work area to ensure boundary alignment. 
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then loaded into register R2 r and restored 
at P0I+<R1>. 

T RA — GN 

This routine translates a string from 
POI + 4 of length L (given in R3) into 
EBCDIC and inserts it into the print buf¬ 
fer at location R11+47. A quote is 
inserted at the end of the translated 
string, 

NAME — GN 

This routine inserts the name, in the form 
N^aaa', into the print buffer at the 
location given in RN. It determines 
whether or not the modifier is 0. If it 
is not 0, it inserts the modifier after 
the name. The modifier has no leading 
zeros and is preceded by a + or - sign. 

T RANSL — G O 

This routine translates the length for SS 
instructions with only one length. It 
takes the length from POI+3 and inserts it 


unpacked into the stack ARBS. Length - 1 
is inserted into the print buffer at 
R11+11. 


TRANLS — GO 

This routine translates the lengths for SS 
instructions with two lengths. The proce¬ 
dure is the same as described in TRANSL. 

TRANSR — GO 

This routine translates the register con¬ 
tents into EBCDIC and inserts them into 
the print buffer. 

CHAR — GP 

This routine lists the character string 
with the label L f 0003 f followed by 

DC C'aaa •••■. 

No more than 32 characters are put into 
one line. The location counter is updated 
and printed for each line. 
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PHASE.PL/IG55-(FINAL OUTPUT) — HA 


This phase provides the final output for 
the Linkage Editor, writes the object cards 
on IJSYSPH and/or writes the external sym¬ 
bol table on IJSYSLS if LINK,DECK, and/or 
SYM are flagged in the job control switches 
of the communication area within the Super¬ 
visor Nucleus* 

The address of the communication area is 
inserted into register 1 via the macro 
instruction COMRG. The job control switch¬ 
es are located in bytes 56-59 of the com¬ 
munication area* 


Jo b Control Bytes: 

Byte: 56 Job control byte 

Byte: 57 Linkage control byte 

Byte: 58 Language processor control byte 

Byte: 59 Job duration indicators 


NOTE i 

a) bit 0 of byte 57 denotes LINK if on, 

b) bit 0 of byte 58 denotes DECK if on, 

cj bit 3 of byte 58 denotes SYM if on. 

(If all these bits are off, the compilation 
is terminated previous to this phase.) 

The input of this phase is made up of 
the cards generated in previous phases and 
described there. The cards have been writ¬ 
ten onto SYS001 in physical records of 320 
bytes and logical records of 80 bytes. 

The first 16 bytes of each card (logical 
record) are fixed while the following 56 
bytes contain information corresponding to 
the type of card. The final 8 bytes (73 - 
80) are used for identification, containing 
the first 4 letters of the name of the 
external procedure and a current number. 

O utput for Linkage E ditor 

The output for the Linkage Editor is writ¬ 
ten onto IJSYSLN in physical records of 322 
bytes without overlap. The first two bytes 
of each physical record contain the follow¬ 
ing information: 

Byte 1: number of logical records in the 
physical one 

Byte 2: length of the logical records. 

Because four logical records of 80 bytes 
(in card-format) are inserted into one 
physical record, the bytes get the follow¬ 
ing values: 

Byte 1: 4 

Byte 2: 80 


The cards are taken from SYS001 in 
records of 320 bytes and inserted into a 
mask of 322 bytes. From there they are put 
onto IJSYSLIN by means of routine ZLEDI 
which uses one 322-byte output record in 
the I/O-buffer region. 

Card Output 

The cards are punched as they are written 
onto SYS001. This is done by the routine 
ZPCH. 

The cards are moved into one of the two 
output buffers (length 80 bytes) in the 
I/O-buffer area. The initial address of 
the output buffer is found in register 10. 
The use of two output buffers makes over¬ 
lapping possible. Then routine ZPCH is 
called to move the card onto IJSYSPH. 

Listing of the External Symbol Table 

The input is scanned for ESD cards. These 
are printed in the following format: 

r -T-T-T-T-T-1 

jSYMBOL| TYPE | ESID | ADbR |LENGTH| ESID | 

I--+-1-1-+-+-1 

I * | SD | * | * | * | | 

I * I ER | * | I I I 

I * I ld | 1*1 1*1 

(.-1-1-1-i--+-*1 

|Print |Print |Print |Print |Print |Print | 
j8 Pos.j 2 Pos•j 2 Pos.j 6 Pos.j4 Pos.|2 Pos.| 
L-J-X-X-X-X-J 

* means 'used in this case*. 

The printing is done by inserting the 
information in one of two 121 byte buffers 
at B5 which are used to process overlapped. 
Then routine ZPRINT is called to print the 
line. 

Listing of the Block Table 

At the end of the phase, the block table is 
listed. The format is of the block table 
is shown below: 


Block 

Length of DSA 

01 

01C7 

02 

0060 

03 

0070 

04 

0058 


It contains, besides the block number 
(printed in hexadecimal notation) , the 
length of the corresponding DSA (also in 
hexadecimal notation) • 

When all cards have been punched, print¬ 
ed, or written onto IJSYSLN, the compila¬ 
tion is terminated. 
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For this the comment 

5WO II SUCCESSFUL COMPILATION 

is put on IJSYSLS: all files are closed and 
the LINKEDIT bits (bits 0 and 1 of byte 57) 
are set. 

If the compilation is in error, byte 
IJKMWC+1 is set to X'FF* and the message 

5W02I COMPILATION IN ERROR 

is listed. 

Then the macro END OF JOB (EOJ) is used 
to terminate the compilation. 

Detaile d De scription 

In this phase the following three options 
are tested: 

a. Output on IJSYSLN (LINK-bit is on) 

b. Output on IJSYSPH (DECK-bit is on) 

c. Output on IJSYSLS' (SYM-bit is on) 

The resulting 7 cases 

1. a, b, and c 

2. a and b 

3. a and c 

4. b and c 

5. a 

6. b 

7. c 

are processed in four special routines: 

PLI for cases 1 and 2 
LINK for cases 3 and 5 
PCH for cases 4 and 6 
PRT for case 7 

Input a nd Outp ut 

The input consists of the cards written 
onto SYS001 in records of 320 bytes (one 
record containing 4 cards) . 

These records are read into the second 
input buffer EBU, moved into the first 
input buffer ABU, and processed there while 
another record is read into EBU. 

Register CPO is used as an input poin¬ 
ter. 

The output is written onto IJSYSLN, 
IJSYSPH and/or IJSYSLS depending on the 
options specified. While for IJSYSPH and 
IJSYSLS two output buffers are reserved 
(addressed via register 10 or 11, 
respectively) , the output on IJSYSLN uses 
only one buffer of 322 bytes. 

The buffers for IJSYSLS are located in 
the last I/O buffer B4 and have a length of 


121 bytes. The buffers for IJSYSPH are 
located in the external I/O buffers B5 and 
B6 and have a length of 80 bytes each. 

The listing of the block table uses the 
table at IJKMBS, which contains the lengths 
of the DSAs. 

In order to test the option bits, the 
address of the corresponding communication 
area is put into register 1 by means of the 
macro COMRG. The first bit of byte 57 is 
the LINK bit, the first bit of byte 58 is 
the DECK bit, and the fourth bit of byte 58 
is the SYM bit. 

When all input has been processed, the 
block table is listed and this phase termi¬ 
nates the compilation by printing a final 
comment, inserting bits into the communi¬ 
cation area, and closing all files. The 
final instruction is the macro EOJ. 


GET — HC 

This routine processes overlapped by moving 
the contents of the second input buffer EBU 
into the first input buffer ABU. It tests 
to determine whether there are any more 
records on SYS001. If there are no more 
records, switch NCI is set to 1. Other¬ 
wise, the next record is read into EBU, and 
the number of records NC is updated. 


PLI — HC 

This routine puts all input records from 
ABU onto IJSYSLN, punches all cards, and 
prints the ESD table if the SYM switch is 
on. 

The output on IJSYSLN is processed by 
routine LINKS, the punching by PUNCH, and 
the listing by PRINT. 

LNK - - HD 

LNK writes all input records from ABU onto 
IJSYSLN and prints the ESD table if the SYM 
switch is on. It uses routines LINKS, 
PRINT, and GET. 

PCH — HE 

This routine punches all cards by calling 
routine PUNCH and prints the ESD cards by 
means of routine PRINT. It uses routine 
GET for input. 

PRT — HF 

This routine prints the external symbol 
table by means of routine ZPRNT, which uses 
two print buffers of length 121, the cur¬ 
rent address of which is to be found in 
register 11. 
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The information is taken from the cards 
found in the buffer ABU and inserted into 
the corresponding slots of the print buf¬ 
fer. 

P RINT — HG 

This routine prints an ESD card in the way 
described in PRT. It scans the card and 
prints one line for each ESD entry in the 
card. 

PU NCH - - HH 

This routine is used to punch a card locat¬ 
ed at CPO. This is done by moving the card 
into one of the punch buffers (the address 
of which is found in register 10) and call¬ 
ing routine ZPCH. 

LIN KS — HH 

This routine moves one record of 322 bytes 
from ABO into the link buffer and writes it 
onto IJSYSLN by calling routine ZLEDI. 


TRA — HH 

This routine translates hexadecimal values 
(length given in R2) into EBCDIC code and 
inserts the translated string into the 
print buffer at the location given in R0. 
The location of the hexadecimal value is 
given in Rl. 


PRIBLO — HI 

This routine prints the rightmost byte in 
register RY (block number) and the halfword 
at CPO (length of the current block DSA) . 


BLOCK! — HI 

This routine prints the block table by 
means of routine PRIBLO. It inserts the 
subheader and uses CPO as a pointer in the 
block table and RY as a counter for the 
block numbers. The greatest block number 
is found in IJKMBC. 
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APPENDIX A. SYNTAX NOTATION OF PL/I INPUT STREAM 
< - 


< 


The metalanguage used in this section must 
not be considered to be of universal signi¬ 
ficance. It is a combination of the IBM 
syntax notation, the Backus/Naur form and a 
few extensions. The following rules apply: 

• <a series of lower case letters> is the 
common form of metalinguistic variables. 


• ::= means "is defined as". Each metal¬ 
inguistic definition contains one such 
symbol. 

• { } denotes grouping. 

• | indicates that a choice is to be made. 

• [ ) denotes options. Anything enclosed 
in square brackets may appear once or 
not at all. 

• 8 3 "Combinatorial" brackets indicate 
that the options enclosed by them may 
appear in any order, however not more 
than once. 

• min 1 

If used in connection with { }, the 
enclosed syntactical unit must appear at 
least once. 

If used in connection with combinatorial 
brackets, at least one of the enclosed 
options must appear. 

• max m 

If used in connection with { }, the 
enclosed syntactical unit must not 
appear more than m times. 

If used in connection with combinatorial 
brackets, a maximum of m of the enclosed 
options may appear. 

• min 1 max m 

Both limitations apply (see preceding 
text) . 


• <A SERIES OF CAPITAL LETTERS> indicates 
the internal 3-byte representation of 
the corresponding keyword. 


• he x , where and are hexadecimal 
digits, indicates the literal occurence 
of the hexadecimal digits. 

• All other symbols maintain their origi¬ 
nal meaning. 

Examples: 

(Note that most of these examples are no 
valid definitions of PL/I statements.) 

<digit> ::= 0|1|2|3|4|5|6|7|8|9 

Meaning: a digit is defined as the literal 
occurence of a 0,1,2 ... etc. 

<function reference> ::= <ident> [( expres¬ 
sion list>) ] 

Meaning: a function reference is defined as 
an identifier optionally followed by an 
expression list enclosed in parentheses. 

Replication factor> ::= ( min 1 max 3 
{<digit>} ) 

Meaning: a replication factor is defined as 
a series of 1 to 3 digits enclosed in 
parentheses. 

<open item> ::= 

<FILE> (<ident>) £ [<INPUT>] [<BACKWARDS>] 
[<page>] 3 

Meaning: an open item is defined as the 
internal representation of the keyword 
FILE, followed by a left parenthesis, fol¬ 
lowed by an identifier, followed by a right 
parenthesis, followed by a list of three 
options which may appear in any order (each 
option not more than once). 



Appendix A. Syntax Notation of PL/I Input Stream 


357 



PL/I PLM 8 


IBM Confidential 

<A> ::= <links> he x 0003 

<arithmetic constant> <decimal fixed constant> | <binary fixed constant> | <decimal 

float constant> | <binary float constant> 

<assign> ::= <left> hex 0E <right> 

<assignment statement> ::= <assign> <name> = <expr> 

<B> ::= <links> hex 0001 
<BACKWARDS> ::= <links> hex 0164 
<BEGIN> <left> hex 06 <right> 

<begin statement> ::= <BEGIN> 

<binary constant> ::= Cbinary integer> [. [<binary integer>] ] |. <binary integer> 

<binary digit> ::= 0|1 

<binary fixed constant> ::= <binary integer> <B> 

<binary float constant> <binary constant> <exponent> <B> 

<binary integer> ::= min 1 {<binary digit>} 

<bit string constant> ::= [<replic>] '<binary integer>'<B> 

<blend> ::= <left> hex 07 <right> 

<block> ::= <data character> 

<BY> ::= <links> hex 0010 

<CALL> ::= <left> hex 09 <right> 

Ccall statement> ::= <CALL> <ident> [ (<expression list>) ] 

<character string constant> ::= <character string constant key> <data character> 
<character string constant key> <data character> <data character> 

Ccharacter string constant key> hex E3 

<CL0SE> ::= <left> hex 30 <right> 

<close list> ::= <file option> | <close list>, <file option> 

<close statement> ::= <CL0SE> <close list> 

<C0LUMN> ::= <links> hex 012F 

<condition> ::= <FIXED0VERFL0W> | <UNDERFLOW> | <SIZE> | <ERR0R> | <ZERODIVIDE> | 

<ENDFILE> <enclosed ident> | <TRANSMIT> <enclosed ident> | <KEY> <enclosed 
ident> | <REC0RD> <enclosed ident> | <ENDPAGE> <enclosed ident> | <0VERFL0W> | 
<CONVERSION> 

<constant> ::= <sterling constant> | <bit string constant> | Ccharacter string bonstant> 

| <binary fixed constant> j <decimal fixed constants | <binary float constant> | 
<decimal float constant> 

<CONVERSION> ::= <links> hex 016A 
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<decimal fixed constant> ::= <integer> [. [<integer>J ] | • <integer> 

<decimal float constant> ::= <decimal fixed constant> <exponent> 

<DECLARE> <left> hex 4 0 <right> 

<declare statement> ::= <DECLARE> mi n 0 [<data character>} 

<digit> ::= 0 | 1|2|3|4|5|6|7|8|9 

<DISPLAY> ::= <left> hex 32 <right> 

<display statement> ::= <DISPLAY> <single> [<REPLY> <enclosed name>] 

<DO> ::= <left> hex 12 <right> 

<do statement> ::= <D0> [<while clause> | <q-name> = <specification list>] 


( 



<E> ::= <links> he x 0002 
<EDIT> <links> hex 0055 

<ELSE> <left> hex 11 <right> 

<else statement> <ELSE> 

<enclosed ident> ::= (<ident>) 

<enclosed name> ::= (<name>) 

<end of block statement> ::= <blend> 

<end of group statement> ::= <grend> 

<end of statement> ::= <eos> <no error> <level> <block> <statement number> | <eos> 
<error> <level> <block> <statement number> <error tail> 

<ENDFILE> ::= <links> hex 0147 

<ENDPAGE> ::= <links> hex 014B 

<ENTRY> ::= <left> hex 0B <right> 

<entry statement> ::= <ENTRY> [(identifier list>) ] 

<eos> ::= hex EA 

<error> ::= he x 80 j hex 40 

<fixedoverflow> ::= <links> hex 0177 hex 40 

<ERROR> ::= links hex 0107 

<error key> ::= he x EB 

<error number> ::= <data character> 

<error tail> ::= <error key> <error number> | <error tail> <error key> <error number> 
<exponent> ::= <E> [ + | -| <integer> 

<expr> ::= <constant> | <name> | <function reference> | <single> | <prefix operator> 
<expr> | <expr> <infix operator> <expr> 

<expression list> ::= <expr> | <expression list>,<expr> 
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<F> ::= <links> hex 0004 

<FILE> ::= <links> hex 0047 

<file option> ::= <FILE> <enclosed ident> 

<fixedoverflow> ::= <links> hex 0177 
<FORMAT> <left> hex 35 <right> 

<format element> [<integer>] <format item> | <integer> <format list> 

<format element list> ::= <format element> | <format element list>, <format element> 

<format item> : := <F> (<integer> [,<integer> [, [+ | -] <integer>] ] ) | <E> (<integer>, 
<integer> [, <integer>] ) | <B> [ (<integer>) | | <A> [ (<integer>) ] | <X> 

(<integer>) | <SKIP> [ (<integer>) ] | <LINE> (<integer>) | <COLUMN> (<integer>) | 

<PAGE> | <R> (<q-name>) 

<format list> ::= (<format element list>) 

<format statement <F0RMAT> <format list> 

<FROM> ::= <links> hex 005A 

<function reference> ::= <ident> [ (<expression list>)] 

<GET> ::= <left> hex 33 <right> 

<get statement> ::= <GET> [<file option> | <STRING> <enclosed name>] <input data 
specification> 

<GO> ::= <links> hex 000E 

<goto> ::= <left> hex 0A <right> 

<GOTO> ::= <links> hex 004D 

<goto statement> ::= <goto> <name> 

<grend> ::= <left> hex 13 <right> 

<heading> ::= min 0 {<ident>:} 

<ident> ::= <ident key> <data character> <data character> 

<ident key> ::= hex El 

Cidentifier list> ::= <ident> | identifier list>, <ident> 

<IF> ::= <left> hex 10 <right> 

<if statement> <IF> <expr> 

<inf ix operator> ::=+|-|*|/|**|=|<|>| 1 =|<=|<=| || | | li>|-|< 

<INPUT> ss= <links> hex 0183 

Cinput data element> ::= <name> | input repetitive specification> 

<input data element list> ::= input data element> | input data element list>, <input 
data element> 
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Cinput data list> ::= (<input data element list>) 

<input data specification> ::= Cinput list specification> [ Cinput edit specification> 

Cinput edit list> ::= Cinput data list> Cformat list> | Cinput edit list> Cinput data 
list> Cformat list> 

Cinput edit specification> ::= CEDIT> Cinput edit list> 

Cinput list specification> ::= CLIST> Cinput data list> 

Cinput repetitive specification> :(Cinput data element list> Cdo> Cq-name> = 
Cspecification list>) 

Cinteger> ::= min 1 [Cdigit>] 

CINTO> ::= Clinks> hex 00D9 

Citeration> ::= Cexpr> [d0> Cexpr> [CBY> Cexpr>] | CBY> Cexpr> [CTO Cexpr>] ] [Cwhile 
clause>] 

CKEY> ::= Clinks> hex 0097 
CKEYFROM> Clinks> hex 01C9 

CKEYT0> ::= Clinks> hex 00FD 

CL> ::= Clinks> he x 0088 
Cleft> ::=* hex E000 
Clevel> Cdata character> 

CLINE> t:= Clinks> hex 00D8 
Clinks> ::= hex El 
CLIST> Clinks> hex 00D6 

CL0CATE> Cleft> hex 38 Cright> 

Clocate statement> ::= CL0CATE> Cident> cfile option> {CSEI> Cenclosed name> [CKEYFROM> 
Csingle>] | [CKEZFROM> Csingle>] CSET> Cenclosed name>} 

Cname> ::= Cq-name> [ (Csubscript list>) ] 

CN£WPAGE> Clinks> hex 01C8 

Cno error> ::= hex 00 

Cnop> ::= Cleft> hex 0D Cright> 

Cnull statement> Cnop> 

CON> ::= Cleft> hex 22 Cright> 

Con statement> ::= CON> Ccondition> [CSYSTEM> | CGO> CTO> Cident> | CGOTO> Cident> 

C0PEN> Cleft> hex 31 Cright> 

Copen item> Cfile option> [CPAGESIZE> Csingle> | COUTPUT> | CINPUT>] 
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Copen list> 22 = <open itenti> | <open list>, <open item> 

Copen statement> 22 = <OPEiSf> Copen list> 

COUTPUT> ::= Clinks> hex 011C 

Coutput data element> ::= Cexpr> | Coatput repetitive specification> 

Coutput data element list> 22 = Coutput data element> | Coutput data element list>, 

Coutput data element> 

Coutput data list> ::= (Coutput data element list>) 

Coutput data specification> 22 = Coutput list specification> | Coutput edit specification> 

Coutput edit list> jcoutput data list> cformat list> | Coutput edit list> Coutput data 
list> Cformat list> 

Coutput edit specification> 22 = CEDIT> Coutput edit list> 

Coutput list specification> 2 := CLIST> Coutput data list> 

Coutput repetitive specification> 2 := (Coutput data element list> Cdo> Cq-name> = 

Cspecification list> 

COVERFLOW> 22 = Clinks> hex 0152 




CPAGE> 22 = Clinks> hex 0057 

CPAGESIZE> 22 = Clinks> hex 0159 

Cpence integer> 22 = 10 | 11 | [0] Cdigit> 

Cpencfe part> 22 = Cpence integer> [• [cinteger>] ] 

Cprefix operator> 2 2 = + ( | 

CPROCEDURE> 22 = Cleft> hex 05 Cright> 

Cprocedure statement> 22 = CPROCEDURE> [ (Cidentifier list>) ] 

CPDT> 22 = Cleft> hex 34 Cright> 

Cput statement> 22 = CPUT> (Cfile option >J {{{f[<page>] [Cline> CSINGLE>]31 Cskip> 

[CSINGLE>| } COUTPUT DATA SPECIFICATION^ | {{MIN 1 £ [Cpage> [Cline> CSINGLE>]3| 
Cskip> [CSINGLE>] } [COUTPUT- DATA SPECIFICATION^ }} | Cput> Cstring> CENCLOSED 
NAME> COUTPUT DATA SPECIFICATION> 


Cq-*name> 22 = Cident> | Cq-name> • Cident> 

CR> 22 = Clinks> hex 000A 
CREAD> 22 = Cleft> hex 36 Cright> 

Cread statement> 22 = CREAD> Cfile option> {{CSET> Cenclosed name> | CINTO> Cenclosed 
ident>} [CKEYTO> Cenclosed name> | CKEY> Csingle>] | [CKEYTO> Cenclosed name> | 
CKEY> Csingle>] {CSET> Cenclosed name> | CINTO> Cenclosed ident>}} 

CRECORD> 22 = Clinks> hex 0114 

CrepliO 22 = (min 1 max 3 {Cdigit>}) 
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<REPLY> ::= <links> hex 0105 
<RETURN> <left> hex 0C <right> 

<return statement> : : = <RETURN> [<single>] 

<REVERT> <left> hex 21 <right> 

<revert statement> = <REVERT> <condition> 

<REWRITE> <left> hex 39 <right> 

Crewrite statement> :j~ <REWRITE> <file option>£ [<KEY> <single>] [<FROM> <enclosed 
ident>]3 

<right> ::= <data character> <data characters <data character 

<SET> ::= <links> hex 0018 
<shilling part> [0 | 1) <digit> 

<SIGNAL> :: = <left> he x 20 <right> 

<signal statement> ::- <SIGNAL> <condition> 

<single> = (<expr>) 

<SIZE> s: = <links> hex 0052 
<SKIP> <links> hex 005D 

<specification list> ::= <iteration> | <specification list>, <iteration> 

<statement> <heading> <statement body> <end of statement> 

<statement body> ::= <null statement> | <assignment statement> | Ccall statement> | 

<display statement> | <goto statement> | <return statement> | <signal statement> 
| Crevert Statement> | <stop statement> | <do statement> | <if statement> | 

<open statement> | Cclose statement> | <read statement> | <write statement> | 
<format statement> | <else statement> | Cbegin statement> | <end of block 
statement> | <end of group statement> j <procedure statement> | <entry 
statement> | <on statement> | <declare statement> | <get statement> | <put 
statement> | <locate statement> | <rewrite statement> 

<statement number > <data character> <data character> 

<sterling constant> <integer> . <shilling part> . <pence part> 

<STOP> ::= <left> hex 23 <right> 

<stop statement> <ST0P> 

<STRING> <links> hex 0113 

<subscript> <q-name> | <arithmetic constant> | {+ | <subscript> | <subscript> 
{*l + l“} <subscript> 

<subscript list> <subscript> | <subscript list>, <subscript> 

<SYSTEM> <links> hex 01 IF 

<rO> <links> hex 000F 
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<TRANSMIT> ::= <links> hex 0158 

<UNDERFLOW> ::= <links> hex 0162 

<WHILE> ::= <links> hex 007F 
Cwhile clause> ::= <WHILE> <single> 

<//RITE> ::= <left> hex 37 <right> 

Cwrite statetnent> ::= <WRITE> <file option> {<FROM> <enclosed ident> [<KEYFROM> <single>] 
| [<KEYFROM> <single>| <FROM> <enclosed ident>} 

<X> ::= <links> hex0006 

<ZERODIVIDE> <links> hex 0169 
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<a> ::= <links> hex 0003 
<and> ::= hex E205EC 

<arithmetic constant> ::= <decimal fixed constant> | <binary fixed constant> | <decimal 
float constant> | <binary float constant> 

<assign> ::= <left> hex 0E <right> 

<assignment statement> ::= <assign> <name> <ist> <expr> 

<b> ::= <links> hex 0001 
<backwards> ::= <links> hex 0164 
<BEGIN> <left> hex 06 <right> 

<begin statement> = <BE3IN> 

<binary fixed constant> ::= <binary fixed constant key> <length> min 2 {<data character>} 
<binary fixed constant key> ::= hex F9 

<binary float constant> = <binary float constant key> <length> min 4 {<data character>} 
<binary float constant key> ::= hex FA 

<bit string constant> = <bit string constant key> <length> min 4 {<data character>] 

<bit string constant key> ::= hex FB 
<blend> ::= <left> hex 08 <right> 

<branch> <links> hex 0355 

<by> ::= <links> hex 0010 



<CALL> <left> hex 09 <right> 

<call statement> <CALL> <ident> [<lnb> <expression list> <rnb>] 

<cat> ::= h ex E203EA 

<character string constant> Ccharacter string constant key> <data character> <data 

character> <character string constant key> <data character> <data character> 

<character string constant key> hex E3 

<CLOSE> ::= <left> hex 30 <right> 

<close list> ::= <file option> | Cclose list> <comma> <file option> 

<close statement> ::= <CL0SE> <close list> 

<col> ::= <links> hex 012F 
<comma> ::= hex E200E8 
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<condition> ::= <fixedoverflow> | Cunderflow> | <size> | <fieldoverflow> | <endfile> 
<enclosed ident> | <transmit> ^enclosed ident> | <key> Enclosed ident> | 
<record> <enclosed ident> | <endpage> <enclosed ident> | <overflow> | <error> | 
<zerodivide> | <conversion> 

<constant> 22 = <sterling constant> | <bit string constant> | < character string constant> 
| cbinary fixed constant> | <decimal fixed constant> | <binary float constant> | 
<decimal float constant> 

<conversion> ::= <links> h ex 016A 

<DECLARE> ::= <left> hex 40 <right> 

<declare statement> 22 = <DECLARE> min 0 {<data character>} 

<decimal fixed constant> <decimal fixed constant key> <length> min 1 {<data 
character>} 

<decimal fixed constant key> 22 = h ex F7 

<decimal float constant> <decimal float constant key> <length> min 3 {<data 
character>} 

<decimal float constant key> hex F8 
<DISPLAY> :;= <left> hex 3% <right> 

<display statement> 22 = <DISPLAY> <single> [<reply> <enclosed name>] 

<DO> ;:= <left> hex 12 <right> 

<do> :: = <links> hex 0Q54 

<do statement> ::= <DO> [<while clause> | <q-name> <ist> <specification list>] 

<e> <links> hex 0002 
<edit> 22 =t <links> hex 0055 
<ELSE> 22 = <left> hex 11 <right> 

<else statement> 22 = <ELSE> 

<enclpsed ident> 22 = <llb> <ident> <rlb> 

<enclosed name> 22 = <llb> <name> <rlb> 

<endfile> 22 = <links> h ex 0147 
<end of block statement> : 2 = <blend> 

<end of group statement> 22 = <grend> 

<end of procedure statement> 22 = <prend> 

<end of staternent> 22 = <eos> <no error> <level> <block> <statement number> | <eos> 

<error> <level> <block> <statement number> <error tail> 

<endpage> 22 = <links> hex 014B 

<ENTRY> 22 = <left> hex OB <right> 

<entry statement> 22 = <ENTRY> [<lnb> identifier list> <rnb>J 
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<eos> ::= hex EA 

<eq> ::= hex E207ED 

<ERROR> ::= <links> he x 0107 

<error> ::= hex 80 | hex 40 

<error key> :: = hex EB 

<error number> ::= <data character> 

<error tail> <error key> <error number> | <error tail> <error key> <error number> 

<expr> ::= <constant> | <name> | <function reference> ] <single> <prefix operator> <expr> 
| <expr> <infix operator> <expr> 

<expression list> ::= <expr> | <expression list> <comma> <expr> 

<f> ::= <links> hex 0004 

<file> <links> hex 0047 

<file option> ::= <file> <enclosed ident> 

<fixedoverflow> <links> he x 0177 

<FORMAT> <left> hex 35 <right> 

<format element> ::= [<format integer>] <format item> | <format integer> <format list> 

<format element list> ::= <format element> | <format element list> <comma> <format 
element> 

<format integer> ::= <format integer key> <length> m in 1 {<data character>] 

<format integer key> h ex FE 

<format item> ::= <f> <llb> <format integer> [<comma> <format integer> [<comma> [<uplus> 

| <umin>] <format integer>] ] <rlb> | <e> <llb> <format integer> <comma> <format 
integer> [<comma> <format integer>] <rlb> | <b> [<llb> <format integer> <rlb>] | 
<a> [<llb> <format integer> <rlb>] | <x> <llb> <format integer> <rlb> | <skip> 
[<llb> <format integer> <rlb>] | <line> <llb> <format integer> <rlb> | <col> 
llb> <integer> <rlb> | <page> | <r> <llb> <q~name> <rlb> 

<format list> ::= <llb> <format element list> <rlb> 

<format statement> <F0RMAT> <format list> 

<from> ::= <links> hex 005A 

<function reference> ::= <ident> [<lnb> <expression list> <rnb>] 

<gauche> ::= he x E2 <data character> 

<ge> ::= hex E207F2 

<GET> ::= <left> h ex 33 <right> 

<get statement> <GET> [<file option> | <string> <enclosed name>] Cinput data 

^ specification> 

<goto> ::= <left> hex 0A <right> 
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<goto statement> ::= <goto> <name> 

<grent> ::= <left> h ex 13 <right> 

<gt> ::= hex E207F0 

<heading> ::= min 0 {<ident>:} 

<ident> ::= Cident key> <data character> <data character> 

<identifier list> ::= <ident> | identifier list> <comma> <ident> 

<ident key> ::= hex El 

<IF> ::= <left> he x 10 <right> 

<if statement> ::= <IF> <expr> 

<infix operator> ::= <plus> | <minus> | <slash> | <pot> | <star> | <eg> | <lt> | <gt> | 
<ne> | <le> | <ge> j <and> | <or> | <cat> 

<input> ::= <links> he x 0183 

Cinput data element> ::= <name> | <input repetitive specification> 

Cinput data element list> ::= Cinput data element> | Cinput data element list> Ccomma> 
Cinput data element> 

Cinput data list> = Cllb> Cinput data element list> Crlb> 

Cinput data specification> ::= Cinput list specification> | Cinput edit specification> 

Cinput edit list> ::= Cinput data list> Cformat list> | Cinput edit list> Cinput data 
list> Cformat list> 

Cinput edit specification> ::= Cedit> Cinput edit list> 

Cinput list specification> ::= Clist> Cinput data list> 

Cinput repetitive specification> ::= Cllb> Cinput data element list> Cdo> Cq-name> Cist> 
Cspecification list> Crlb> 

Cinto> ::= Clinks> hex 00D9 

Cist> ::= Cgauche> hex FB 

Citeration> ::= Cexpr> [Cto> Cexpr> [Cby> Cexpr>] | Cby> Cexpr> [Cto> Cexpr>] ] [Cwhile 
clause>] 

Ckey> ::= Clinks> hex 0097 
Ckeyfrom> ::= Clinks> h ex 01C9 
Ckeyto> ::= Clinks> he x 00FD 

Cle> ::= hex E207F1 

Cleft> hex E0 Cdata character> 

Clength> ::= Cdata character> Cdata character> 


368 



PL/I PLM 8 


IBM Confidential 

<line> ::= <links> hex 00D8 

<links> ::= hex EF 

<list> ::= <links> h ex 00D6 

<llb> ::= <gauche> hex FD 

<lnb> ::= h ex E200E6 

CLOCATE> <left> hex 38 <right> 

<locate statement> ::= CLOCATE> <ident> <file option> {<set> <enclosed name> [<keyfrom> 
<single>J | [Ckeyfrom> <single>] <set> <enclosed name>} 

<lt> ::= hex E207EF 

<minus> ::= hex E208F4 


<name> ::= <g~name> [<lnb> <subscript list> <rnb>] 

<ne> ::= hex E207EE 

Cnewpage> ::= <links> h ex 01C8 

<no error> ::= hex 00 

<nop> ::= <left> hex 0D <right> 

<not> hex E20AF9 

<null> ::= <links> hex 0356 
<null statement> <nop> 



<ON> ::= <left> hex 22 <right> 

<on statement> ::= <ON> <condition> {<system> | <branch> <ident> | <null>} 

<OPEN> ::= <left> hex 31 <right> 

<open item> ::= <file option> [<pagesize> <single> | <output> | <input>] 

<open list> <open item> | Copen list> <comma> Copen item> 

Copen statement> ::= C0PEN> Copen list> 

Cor> ::= he x E204EB 
Coutput> ::= Clinks> hex 01 1C 

Coutput data element> Cexpr> | Coutput repetitive specification> 

Coutput data element list> ::= Coutput data element> | Coutput data element list> Ccomma> 
Coutput data element> 

Coutput data list> ::= Cllb> Coutput data element list> Crlb> 

Coutput data specification> ::= Coutput list specification> | Coutput edit specification> 

Coutput edit list> ::= Coutput data list> Cformat list> | Coutput edit list> Coutput data 
list> Cformat list> 
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Coutput edit specification> <edit> Coutput edit list> 

<output list specification> ::= <list> Coutput data list> 

<output repetitive specification> ::= <llb> <output data element list> <do> Cq-name> 
<ist> <specification list> <rlb> 

<overflow> ::= <links> hex 0152 

<page> ::= <links> hex 0057 
<pagesize> ::= <links> hex 0159 
<period> ::= <links> hex 0360 
<plus> hex E208F3 

<pot> ::= hex E2OAFA 

<prefix operator> ::= <uplus> | <umin> | <not> 

<prend> ::= <left> hex 07 <right> 

<PROCEDURE> ::= <left> hex 05 <right> 

<procedure statement> ::= <PROCEDURE> [<lnb> <identifier list> <rnb>] 

<PUT> ::= <left> hex 34 <right> 

<put statement> <PUT> [<file option>] {{{f[<page>] [<line> <single>]3| <skip> 

[<single>] } Coutput data specif ication>] | {{min 1£[<page>] [<line> <single>]3 I 
<skip> [<single>] } [Coutput data specification>] }} | CPUT> Cstring> Cenclosed 
name> Coutput data specification> 

Cq-name> ::= Cident> | Cq-name> hex 2B Cident> 

Cr> ::= Clinks> he x 000A 
CREAD> ::= Cleft> hex 36 Cright> 

Cread statement> CREAD> Cfile option> {{Cset> Cenclosed name> | Cinto> Cenclosed 

ident>} [Ckeyto> Cenclosed name> | Ckey> Csingle>J | [Ckey> Csingle> | Ckeyto> 
Cenclosed name>] {Cset> Cenclosed name> | Cinto> Cenclosed ident>}} 

Crecord> ::= Clinks> hex 0114 

Crlb> ::= Cgauche> hex FE 

Crnb> ::= hex E200E7 

Creply> ::= Clinks> he x 0105 

CRETURN> ::= Cleft> hex 0C Cright> 

Creturn statement> ::= CRETURN> [Csingle>] 

CREVERT> ::= Cleft> hex 21 Cright> 

Crevert statement> ::= CREVERT> Ccondition> 

CREWRITE> ::= Cleft> hex 39 Cright> 
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Crewrite statement> ::= <REWRITE> <file option> £[<key> <single>] [<from> <enclosed 
ident>] 3 

<right> ::= <data character> <data character> <data character> 

<rnb> ::= hex E200E7 

<set> ::= <links> hex 0018 
<SIGNAL> ::= <left> he x 20 <right> 

<signal statement> ::= <SIGNAL> <condition> 

<single> ::= <lnb> <expr> <rnb> 

<size> <links> hex 0052 

<skip> ::= <links> hex 005D 
<slash> ::= hex E209F6 

<specification list> ::= <iteration> | <specification list> <specom> <iteration> 

<specom> <gauche> h ex FC 

<star> ::= hex E209F5 

<statement> <heading> <statement body> <end of statement> 

<statement body> <null statement> | <assignment statement> | <call statement> | 

<display statement> | <goto statement> | <return statement> | <signal statement> 
| <revert statement> | <stop statement> | <do statement> | <if statement> | 

<open statement> | <close statement> | <read statement> | <write statement> | 
<get statement> | <put statement> | <locate statement> | <rewrite statement> | 
<format statement> | <else statement> | <begin statement> | <end of block 
statement> | <end of procedure statement> | <end of group statement> | 

<procedure statement> | <entry statement> | <on statement> | <declare statement> 

<statement number> ::= <data character> <data character> 

<sterling constant> ::= <sterling constant key> <length> mi n 6 {<data character>} 
<sterling constant key> ::= hex FC 
<STOP> ::= <left> hex 23 <right> 

<stop statement> <STOP> 

<string > ::= <links> hex 0113 

<subscript> = <q-name> | <arithmetic constant> | {<uplus> | <umin>] <subscript> | 
<subscript> {<plus> | <minus> | <star>} <subscript> 

<subscript list> ::= <subscript> | <subscript list> <comma> <subscript> 

<system> <links> hex 01 IF 

<to> = <links> hex 00OF 
<transmit> ::= <links> hex 0158 

<umin> hex E20AF8 
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<underflow> ::= <links> hex 0162 
<uplus> he x E20AF7 

<while> ::= <links> hex 007F 
Cwhile clause> ::= [<while> <single>J 
<iVRITE> ::= <left> hex 37 <right> 

Cwrite statement> :: = :WRITE> <file option> {<from> <enclosed ident> [<keyfrom> <single>] 
| [<keyfrom> <single>] <from> <enclosed ident>} 

<x> ::= <links> he x 0006 


<zerodivide> ::= <links> hex 0169 
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APPENDIX C._LIBRARY ROUTINES 


1 


. 

T- 

T “ 

1 

r 



T-T 


“1 

j INT. 


NAME 

j MOD. 


1 

| INT. 


NAME 

j MOD. | 



|-- 

T 

— 

NAME 


1 

F- 

T 

— 

NAME j 



j HEX. 

1 

DEC. 

| Pos. 

[DESCRIPTION 

1 

j HEX. 

1 

DEC. 

j Pos. j 

DESCRIPTION 



1 


| 4-7 


1 

i 

1 


| 4-7 I 




l 


.j. 

| ... _ 

J 

L 

X 


1 X 


j 

|_ 

T 




1 

1 

t 


T T 


1 

| 10 

1 

16 

| SZCA 

j MAIN 

1 

| 4 3 

1 

67 

|VRPM| 

STERLING TO DECIMAL FIXED 


1 1 1 

1 

17 

| SZCM 

j MAIN 

1 

| 44 

1 

68 

j VNPM| 

FIXED NUM. FIELD TO DEC. 


1 12 

1 

18 

j SZCN 

| PROLOGUE 

1 

i 

1 



FIXED 


1 13 

1 

19 

| SZCP 

j GO TO 

1 

1 

1 

69 

| FPNM| 

DEC. FIXED TO FIXED NUM. 


| 14 

1 

20 

j SZCS 

| SIGNAL 

1 

i 

1 



FIELD 


1 15 

1 

21 

| SZCT 

j STOP 

1 

| 46 

1 

70 

|VPRM| 

DEC. FIXED TO STERLING 


1 16 

1 

22 

(SZLM 

| ENTRY MOVE ROUTINE 

1 

i 

i 



NUM. FIELD 


1 17 

1 

23 

j ZWSA 

| LIBRARY WORK SPACE 

1 

| 47 

1 

71 




| 18 

1 

24 

| TOPM 

1 OPEN 

1 

(48 

1 

72 




| 19 

1 

25 

| TCLM 

| CLOSE 

1 

| 49 

1 

73 




1 1 A 

1 

26 

j TPSM 

j PAGESIZE 

1 

j 4A 

1 

74 




j IB 

1 

27 



1 

j 4B 

1 

75 




1 ic 

1 

28 


STREAM-DIRECTED LIST INPUTj 

j 4C 

1 

76 




1 ID 

1 

29 


[INITIAL STRING LIST INPUT 

1 

j 4D 

1 

77 




| IE 

1 

30 


jSTRING TRANSMITTED 

1 

j 4E 

1 

78 





1 



| LIST INPUT 

1 

j 4F 

1 

79 




| IF 

1 

31 



1 

1 50 

1 

80 

|STMM[ 

TIME 


| 20 

1 

32 

| TFDM 

| STREAM DIRECTOR 

1 

1 51 

1 

81 

j SDTM| 

DATE 


| 21 

1 

33 

j TFMM 

[FORMAT DECODER 

1 

1 52 

1 

82 




| 22 

1 

34 

j TGDS 

jSTRING DIRECTOR 

1 

| 53 

1 

83 




| 23 

1 

35 

1 TSTM 

j GET/PUT FILE INITIAL 

1 

1 54 

1 

84 

IQQSMI 

SQUARE ROOT (SHORT) 


| 24 

1 

36 

| TGDI 

jGET STRING INITIAL 

1 

1 55 

1 

85 

IQQLMI 

SOUARE ROOT (LONG) 


| 25 

1 

37 

j TGDO 

j PUT STRING INITIAL 

1 

1 56 

1 

86 

j QASM| 

EXPONENTIATION (SHORT) 


1 26 

1 

38 



1 

1 57 

1 

87 

|QALM| 

EXPONENTIATION (LONG) 


| 27 

1 

39 

| TXRM 

| EXTENT, FB TO PDI 

1 

1 58 

1 

88 

|QLSA| 

LOG (SHORT) 


| 28 

1 

40 

j VBCM 


1 

1 59 

1 

89 

|QLLAJ 

LOG (LONG) 


| 29 

1 

41 

| VTCM 

| FLOAT TO PDI 

1 

| 5A 

1 

90 

j QLSC | 

LOG 2 (SHORT) 


j 2 A 

1 

42 

| VPCM 

[FIXED DECIMAL TO PDI 

1 

| 5B 

1 

91 

1QLLCj 

LOG2 (LONG) 


j 2B 

1 

43 

| VFCM 

| NUM. FIELD FLOAT TO PDI 

1 

1 5C 

1 

92 

|QLSB| 

LOG 10 (SHORT) 


| 2C 

1 

44 

| VECM 

E, F TO PDI 

1 

1 5D 

1 

93 

j QLLB j 

LOG 10 (LONG) 


j 2D 

1 

45 

j VGIM 

|CHAR. STRING TO BIT STRING| 

1 5E 

1 

94 

| QSSD j 

SINE (SHORT) 


j 2E 

1 

46 

| VIGM 

BIT STRING TO CHAR. STRING 

1 5F 

1 

95 

1QSLDI 

SINE (LONG) 


j 2F 

1 

47 

j TSTR 

|X, PAGE, SKIP 

1 

| 60 

1 

96 

j QSSC | 

SINE-DEGREE (SHORT) 


| 30 

1 

48 

j TL.CM 

j LINE, COLUMN 

1 

1 61 

1 

97 

j QSLC| 

SINE-DEGREE (LONG) 


| 31 

1 

49 

j VCBM 

j PDI TO BIN. FIXED 

1 

| 62 

1 

98 

j QSSB j 

COSINE (SHORT) 


| 32 

1 

50 

| VCTM 

| PDI TO FLOAT 

1 

| 63 

1 

99 

j QSLB j 

COSINE (LONG) 


| 33 

1 

51 

j VCPM 

j PDI TO FIXED DECIMAL 

1 

| 64 

1 

100 

|QSSA| 

COSINE-DEGREE (SHORT) 


1 34 

1 

52 

j VCFM 

j PDI TO NUM. FIELD FLOAT 

1 

1 65 

1 

101 

IQSLAI 

COSINE-DEGREE (LONG) 


1 35 

1 

53 

j VCEM 

j PDI TO E, F 

1 

| 66 

1 

102 

( QTSB | 

TAN (SHORT) 


1 36 

1 

54 

j SYSI 

j SYSIN 

1 

1 67 

1 

103 

IQTLB| 

TAN (LONG) 


1 37 

1 

55 

| SYSA 

| SYSPRT 

1 

| 68 

1 

104 

|QTSA| 

TAN-DEGREE (SHORT) 


| 3 8 

1 

56 

| TCBM 

| CONSECUTIVE BUFFERED 

1 

1 69 

1 

105 

|QTLA| 

TAN-DEGREE (LONG) 



1 



jTRANSMITTER 

1 

| 6A 

1 

106 

jQCSA| 

SINH (SHORT) 


| 39 

1 

57 

| TCUM 

j CONSECUTIVE UNBUFFERED 

1 

| 6B 

1 

107 

1 ££ LA| 

SINH (LONG) 



1 



| TRANSMITTER 

1 

| 6C 

1 

108 

|QCSB| 

COSH (SHORT) 


| 3 A 

1 

58 

| TRGM 

jREGIONAL TRANSMITTER 

1 

| 6D 

1 

109 

|QCLB( 

COSH (LONG) 


j 3B 

1 

59 

| TDPD 

(DISPLAY 

1 

j 6E 

1 

110 

j QDSAj 

TANH (SHORT) 


j 3C 

1 

60 

| TDPR 

| DISPLAY : REPLY 

1 

j 6F 

1 

111 

|QDLA| 

TANH (LONG) 


1 3D 

1 

61 

| TXCF 

| EOF 

1 

| 70 

1 

112 

j QBSAj 

ATANH (SHORT) 


| 3E 

1 

62 

| TXCW 

|WR LENGTH 

1 

1 71 

1 

113 

|QBLA| 

ATANH (LONG) 


1 3F 

1 

63 

j TXCR 

|ERROPT 

1 

| 72 

1 

114 

j QRSB j 

ERF (SHORT) 


| 40 

1 

64 

| VTBM 

[BIN. FLOAT TO BIN. FIXED 

1 

1 7 3 

1 

115 

j QRLB | 

ERF (LONG) 


| 41 

1 

65 

j VBTM 

(BIN. FIXED TO BIN. FLOAT 

1 

| 74 


116 

|QRSA| 

ERFC (SHORT) 


| 42 

1 

66 

| VIIM 

| BIT STRING TO BIT STRING 

1 

| 75 

1 

117 

j QRLA| 

ERFC (LONG) 


L- 

.j. 

— 

X _ 

X - 

J 

1 76 

1 

118 

j £NSD| 

ATAN (SHORT) 








i_ 

.1 

~— 

X _ X 




Note: The underlined module names are primary entry points. 
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| INT. 


NAME 

(.- 

T 

— 

| HEX. 

1 

1 

DEC. 

j. 

1 

V 



t 


| 77 

l 

119 

| 78 

l 

120 

| 79 

l 

121 

1 7A 

l 

122 

1 7B 

l 

123 

| 7C 

l 

124 

1 7D 

l 

125 

1 7E 

l 

126 

1 7F 

l 

127 

| 80 

l 

128 

| 81 

l 

129 

| 82 

l 

130 

| 83 

l 

131 

| 84 

l 

132 

1 85 

l 

133 

| 86 

l 

134 

| 87 

l 

135 

| 88 

l 

136 

| 89 

l 

137 

| 8A 

1 

138 

| 8B 

l 

139 

| 8C 

l 

140 

| 8D 

l 

141 

| 8E 

l 

142 

j 8F 

l 

143 

| 90 

l 

144 

| 91 

l 

145 

| 92 

l 

146 

| 93 

l 

147 

| 94 

l 

148 

| 95 

l 

149 

1 96 

l 

150 

| 97 

l 

151 

| 98 

l 

152 

| 99 

1 

153 

| 9A 

l 

154 

j 9B 

1 

155 

j 9C 

1 

156 

j 9D 

l 

157 

j 9E 

l 

158 

j 9F 

l 

159 

j AO 

1 

160 

1 A1 

1 

161 

| A 2 

1 

162 

| A3 

l 

163 

j A 4 

1 

164 

| A5 

l 

165 

| A6 

l 

166 

1 

l 

167 

| A8 

1 

168 

| A9 

l 

169 

j AA 

1 

170 

1 AB 

l 

171 


*1 NAME 
Pos. 
4-7 


- + 


DESCRIPTION 


QNLD 

QNSC 

QNLC 

QNSB 

QNLB 

ANSA 

QNLA 

RBKB 

RBKA 


RBIM 

RGIM 


RBBM 

RGKM 

RMSX 

RMLX 

RMBX 

RMPX 

RMSN 

RMLN 

RMBN 

RMPN 


RESM 

RELM 

REPM 

REBM 

RXSA 

RXLM 


AT AN (LONG) 

ATAN-DEGREE (SHORT) 

AT AN- D E GRE E (LONG) 

AT AN- (X , Y) SHORT) 

ATAN- (X,Y) (LONG) 
ATAN-DEGREE (X,Y) (SHORT) 
ATAN-DEGREE (X,Y) (LONG) 
REPEAT BIT 
BIT CONCATENATION 
INDEX BIT 
INDEX CHARACTER 


BOOL 

REPEAT CHARACTER 
MAX (FLOAT SHORT) 

MAX (FLOAT LONG) 

MAX (FIXED BINARY) 

MAX (FIXED DECIMAL) 

MIN (FLOAT SHORT) 

MIN (FLOAT LONG) 

MIN (FIXED BINARY) 

MIN (FIXED DECIMAL) 

SUBSTR BIT (RIGHT) 

SUBSTR CHAR (RIGHT) 

SUBSTR BIT (LEFT) 

SUBSTR CHAR (LEFT) 

EXP (FLOAT SHORT + INTEGER) 
EXP (FLOAT LONG + INTEGER) 
EXP (DECIMAL + INTEGER) 

EXP (BIN. FIXED) INTEGER 
EXP (GENERAL SHORT) 

EXP (GENERAL LONG) 


ABS 

SIGN 

FLOOR 

CEIL 

UNSPEC 

BIT 

CHAR 

BINARY 

DECIMAL 

FLOAT 


r- 

j INT 

1-- 

j HEX 

L 

“T 

1 

1 

“T “ ~ 

NAME|MOD. 

--1 NAME 

DEC.|Pos. 
| 4-7 

1 

i 

i 

j DESCRIPTION 

1 

1. 


r 

T 

"•—-j- — 

T — 

___| 

j AC 

1 

172 | 

|FIXED 


j AD 

1 

173 | 

|PRECISION 


| AE 

1 

174 | 

i 


| AF 

1 

175 | 

| ADD 


j B0 

1 

176 | 

j MULTIPLY 


i b i 

1 

177 | 

|DIVIDE 


i B2 

1 

178 | 

j HIGH 


|B3 

1 

179 | 

| LOW 


j B4 

1 

180 | 

j SUM 


|B5 

1 

181 | 

j PROD 


j B6 

1 

182 | 

(ALL 


|B7 

I 

183 | 

| ANY 


|B8 

1 

184 | 

jADDRESS 


| B9 

1 

185 | 

(STRING 


| BA 

1 

186 | 

i 


j BB 

1 

187 | 

i 


j BC 

1 

188 | 

i 


j BD 

1 

189 | 

i 


j BE 

1 

190 | 

i 


j BF 

1 

191 | 

i 


j CO 

1 

192 | 

i 


|C1 

1 

193 | 

i 


| C2 

1 

194 j SDMF 

|DYNDUMP 


| C3 

1 

195 | 

i 


| C4 

1 

196 | 

i 


| C5 

1 

197 | 

i 


| C 6 

1 

198 | 

i 


| C7 

1 

199 | 

i 


| C8 

1 

200|RTSM|FLOOR (FLOAT SHORT) 


| C9 

1 

201|RTLM|FLOOR (FLOAT LONG) 


| CA 

1 

202|RTBM|FLOOR (BIN. FIXED) 


| CB 

1 

203|RTPM|FLOOR (DEC. FIXED) 


|CC 

1 

204|RVSM|CEIL (FLOAT SHORT) 


| CD 

1 

205|RVLM|CEIL (FLOAT LONG) 


ICE 

! 

206|RVBM|CEIL (BIN. FIXED) 


j CF 

1 

207|RVPM|ceil (DEC. FIXED) 


j DO 

1 

208 j RSSM|MOD (FLOAT SHORT) 


| D1 

1 

209 j RSLM|MOD (FLOAT LONG) 


j D2 

1 

210 j RSBM|MOD (BIN.FIXED) 


|D3 

1 

211|RSPM|MOD (DEC. FIXED) 


| D4 

1 

21 2 j RUSM| ROUND (FLOAT SHORT) 


|D5 

1 

213 jRULM|ROUND (FLOAT LONG) 


j D6 

1 

214|RUBM|ROUND (BIN. FIXED) 


|D7 

1 

215 j RUPM|ROUND (DEC. FIXED) 


j D8 

1 

216|RWSM|TRUNC (FLOAT SHORT) 


j D9 

1 

217|RWLM|TRUNC (FLOAT LONG) 


j DA 

1 

218|RWBM|TRUNC (BIN. FIXED) 


|DB 

1 

2191RWPM|TRUNC (DEC. FIXED) 


j DC 

1 

220 | 

|ABS (FLOAT SHORT) 


| DD 

1 

221 | 

j ABS (FLOAT LONG) 


j DE 

1 

222 j 

j ABS (BIN. FIXED) 


| DF 

1 

223 | 

|ABS (DEC. FIXED) 


L_ 

_x 

_i__ 


_ _1 


/f~^\ 




N ote ; The underlined module names are primary entry points. 



374 




















PL/I PLM 8 


IBM Confidential 


APPENDI X D, _DTF TABLES 


000000 

FILECDI 

START 

0 

CARD INPUT 

000000 


DC 

X' C2' 

OPEN MASK 

000001 


DC 

AL3 (TABAD) 

TABLE ADDRESS 

000004 


DC 

X'01 • 

FLAG BYTE ONE 

000005 


DC 

AL3 (0) 

CHAIN ADDRESS 

000008 


DC 

X'0000' 

FLAG BYTE TWO, COMM BYTE 

00000A 


DC 

H' O' 

RECORD LENGTH 

oooooc 


DC 

A (0) 


000010 


DC 

A (IOA1) 

BUFFER ADDRESS 

000014 


DC 

H • 0' 

REMAINING DATA 

000016 


DC 

H' 0' 

DATA LENGTH 

000018 


DC 

OD* 0' 


000018 

TABAD 

DC 

X'000080000000' 

RES, COUNT. COM., STATUS BTS 

0000 IE 


DC 

AL1 (0) 

LOGICAL UNIT CLASS 

0 0 0 01F 


DC 

AL1 (0) 

LOGICAL UNIT 

000020 


DC 

A (CCWAD) 

CCW-ADDRESS 

000024 


DC 

4X'00’ 

CCB-ST BYTE,CSW CCW ADDR. 

000028 


DC 

V (IJCFZIZ 0) 

ADDR OF LOGIC MODULE 

00002C 


DC 

X' 02 * 

DTF TYPE (READER) 

00002D 


DC 

AL1 (1) 

SWITCHES 

00002E 


DC 

AL1 (2) 

NORMAL COMM. CODE 

00002F 


DC 

AL1 (2) 

CNTROL COMM. CODE 

000030 


DC 

A (IOA1) 

ADDR OF IOAREA1 

000034 


DC 

V (IJKTXCF) 

EOF ADDRESS 

000038 

CCWAD 

ccw 

2,I0A1,X'20*,80 


000040 


NOP 

0 


000044 


NOP 

0 


000048 


DC 

X'0000' 


00004A 





000050 

IOA1 

DC 

o 

D 

o 

IOAREA1 



END 





000000 

FILECD01 

START 

0 

CARD OUTPUT, DEVICE 1442 

000000 


DC 

X • A2' 

OPEN MASK 

000001 


DC 

AL3(TABAD) 

TABLE ADDRESS 

000004 


DC 

X'01 • 

FLAG BYTE ONE 

000005 


DC 

AL3 (0) 

CHAIN ADDRESS 

000008 


DC 

X'0000' 

FLAG BYTE TWO, COMM BYTE 

00000A 


DC 

H' 0' 

RECORD LENGTH 

OOOOOC 


DC 

A (0) 


000010 


DC 

A (IOAl) 

BUFFER ADDRESS 

000014 


DC 

H' 0' 

REMAINING DATA 

000016 


DC 

H' 0' 

DATA LENGTH 

000018 


DC 

OD'O* 


000018 

TABAD 

DC 

X'000080000000' 

RES. COUNT,COM. BYTE,STATUS BTS 

00001E 


DC 

AL1 (0) 

LOGICAL UNIT CLASS 

0000 1F 


DC 

AL1 (0) 

LOGICAL UNIT 

000020 


DC 

A (CCWAD) 

CCW ADDRESS 

000024 


DC 

4X'00' 

CCB-ST BYTE,CSW CCW ADDR. 

000028 


DC 

V (IJCFZOI0) 

ADDR OF LOGIC MODULE 

00002C 


DC 

X' 04 ' 

DTF TYPE = PUNCH 

00002D 


DC 

AL1 (16) 

SWITCHES 

00002E 


DC 

AL1 (65) 

NORMAL COMM. CODE 

00002F 


DC 

AL1 (65) 

CONTROL COMM. CODE 

000030 


DC 

A (IOAl) 

ADDR. OF DATA IN IOAREA1 

000034 


DC 

CL4' ' 

BUCKET 

000038 


NOPR 

0 


00003A 


NOP 

0 


00003E 


DC 

X 

o 

o 

SWITCH 2 

00003F 


DC 

C' ■ 

BLANK FOR EJECT LAST PRG. CARD 

000040 

CCWAD 

CCW 

65,ioai,x , 20 i ,80 


000048 

IOA1 

DC 

OD'O' 

IOAREA1 



END 
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000000 

FILECD02 

START 

0 

000000 


DC 

X' A2 1 

000001 


DC 

AL3 (TABAD) 

000004 


DC 

X*01 • 

000005 


DC 

AL3 (0) 

000008 


DC 

X'0000' 

00000A 


DC 

H' 0' 

oooooc 


DC 

M0) 

000010 


DC 

A (IOA1) 

000014 


DC 

H' 0' 

000016 


DC 

H' 0' 

000018 


DC 

OD'O' 

000018 

TABAD 

DC 

X'000080000000 

0000 IE 


DC 

AL1 (0) 

0000 IF 


DC 

AL1 (0) 

000020 


DC 

A (CCWAD) 

000024 


DC 

4X* 00' 

000028 


DC 

V (IJCFZOZ2) 

00002C 


DC 

X* 04' 

00002D 


DC 

AL1 (16) 

00002E 


DC 

AL1 (65) 

00002F 


DC 

AL1 (65) 

000030 


DC 

A (IOA1) 

000034 


DC 

CL4' ' 

000038 


NOPR 

0 

00003A 


NOP 

0 

00003E 


DC 

X'01 • 

00003F 


DC 

c* • 

000040 


CCW 

65,IOA1,X*20 * , 

000048 

CCWAD 

CCW 

1,*-9,X'20',1 

000050 

IOA1 

DC 

END 

O 

Q 

o 


000000 

FILECD03 

START 

0 

000000 


DC 

X * A2 • 

000001 


DC 

AL3 (TABAD) 

000004 


DC 

X'01 1 

000005 


DC 

AL3 (0) 

000008 


DC 

X'0000' 

00000A 


DC 

H'0* 

OOOOOC 


DC 

A (0) 

000010 


DC 

A (IOA1) 

000014 


DC 

H 1 0' 

000016 


DC 

H f 0 1 

000018 


DC 

OD'O' 

000018 

TABAD 

DC 

X * 0000840004 00 

00001E 


DC 

AL1 (0) 

0000 IF 


DC 

AL1 (0) 

000020 


DC 

A (CCWAD) 

000024 


DC 

4X'00' 

000028 


DC 

V (IJCFZOI4) 

00002C 


DC 

X' 04 1 

00002D 


DC 

AL1 (16) 

00002E 


DC 

AL1 (65) 

00002F 


DC 

AL1 (65) 

000030 


DC 

A (IOA1) 

000034 


DC 

CL4 * 1 

000038 


NOPR 

0 

00003A 


NOP 

0 

00003E 


DC 

X 

o 

o 

00003F 


DC 

c* • 

000040 

CCWAD 

CCW 

es^OA^x^o*, 

000048 


CCW 

1,* + 8,X* 20•, 80 

000050 


DC 

CL80 1 1 

0000A0 

IOA1 

DC 

END 

OD'O' 


CARD OUTPUT, 2520B1 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM BYTE 

RECORD LENGTH 

BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 

RES. COUNT,COM. BYTES,STATUS BTS 

LOGICAL UNIT CLASS 

LOGICAL UNIT 

CCW2 ADDRESS 

CCB-ST BYTE,CCW ADDR. 

ADDR. OF LOGIC MOD 
DTF TYPE (PUNCH) 

SWITCHES 

NORMAL COMM. CODE 
CONTROL COMM. CODE 
ADDR. OF DATA IN IOAREA1 
BUCKET 


SWITCH 2 

BLANK FOR EJECT LAST PRG• CARD 

FOR EJECT LAST PROG. CARD 
IOAREA1 


CARD OUTPUT,DEVICE 2540 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM BYTE 

RECORD LENGTH 

BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 

RES. COUNT,COM. BYTE,STATUS BTS 
LOGICAL UNIT CLASS 
LOGICAL UNIT 
CCW ADDRESS 

CCB-ST BYTE,CSW CCW ADDR. 

ADDR OF LOGIC MODULE 
DTF TYPE = PUNCH 
SWITCHES 

NORMAL COMM. CODE 
CONTROL COMM. CODE 
ADDR. OF DATA IN IOAREA1 
BUCKET 


SWITCH 2 

BLANK FOR EJECT LAST PRG. CARD 

FOR PUNCH ERROR RETRY 
AREA FOR SAVE CARD IMAGE 
IOAREA1 
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000000 

FILEPRR 

START 

0 

000000 


DC 

X * A2 • 

000001 


DC 

AL3 (TABAD) 

000004 


DC 

X• 09 * 

000005 


DC 

AL3 (0) 

000008 


DC 

X f 0000' 

00000A 


DC 

H'OO* 

oooooc 


DC 

A(0) 

000010 


DC 

A (IOA1) 

000014 


DC 

H ■ 0 1 

000016 


DC 

H ’ 0 * 

000018 

TABAD 

DC 

0D' 0 * 

000018 


DC 

X*000084000400* 

00001E 


DC 

AL1 (0) 

00001F 


DC 

AL1 (0) 

000020 


DC 

A (CCWAD) 

000024 


DC 

4X* 00' 

000028 


DC 

V (IJDFZPZZ) 

00002C 


DC 

X 1 08 1 

00002D 


DC 

AL1 (16) 

00002E 


DC 

X'09' 

00002F 


DC 

X’ 09 ' 

000030 


DC 

A (IOA1) 

000034 


DC 

4X'00' 

000038 


NOPR 

0 

00003A 


NOP 

0 

00003E 


DC 

2X 1 00' 

000040 

CCWAD 

CCW 

9,IOAl,X* 20 1 ,120 

000048 

IOA1 

DC 

END 

0D * 0 ' 


000000 

FILEPRP 

START 

0 

000000 


DC 

X * A2 ' 

000001 


DC 

AL3 (TABAD) 

000004 


DC 

X • 0D 1 

000005 


DC 

AL3 (0) 

000008 


DC 

X'OOOO' 

00000A 


DC 

H 1 0 1 

OOOOOC 


DC 

A(0) 

000010 


DC 

A (IOAl- 1) 

000014 


DC 

H* 0' 

000016 


DC 

H’ O’ 

000018 


DC 

H' 0 ' 

00001A 
00001C 


DC 

H' 0 1 

000020 

TABAD 

DC 

0D • 0 • 

000020 


DC 

x'oooosooooooo' 

000026 


DC 

AL1 (0) 

000027 


DC 

AL1 (0) 

000028 


DC 

A (CCWAD) 

00002C 


DC 

4X 1 00' 

000030 


DC 

V (IJDFAZZZ) 

000034 


DC 

x'os* 

000035 


DC 

AL1 (48) 

000036 


DC 

X 1 09 * 

000037 


DC 

X' 09 • 

000038 


DC 

A (IOAl) 

00003C 


DC 

4X'00' 

000040 


NOPR 

0 

000042 


NOP 

0 

000046 


DC 

2X f 00' 

000048 

CCWAD 

CCW 

9,IOAl,X'20' ,120 

000050 


DC 

X'OO* 

000051 

IOAl 

DC 

END 

OC'O* 


PRINTER, RECORD ORIENTED 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM.BYTE 

RECORD LENGTH 

BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 

RES. CNT, COM. BYTES, STATUS BTS 
LOGICAL UNIT CLASS 
LOGICAL UNIT 
CCW ADDR. 

CCB-ST BYTE,CSW CCW ADDRESS 
ADDRESS OF LOGIC MODULE 
DTF TYPE (PRINTER) 

SWITCHES 

NORMAL COMM. CODE 
CONTROL COMM. CODE 
ADDRESS OF DATA IN IOAREA1 
BUCKET 


NOT USED 


PRINTER WITH PRINT OPTION 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM.BYTE 

RECORD LENGTH 

BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 
PAGE SIZE 
CURRENT LINE 


RES. COUNT, COM. BYTES, STATUS BTS 
LOGICAL UNIT CLASS 
LOGICAL UNIT 
CCW ADDR. 

CCB-ST BYTE,CSW CCW ADDRESS 
ADDRESS OF LOGIC MODULE 
DTF TYPE (PRINTER) 

SWITCHES 

NORMAL COMM. CODE 
CONTROL COMM. CODE 
ADDRESS OF DATA IN IOAREA1 
BUCKET 


NOT USED 

CONTROL CHARACTER FIELD 
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000000 

FILETAUN 

START 

0 

TAPE UNBUFFERED FILE 

000000 


DC 

X' 83’ 

OPEN MASK 

000001 


DC 

AL3 (TABAD) 

TABLE ADDRESS 

000004 


DC 

X*01 • 

FLAG BYTE ONE 

000005 


DC 

AL3 (0) 

CHAIN ADDRESS 

000008 


DC 

X' 4600' 

FLAG BYTE TWO, COMM. BYTE 

00000k 


DC 

H 1 0' 

RECORD LENGTH 

oooooc 


DC 

X' 40000000' 


000010 

TABAD 

DC 

0D' 0' 


000010 


DC 

X' 000082000000' 

CCB 

000016 


DC 

AL1 (0) 

LOGICAL UNIT CLASS 

000017 


DC 

AL1 (0) 

LOGICAL UNIT 

000018 


DC 

AL4 (CCWAD) 

CCW ADDRESS 

00001C 


DC 

4X'00' 

CCB-ST BYTE,CSW CCW ADDRESS 

000020 


DC 

V (IJFWEZZZ) 

ADDR OF LOGICAL MODULE 

000024 


DC 

X' 10' 

DTF TYPE 

000025 


DC 

AL1 (32) 

LOGICAL INDICATORS 

000026 


DC 

X'0000' 


000028 


DC 

H' 0' 

RECORD LENGTH 

00002k 


DC 

H * 0 ' 

BLOCKSIZE 

00002C 


DC 

X' 02 * 

READ OP CODE 

00002D 


DC 

AL3 (IJKTXCF) 

END OF FILE ADDRESS 

000030 

CCWAD 

CCW 

X'02',*,X* 20 ', 1 

CHANNEL PROGRAM 

000038 


DC 

F' 0' 

BLOCK COUNT 

00003C 


DC 

AL1 (128) 

READ ERROR OPTION INDIC. 

00003D 


DC 

AL3(IJKTXCR) 

READ ERROR ROUTINE 



EXTRN 

IJKTXCF,IJKTXCR 




END 
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000000 

FILEDIUN 

START 

0 

DISK UNBUFFERED FILE, NO UPDATE 

000000 


DC 

X' 83' 

OPEN MASK 

000001 


DC 

AL3 (TABAD) 

TABLE ADDRESS 

000004 


DC 

X'01 ' 

FLAG BYTE ONE 

000005 


DC 

AL3 (0) 

CHAIN ADDRESS 

000008 


DC 

X'4600* 

FLAG BYTE TWO, COMM. BYTE 

00000A 


DC 

H* 0' 

RECORD LENGTH 

oooooc 


DC 

A(0) 


000010 


DC 

OD'O" 


000010 

TABAD 

DC 

X* 000082000000' 

CCB 

000016 


DC 

X'FFFF' 

CCB“*LOGICAL UNIT 

000018 


DC 

A (CCWAD) 

CCB-CCW ADDRESS 

00001C 


DC 

4X* 00' 

CCB-ST BYTE,CSW CCW ADDRESS 

000020 


DC 

V (IJGWEZZZ) 

LOGIC MODULE ADDRESS 

000024 


DC 

X* 20' 

DTF TYPE 

000025 


DC 

AL1 (32) 

OPEN/CLOSE INDICATORS 

000026 


DC 

CL8 *FILEDIUN' 

FILENAME 

00002E 


DC 

H’3625* 

TRACK CAPACITY COUNTER 

000030 


DC 

7X'00' 


000037 


DC 

X' 09' 

UPPER HEAD LIMIT 

000038 


DC 

H' 0 1 

RECORD LENGTH 

00003A 


DC 

14X'00 * 


000048 


DC 

X'OOOOFFOO' 

SEARCH ADDRESS-CCHH 

00004C 


DC 

2X'00• 


00004E 


DC 

H* 0' 

MAXIMUM RECORD LENGTH 

000050 


DC 

A.L1 (32) 

VERIFY CHAIN BIT 

000051 


DC 

AL3 (IJKTXCF) 

EOF ADDRESS 

000054 


DC 

AL1 (128) 

LOGICAL INDICATORS 

000055 


DC 

AL3 (IJKTXCR) 

USER'S ERROR ROUTINE 

000058 

CCWAD 

CCW 

7,*-18,64,6 

SEEK 

000060 


CCW 

X'31*,*-24,64,5 

SEARCH ID EQUAL 

000068 


CCW 

8,*-8,0,0 

TIC 

000070 


CCW 

3,*,32,1 

WRITE CKD OR READ DATA 

000078 


CCW 

5,*,32,1 

WRITE DATA/READ COUNT 

000080 


CCW 

X'31',*-56,64,5 

SEARCH ID EQUAL 

000088 


CCW 

8,*-8,0,0 

TIC 

000090 


CCW 

X'lE’,*+16,48,8 

VERIFY 

000098 


CCW 

X' 12* ,* + 8,0,8 

READ COUNT 

0000A0 


DC 

X'0000000001000000' 

COUNT AREA 



EXTRN 

IJKTXCF,IJKTXCR 




END 
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000000 

FILEDIUU 

START 

0 

DISK UNBUFFERED FILE, WITH UPDATE 

000000 


DC 

X * 9B • 

OPEN MASK 

000001 


DC 

AL3 (TABAD) 

TABLE ADDRESS 

000004 


DC 

X*01 • 

FLAG BYTE ONE 

000005 


DC 

AL3 (0) 

CHAIN ADDRESS 

000008 


DC 

X* 4600' 

FLAG BYTE TWO, COMM, BYTE 

00000A 


DC 

H 1 0 1 

RECORD LENGTH 

oooooc 


DC 

A (0) 


000010 

000014 


DC 

A (0) 


000018 


DC 

OD 1 0 * 


000018 

TABAD 

DC 

X* 000082000000 1 

CCB 

0000 IE 


DC 

X* FFFF' 

CCB-LOGICAL UNIT 

000020 


DC 

A (CCWAD) 

CCB-CCW ADDRESS 

000024 


DC 

4X , 00’ 

CCB-ST BYTE,CSW CCW ADDRESS 

000028 


DC 

V (IJGWEZZZ) 

LOGIC MODULE ADDRESS 

00002C 


DC 

X*20 * 

DTF TYPE 

00002D 


DC 

AL1 (32) 

OPEN/CLOSE INDICATORS 

00002E 


DC 

CL8'FILEDIUU 1 

FILENAME 

000036 


DC 

H* 3625' 

TRACK CAPACITY COUNTER 

000038 


DC 

7X'00 * 


00003F 


DC 

X* 09 * 

UPPER HEAD LIMIT 

000040 


DC 

H' 0 1 

RECORD LENGTH 

000042 


DC 

^X'OO* 


000050 


DC 

X 1 0000FF00• 

SEARCH ADDRESS-CCHH 

000054 


DC 

2X'00 * 


000056 


DC 

H *0 1 

MAXIMUM RECORD LENGTH 

000058 


DC 

AL1 (32) 

VERIFY CHAIN BIT 

000059 


DC 

AL3 (IJKTXCF) 

EOF ADDRESS 

00005C 


DC 

AL1 (128) 

LOGICAL INDICATORS 

00005D 


DC 

AL3 (IJKTXCR) 

USER * S ERROR ROUTINE 

000060 

CCWAD 

CCW 

7,*-18,64,6 

SEEK 

000068 


ccw 

X* 31 1 ,*-24,6 4,5 

SEARCH ID EQUAL 

000070 


CCW 

8,*-8, 0,0 

TIC 

000078 


CCW 

3 , *,32,1 

WRITE CKD OR READ DATA 

000080 


CCW 

5^,32,1 

WRITE DATA/READ COUNT 

000088 


CCW 

X f 3V f *-56 r 64 # 5 

SEARCH ID EQUAL 

000090 


CCW 

8 r *-8 # 0 # 0 

TIC 

000098 


CCW 

X*IE*,*+16,48,8 

VERIFY 

0000A0 


CCW 

X* 12' ,* + 8,0,8 

READ COUNT 

0000A8 


DC 

X'OOOOOOOOOIOOOOOO' 

COUNT AREA 



EXTRN 

END 

IJKTXCF,IJKrXCR 
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000000 

FILETAFI 

START 

000000 


DC 

000001 


DC 

000004 


DC 

000005 


DC 

000008 


DC 

00000A 


DC 

oooooc 


DC 

000010 


DC 

000014 


DC 

000016 


DC 

000018 

TABAD 

DC 

000018 


DC 

0000 IE 


DC 

0000 IF 


DC 

000020 


DC 

000024 


DC 

000028 


DC 

00002C 


DC 

00002D 


DC 

00002E 


DC 

000036 


DC 

000038 


DC 

000039 


DC 

00003C 


DC 

00003D 


DC 

000040 


DC 

000044 


BXH 

000048 


LA 

00004C 


L 

000050 

CCWAD 

CCW 

000058 


DC 

00005C 

IJF2 

DC 

000060 


DC 

000064 


DC 

000068 


DC 

00006A 


DC 

00006C 


DC 

00006E 


DC 

000070 


DC 

000074 


DC 

000078 

IOA1 

DC 

EXTRN 

END 


0 

X*C2* 

A.L3 (TABAD) 

X’01 ' 

AL3 (0) 

X’0000* 

H' 0' 

X' 40000000* 

A (IOA1) 

H' 0' 

H*0* 

OD' 0' 

X'000082000000* 

AL1 (0) 

AL1 (0) 

AL4 (CCWAD) 

4X*00' 

Y (IJFFZZZZ) 

X' 11 ' 

AL1 (8) 

CL8'FILETAFI* 

X'0200' 

AL1 (0) 

AL3 (0) 

AL1 (32) 

AL3 (IJKTXCF) 

F'O* 

11,12,24 (15) 

14,1 (14) 

2,1JF2-TABAD (1) 

X* 02 *,IOA1,X * 00',0 
A (IOA1) 

F'O' 

F'O* 

F'O* 

Y (0) 

Y (0) 

Y (0) 

H 1 0 1 

A (I JKTXCW) 

A (I JKTXCR) 

OD’ 0 1 

IJKTXCF ,IJKTXCW,IJKTXCR 


TAPE FILE FIXED INPUT 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 

CCB 

LOGICAL UNIT CLASS 
LOGICAL UNIT 
CCW ADDRESS 

CCB-ST BYTE,CSW CCW ADDRESS 
ADDRESS OF LOGICAL MODULE 
DTF TYPE 

LOGICAL IOCS SWITCHES 
FILE NAME 

SWITCH ONE FOR OPEN AND CLOSE 

SWITCH TWO FOR OPEN AND CLOSE 

EOF-ADDRESS 

BLOCKCOUNT 

DEBLOCKING FORWARD 

INCREASE BLOCKCOUNT BY ONE 

LOAD USER REGISTER 

ADDRESS OF IOAREA 
DEBLOCKER 1 
DEBLOCKER 2 
DEBLOCKER 3 
BLOCKSIZE 
BLOCKSIZE-1 
RECSIZE-1 
NOT USED 
WLR-ADDRESS 
ERROR EXIT 
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000000 

FILET&FO 

START 

0 

TAPE FILE FIXED OUTPUT 

000000 


DC 

X'A2' 

OPEN MASK 

000001 


DC 

AL3 (TABAD) 

TABLE ADDRESS 

000004 


DC 

X'01' 

FLAG BYTE ONE 

0Q0Q05 


DC 

AL3 (0) 

CHAIN ADDRESS 

000008 


DC 

X'QOOO' 

FLAG BYTE TWO, COMM. BYTE 

00000A 


DC 

H' 0' 

RECORD LENGTH 

oooooc 


DC 

X' 40000000' 


000010 


DC 

A (IOA1) 

BUFFER ADDRESS 

000014 


DC 

H' 0' 

REMAINING DATA 

000016 


DC 

H'O' 

DATA LENGTH 

000018 

TA.BAD 

DC 

OD'O' 


000018 


DC 

X*000080000000* 

CCB 

0000 IE 


DC 

AL1 (0) 

LOGICAL UNIT CLASS 

0000 IF 


DC 

AL1 (0) 

LOGICAL UNIT 

000020 


DC 

AL4 (CCWAD) 

CCW ADDRESS 

000024 


DC 

4X'00' 

CCB-ST BYTE,CSW CCW ADDRESS 

000028 


DC 

V (IJFFZZZZ) 

ADDRESS OF LOGICAL MODULE 

00002C 


DC 

X' 11 • 

DTF TYPE 

00002D 


DC 

AL1 (0) 

LOGICAL IOCS SWITCHES 

00002E 


DC 

CL8'FILETAFO' 

FILE NAME 

000036 


DC 

X'0100' 


000038 


DC 

AL1 (0) 

SWITCH ONE FOR OPEN AND CLOSE 

000039 


DC 

AL3 (0) 


00003C 


DC 

AL1 (0) 

SWITCH TWO FOR OPEN AND CLOSE 

00003D 


DC 

AL3 (*) 

EOF-ADDRESS 

000040 


DC 

F'O* 

BLOCKCOUNT 

000044 


BXH 

11, 12,24 (15) 

DEBLOCKING FORWARD 

000048 


LA 

14,1 (14) 

INCREASE BLOCKCOUNT BY ONE 

00004C 


L 

2,IJF2-TABAD (1) 

LOAD USER REGISTER 

000050 

CCWAD 

CCW 

X'01',IOA1,X'00*, 0 


000058 


DC 

A (IOA1) 


00005C 

IJF2 

DC 

A (IOA1) 

DEBLOCKER 1 

000060 


DC 

F'O' 

DEBLOCKER 2 

000064 


DC 

A (IOA1-1) 

DEBLOCKER 3 

000068 


DC 

X(O) 

BLOCKSIZE 

00006A 


DC 

X (0) 

BLOCKSIZE-1 

00006C 


DC 

X (0) 

RECSIZE-1 

00006E 





000070 

IOA1 

DC 

OD'O' 




END 




€ 
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000000 

FILETA.SP 

START 

0 

TAPE STREAM FILE WITH PRINT OPTION 

000000 


DC 

X'A2' 

OPEN MASK 

000001 


DC 

AL3 (TABAD) 

TABLE ADDRESS 

000004 


DC 

X' 0D' 

FLAG BYTE ONE 

000005 


DC 

AL3 (0) 

CHAIN ADDRESS 

000008 


DC 

X'COOO' 

FLAG BYTE TWO, COMM. BYTE 

00000A 


DC 

H' 0' 

RECORD LENGTH 

oooooc 


DC 

X' 40000000' 


000010 


DC 

A (IOA1) 

BUFFER ADDRESS 

000014 


DC 

H * 0' 

REMAINING DATA 

000016 


DC 

H' 0' 

DATA LENGTH 

000018 


DC 

H' 0' 

PAGE SIZE 

00001A 


DC 

H' 0' 

CURRENT LINE 

00001C 





000020 

TA.BAD 

DC 

OD* O' 


000020 


DC 

X'000080000000* 

CCB 

000026 


DC 

AL1 (0) 

LOGICAL UNIT CLASS 

000027 


DC 

AL1 (0) 

LOGICAL UNIT 

000028 


DC 

AL4 (CCWAD) 

CCW ADDRESS 

00002C 


DC 

4X'00' 

CCB-ST BYTE,CSW CCW ADDRESS 

000030 


DC 

V (IJFFZZZZ) 

ADDRESS OF LOGICAL MODULE 

000034 


DC 

X’11* 

DTF TYPE 

000035 


DC 

AL1 (0) 

LOGICAL IOCS SWITCHES 

000036 


DC 

CL8 * FILETASP' 

FILE NAME 

00003E 


DC 

X’0100' 


000040 


DC 

AL1 (0) 

SWITCH ONE FOR OPEN AND CLOSE 

000041 


DC 

AL3 (0) 


000044 


DC 

AL1 (0) 

SWITCH TWO FOR OPEN AND CLOSE 

000045 


DC 

AL3 (*) 

EOF-ADDRESS 

000048 


DC 

F' 0' 

BLOCKCOUNT 

00004C 


BXH 

11,12,24 (15) 

DEBLOCKING FORWARD 

000050 


LA 

14,1 (14) 

INCREASE BLOCKCOUNT BY ONE 

000054 


L 

2,1JF2-TABAD (1) 

LOAD USER REGISTER 

000058 

CCWAD 

CCW 

X' 01',IOA1,X 1 00' , 0 


000060 


DC 

A (IOA1) 


000064 

IJF2 

DC 

A (IOA1) 

DEBLOCKER 1 

000068 


DC 

F' 0' 

DEBLOCKER 2 

00006C 


DC 

A (IOA1-1) 

DEBLOCKER 3 

000070 


DC 

y (0) 

BLOCKSIZE 

000072 


DC 

X (0) 

BLOCKSIZE-1 

000074 


DC 

Y(0) 

RECSIZE-1 

000076 

IOA1 

DC 

OH* O' 




END 
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000000 

FILETAFB 

START 

0 

000000 


DC 

X'C2' 

000001 


DC 

AL3 (TABAD) 

000004 


DC 

X'03’ 

000005 


DC 

AL3 (0) 

000008 


DC 

X* 4500' 

00000A 


DC 

H' 0' 

oooooc 


DC 

X* 40000000' 

000010 


DC 

A (IOA1) 

000014 


DC 

H' 0 * 

000016 


DC 

H'0* 

000018 

TABAD 

DC 

OD'O* 

000018 


DC 

X' 000082000000• 

00001E 


DC 

AL1 (0) 

0000 IF 


DC 

AL1 (0) 

000020 


DC 

A (CCWAD) 

000024 


DC 

4X'00' 

000028 


DC 

V (IJFFBZZZ) 

00002C 


DC 

X' 1 1 ’ 

00002D 


DC 

AL1 (8) 

00002E 


DC 

CL8'FILETAFB' 

000036 


DC 

X'OCOO’ 

000038 


DC 

AL1 (0) 

000039 


DC 

AL3 (0) 

00003C 


DC 

AL1 (32) 

00003D 


DC 

AL3 (IJKTXCF) 

000040 


DC 

F' 0' 

000044 


BXLE 

11,12,24 (15) 

000048 


BCTR 

14,0 

00004A 


NOPR 

0 

00004C 


L 

2,1JF2-TABAD (1) 

000050 

CCWAD 

CCW 

X'OC',IOA1,X'00 

000058 


DC 

A (IOA1) 

00005C 

IJF2 

DC 

A (IOA1) 

000060 


DC 

F* 0' 

000064 


DC 

A (IOA1) 

000068 


DC 

Y (0) 

00006A 


DC 

Y (0) 

00006C 


DC 

Y (0) 

00006E 


DC 

H' 0' 

000070 


DC 

V (IJKTXCW) 

000074 


DC 

V (IJKTXCR) 

000078 

IOA1 

DC 

OD'O' 



EXTRN 

END 

IJKTXCF 


TAPE FILE BACK FIXED RECORDS 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 

CCB 

LOGICAL UNIT CLASS 
LOGICAL UNIT 
CCW ADDRESS 

CCB-ST. BYTE, CSW CCW ADDRESS 
ADDRESS OF LOGICAL MODULE 
DTF TYPE 

LOGICAL IOCS SWITCHES 
FILE NAME 

SWITCH ONE FOR OPEN AND CLOSE 

SWITCH TWO FOR OPEN AND CLOSE 
EOF-ADDRESS 
BLOCKCOUNT 
DEBLOCKING BACKWARD 
DECREASE BLOCKCOUNT BY ONE 

LOAD USER REGISTER 

,0 

ADDRESS OF IOAREA 
DEBLOCKER 1 
2 
3 

BLOCKSIZE 
BLOCKSIZE+1 
RECORDSIZE-1 

WLR-ADDRESS 
ERROR EXIT 
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000000 

FILETAVI 

START 

0 

TAPE INPUT FILE VARIABLE RECORDS 

000000 


DC 

X'C2' 

OPEN MASK 

000001 


DC 

AL3 (TABAD) 

TABLE ADDRESS 

000004 


DC 

X’ 11 • 

FLAG BYTE ONE 

000005 


DC 

AL3 (0) 

CHAIN ADDRESS 

000008 


DC 

X' 4500 1 

FLAG BYTE TWO, COMM. BYTE 

00000A 


DC 

H'0* 

RECORD LENGTH 

oooooc 


DC 

X* 40000000' 


000010 


DC 

A (IOAt) 

BUFFER ADDRESS 

000014 


DC 

H' 0' 

REMAINING DATA 

000016 


DC 

H'0' 

DATA LENGTH 

000018 

TABAD 

DC 

0D' 0' 


000018 


DC 

X'000082000000' 

CCB 

0000 IE 


DC 

AL1 (0) 

LOGICAL UNIT CLASS 

0000 IF 


DC 

AL1 (0) 

LOGICAL UNIT 

000020 


DC 

AL4 (CCWAD) 

CCW ADDRESS 

000024 


DC 

4X'00' 

CCB-ST BYTE,CSW CCW ADDRESS 

000028 


DC 

V (IJFVZZZZ) 

ADDRESS OF LOGICAL MODULE 

00002C 


DC 

X' 11 • 

DTF TYPE 

00002D 


DC 

AL1 (72) 

LOGICAL IOCS SWITCHES 

00002E 


DC 

CL8'FILETAVI' 

FILE NAME 

000036 


DC 

X' 0200* 

INPUT 

000038 


DC 

AL1 (0) 

SWITCH ONE FOR OPEN AND CLOSE 

000039 


DC 

AL3 (0) 


00003C 


DC 

AL1 (32) 

SWITCH TWO FOR OPEN AND CLOSE 

00003D 


DC 

AL3 {IJKTXCF) 

EOF-ADDRESS 

000040 


DC 

F' 0' 

BLOCKCOUNT 

000044 


NOP 

0 (0) 


000048 


LA 

14, 1 (14) 

INCREASE BLOCKCOUNT BY ONE 

00004C 


L 

2,1JF4-TABAD (1) 

LOAD USER IOREG 

000050 

CCWAD 

CCW 

X'02',IOA1,X'00',0 


000058 


DC 

A (IOA1) 

ADDRESS OF IOAREA 

00005C 

IJF3 

DC 

F' 0' 


000060 

IJF2 

DC 

A (IOAl) 

DEBLOCKER 3, 

000064 


DC 

2F' 0 ' 

4/5, 

00006C 

IJF4 

DC 

A (IOA1 + 4) 

1, 

000070 


DC 

F' 0 ' 

6 

000074 


DC 

Y(0) 

BLOCKSIZE 

000076 


DC 

y (0) 

BLOCKSIZE-1 

000078 


DC 

Y (0) 


00007A 


DC 

H'0' 


00007C 


DC 

V (IJKTXCW) 

WLR-ADDRESS 

000080 


DC 

V (IJKTXCR) 

ERROR EXIT 

000084 





000088 

IOA1 

DC 

0D' 0' 




EXTRN 

IJKTXCF 



END 
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000000 

FILETAVO 

START 

0 

TAPE OUTPUT FILE VARIABLE RECORDS 

000000 


DC 

X'A.2' 

OPEN MASK 

000001 


DC 

AL3 (TABAD) 

TABLE ADDRESS 

000004 


DC 

X' 11 ' 

FLAG BYTE ONE 

000005 


DC 

AL3 (0) 

CHAIN ADDRESS 

000008 


DC 

X* 4500' 

FLAG BYTE TWO, COMM. BYTE 

00000A 


DC 

H' 0 * 

RECORD LENGTH 

oooooc 


DC 

X* 40000000' 


000010 


DC 

A (IOA1) 

BUFFER ADDRESS 

000014 


DC 

H* 0' 

REMAINING DATA 

000016 


DC 

H' 0' 

DATA LENGTH 

000018 

TABAD 

DC 

OD'O* 


000018 


DC 

X'000080000000' 

CCB 

00001E 


DC 

AL1 (0) 

LOGICAL UNIT CLASS 

0000 IF 


DC 

AL1 (0) 

LOGICAL UNIT 

000020 


DC 

A (CCWAD) 

CCW ADDRESS 

000024 


DC 

X'0000' 

CCB-ST BYTE, CSW CCW ADDRESS 

000026 





000028 


DC 

V (IJFVZZZZ) 

ADDRESS OF LOGICAL MODULE 

00002C 


DC 

X' 1 1 ' 

DTF TYPE 

00002D 


DC 

AL1 (64) 

LOGICAL IOCS SWITCHES 

00002E 


DC 

CL8'FILETAVO' 

FILE NAME 

000036 


DC 

X* 0100' 

OUTPUT 

000038 


DC 

AL1 (0) 

SWITCH ONE FOR OPEN AND CLOSE 

000039 


DC 

AL3 (0) 

USER LABEL ROUTINE 

00003C 


DC 

AL1 (0) 

SWITCH TWO FOR OPEN AND CLOSE 

00003D 


DC 

AL3 (*) 

EOF-ADDRESS 

000040 


DC 

F'0' 

BLOCKCOUNT 

000044 


L 

3,1JF3-TABAD (1) 


000048 


LA 

14,1 (14) 

INCREASE BLOCKCOUNT BY ONE 

00004C 


L 

2,1JF4-TABAD (1) 


000050 

CCWAD 

CCW 

X'01',IOA1,X*00',0 


000058 


DC 

A (IOA1) 

ADDRESS OF IOAREA 

00005G 

IJF3 

DC 

F'O* 


000060 

IJF2 

DC 

A (IOA1) 

DEBLOCKER 3, 

000064 


DC 

2F' 0 * 

4,5, 

00006C 

IJF4 

DC 

A(IOA1+4) 

1, 

000070 


DC 

F'O' 

6 

000074 


DC 

Y(0) 

BLOCKSIZE-4 

000076 


DC 

Y(0) 

BLOCKSIZE-1 

000078 


DC 

Y (0) 


00007A 





000080 

IOA1 

DC 

OD'O' 




END 
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000000 

FILETAUI 

START 

0 

TAPE INPUT FILE UNDEFINED RECORDS 

000000 


DC 

X* C2 * 

OPEN MASK 

000001 


DC 

AL3 (TABAD) 

TABLE ADDRESS 

000004 


DC 

X'31' 

FLAG BYTE ONE 

000005 


DC 

AL3 (0) 

CHAIN ADDRESS 

000008 


DC 

X' 4500' 

FLAG BYTE TWO/ COMM. BYTE 

00000A 


DC 

H*0* 

RECORD LENGTH 

oooooc 


DC 

X' 40000000' 


000010 


DC 

A (IOA1) 

BUFFER ADDRESS 

000014 


DC 

H' 0' 

REMAINING DATA 

000016 


DC 

H'0* 

DATA LENGTH 

000018 

TABAD 

DC 

0D* 0' 


000018 


DC 

X*000082000000* 

CCB 

0000 IE 


DC 

AL1 (0) 

LOGICAL UNIT CLASS 

0000 IF 


DC 

AL1 (0) 

LOGICAL UNIT 

000020 


DC 

AL4 (CCWAD) 

CCW ADDRESS 

000024 


DC 

4X'00' 

CCB-ST. BYTE, CSW CCW ADDRESS 

000028 


DC 

V (IJFUZZZZ) 

ADDRESS OF LOGICAL UNIT 

00002C 


DC 

X'11* 

DTF TYPE 

00002D 


DC 

AL1 (8) 

LOGICAL IOCS SWITCHES 

00002E 


DC 

CL8 * FILETAUI* 

FILE NAME 

000036 


DC 

X * 0200' 


000038 


DC 

AL1 (0) 

SWITCH ONE FOR OPEN ADN CLOSE 

000039 


dc 

AL3 (0) 


00003C 


DC 

AL1 (32) 

SWITCH TWO FOR OPEN AND CLOSE 

00003D 


DC 

AL3 (IJKTXCF) 

EOF-ADDRESS 

000040 


DC 

F * 0' 

BLOCKCOUNT 

000044 

IJF4 

DC 

F' 0' 

DEBLOCKER 1 

000048 


L 

4, IJF4-TABAD (1) 

GIVE USER RECSIZE 

00004C 


L 

2,1JF2-TABAD (1) 

LOAD USER IOREG 

000050 

CCWAD 

CCW 

X*00*,IOA1,X * 00 *,0 


000058 


DC 

A (IOA1) 


00005C 

IJF2 

DC 

A (IOA1) 

DEBLOCKER 2 

000060 


LA 

14,1 (14) 

CHANGE BLOCKCOUNT 

000064 


DC 

* (0) 

BLOCKSIZE 

000066 


DC 

y (0) 

BLOCKSIZE-1 

000068 


NOPR 

0 


00006A 


DC 

H'0* 


00006C 


DC 

V (IJKTXCR) 

ERROR EXIT 

000070 

IOA1 

DC 

OD’O* 




EXTRN 

IJKTXCR,IJKTXCF 




END 
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000000 

FILETAUO 

START 

0 

000000 


DC 

X'A2' 

000001 


DC 

AL3 (TABAD) 

000004 


DC 

X' 31 * 

000005 


DC 

AL3 (0) 

000008 


DC 

X'4500' 

00000A 


DC 

H* 0' 

oooooc 


DC 

X' 40000000' 

000010 


DC 

A (IOA1) 

000014 


DC 

H' 0' 

000016 


DC 

H' 0' 

000018 

TABAD 

DC 

0D* 0' 

000018 


DC 

x'oooosooooooo' 

00001E 


DC 

AL1 (0) 

0000 IF 


DC 

AL1 (0) 

000020 


DC 

AL4 (CCWAD) 

000024 


DC 

4X* 00' 

000028 


DC 

V (IJFUZZZZ) 

00002C 


DC 

X'11' 

00002D 


DC 

AL1 (0) 

00002E 


DC 

CL8•FILETAUO * 

000036 


DC 

X'0100' 

000038 


DC 

AL1 (0) 

000039 


DC 

AL3 (0) 

00003C 


DC 

AL1 (0) 

00003D 


DC 

AL3 (0) 

000040 


DC 

F* 0 • 

000044 

IJF4 

DC 

F ’ 0 * 

000048 


NOP 

0 (0) 

00004C 


L 

2,1JF2-TABAD (1) 

000050 

CCWAD 

CCW 

X'01',IOA1,X'0 0 

000058 


DC 

A (IOA1) 

00005C 

IJF2 

DC 

A (IOA1) 

000060 


LA 

14,1 (14) 

000064 


DC 

X (0) 

000066 


DC 

y (0) 

000068 

00006A 


LR 

12,4 

000070 

IOA1 

DC 

END 

0D' 0' 


TAPE OUTPUT FILE UNDEFINED RECORDS 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 

CCB 

LOGICAL UNIT CLASS 
LOGICAL UNIT 
CCW ADDRESS 

CCB-ST. BYTE, CSW CCW ADDRESS 
ADDRESS OF LOGICAL MODULE 
DTF TYPE 

LOGICAL IOCS SWITCHES 

FILE NAME 

OUTPUT 

SWITCH ONE FOR OPEN AND CLOSE 

SWITCH TWO FOR OPEN AND CLOSE 

EOF-ADDRESS 

BLOCKCOUNT 

DEBLOCKER 1 

LOAD USER IOREG 

,0 

DEBLOCKER 2 
CHANGE BLOCKCOUNT 
BLOCKSIZE 
BLOCKSIZE-1 
PICK UP RECSIZE 
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000000 

FIDIINFI 

START 

0 

000000 


DC 

X 'C2' 

000001 


DC 

AL3 (TABAD) 

000004 


DC 

X'01' 

000005 


DC 

AL3 (0) 

000008 


DC 

X'OOOO' 

00000A 


DC 

H 1 0' 

oooooc 


DC 

X' 80000000' 

000010 


DC 

A (IOA1) 

000014 


DC 

H' 0' 

000016 


DC 

H' 0' 

000018 

TABAD 

DC 

0D' 0 ' 

0(50018 


DC 

X'000082000000' 

0000 IE 


DC 

X'FFFF' 

000020 


DC 

A (CCWAD) 

000024 


DC 

4X'00' 

000028 


DC 

V (IJGFIEZZ) 

00002C 


DC 

X' 20' 

00002D 


DC 

AL1 (2) 

00002E 


DC 

CL8'FIDIINFI 1 

000036 


DC 

8X'00' 

00003E 


DC 

X' 08' 

00003F 


DC 

2X'00' 

000041 


DC 

AL3 (*) 

000044 


DC 

A (IOA1) 

000048 


DC 

X' 80000000' 

00004C 


DC 

6X'00' 

000052 

FILENS 

DC 

2X'00' 

000054 


DC 

X'0000FF00' 

000058 


DC 

X'00' 

000059 


DC 

AL3 (IJKTXCF) 

00005C 


DC 

4X'00' 

000060 


DC 

AL1 (0) 

000061 


DC 

X'00' 

000062 


DC 

H' 0' 

000064 


DC 

5X'00' 

000069 


DC 

AL3 (IJKTXCW) 

00006C 


L 

2,88 (1) 

000070 


DC 

A (IOA1) 

000074 


DC 

F' 0 1 

000078 


DC 

A (IOA1-1) 

00007C 


DC 

AL1 (128) 

00007D 


DC 

AL3 (IJKTXCR) 

000080 

CCWAD 

CCW 

7,*-46,64,6 

000088 


CCW 

X*31',*-52,64,5 

000090 


CCW 

8,*-8,0,0 

000098 


CCW 

6,IOA1,0,0 

0000A0 

IOA1 

DC 

0D' 0' 



EXTRN 

END 

IJKTXCF,IJKTXCW 


DISK FILE 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 

CCB 

CCB-LOGICAL UNIT 

CCB-CCW ADDRESS 

XXB-ST BYTE,CSW CCW ADDRESS 

LOGIC MODULE 

DTF TYPE 

OPEN/CLOSE INDICATOR 
FILENAME 

OPEN COMMUNICATIONS BYTE 

USER'S LABEL ADDRESS 

ADDRESS OF IOAREA 

CCHH ADDR OF USER LABEL TRACK 

SEEK ADDRESS-BB 

SEARCH ADDRESS-CCHH 

RECORD NUMBER 

EOF ADDRESS 

CCHH CONTROL FIELD 

CONTROL FIELD 

SWITCHES 

SIZE OF BLOCK-1 

CCHHR BUCKET 

WLERR ADDRESS 

LOAD USER'S IOREG 

DEBLOCKER-INITIAL POINTER 

DEBLOCKER-RECORD SIZE 

DEBLOCKER LIMIT 

LOGICAL INDICATORS 

USER'S ERROR ROUTINE 

SEEK 

SEARCH ID EQUAL 
TIC 

READ DATA 

IJKTXCR 
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000000 

FIDIINVA 

START 

000000 


DC 

000001 


DC 

000004 


DC 

000005 


DC 

000008 


DC 

00000A 


DC 

00000C 


DC 

000010 


DC 

000014 


DC 

000016 


DC 

000018 

TABAD 

DC 

000018 


DC 

0000 IE 


DC 

000020 


DC 

000024 


DC 

000028 


DC 

00002C 


DC 

00002D 


DC 

00002E 


DC 

000036 


DC 

00003E 


DC 

00003F 


DC 

000041 


DC 

000044 


DC 

000048 


DC 

00004C 


DC 

000052 

FILENS 

DC 

000054 


DC 

000058 


DC 

000059 


DC 

00005C 


DC 

000060 


DC 

000061 


DC 

000062 


DC 

000064 


DC 

000069 


DC 

00006C 


L 

000070 


DC 

000074 


DC 

000078 


DC 

00007C 


DC 

00007D 


DC 

000080 

CCWAD 

CCW 

000088 


CCW 

000090 


CCW 

000098 


CCW 

0000A0 


CCW 

0000A8 


DC 

0000B0 

IOA1 

DC 

EXTRN 

END 


3de 


0 

X'C2 * 

AL3 (TABAD) 

X'11' 

AL3 (0) 

X'0000* 

H'O' 

X'80000000* 

A (IOA1) 

H'O* 

H'O* 

OD'O* 

X* 000082000000 * 

X'FFFF* 

A (CCWAD) 

4X* 00 * 

V (IJGVIEZZ) 

X* 20' 

AL1 (66) 

CL8 * FIDIINVA' 

8X* 00* 

X' 08 ' 

2X'00* 

AL3 (*) 

A (IOA1) 

X* 80000000' 

6X* 00* 

2X* 00 * 

X'OOOOFFOO* 

X'OO* 

AL3 (IJKTXCF) 

UX’OO* 

X'FF* 

X'OO* 

H'O* 

5X* 00' 

AL3 (I JKTXCW) 

2 f 88 (1) 

A (IOA1 + 4) 

F * 0 * 

A (IOA1-1) 

ALT (128) 

AL3 (IJKTXCR) 

7, *-46,64,6 

X* 31 1 ,*-52,64,5 

8 , *- 8 , 0,0 

6,IOA1,64,0 
X* 92 1 ,*+8,0,8 
2F' 0 * 

OD'O* 

IJKTXCF,IJKTXCW,IJKTXCR 


DISK FILE 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 

CCB 

CCB-LOGICAL UNIT 

CCB-CCW ADDRESS 

XXB-ST BYTE,CSW CCW ADDRESS 

LOGIC MODULE 

DTF TYPE 

OPEN/CLOSE INDICATOR 
FILENAME 

OPEN COMMUNICATIONS BYTE 

USER'S LABEL ADDRESS 

ADDRESS OF IOAREA 

CCHH ADDR OF USER LABEL TRACK 

SEEK ADDRESS-BB 

SEARCH ADDRESS-CCHH 

RECORD NUMBER 

EOF ADDRESS 

CCHH CONTROL FIELD 

CONTROL FIELD 

SWITCHES 

SIZE OF BLOCK-1 

CCHHR BUCKET 

WLERR ADDRESS 

LOAD USER'S IOREG 

DEBLOCKER-INITIAL POINTER 

DEBLOCKER-RECORD SIZE 

DEBLOCKER LIMIT 

LOGICAL INDICATORS 

USER'S ERROR ROUTINE 

SEEK 

SEARCH ID EQUAL 
TIC 

READ DATA 
READ COUNT 
COUNT AREA 
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000000 

FIDIINUN 

START 

0 

DISK FILE 

000000 


dc 

X 1 C2 1 

OPEN MASK 

000001 


DC 

AL3 (TABAD) 

TABLE ADDRESS 

000004 


DC 

X f 31 ' 

FLAG BYTE ONE 

000005 


DC 

AL3 (0) 

CHAIN ADDRESS 

000008 


DC 

X'0000' 

FLAG BYTE TWO, COMM. BYTE 

00000A 


DC 

H * 0 1 

RECORD LENGTH 

oooooc 


DC 

X'80000000' 


000010 


DC 

A (IOA1) 

BUFFER ADDRESS 

000014 


DC 

H' 0 * 

REMAINING DATA 

000016 


DC 

H 1 0 1 

DATA LENGTH 

000018 

TABAD 

DC 

OD' O' 


000018 


DC 

X*000082000000' 

CCB 

00001E 


DC 

X'FFFF' 

CCB-LOGICAL UNIT 

000020 


DC 

A (CCWAD) 

CCB-CCW ADDRESS 

000024 


DC 

4X'00' 

XXB-ST BYTE,CSW CCW ADDRESS 

000028 


DC 

V (IJGUIEZZ) 

LOGIC MODULE 

00002C 


DC 

X' 20' 

DTF TYPE 

00002D 


DC 

AL1 (2) 

OPEN/CLOSE INDICATOR 

00002E 


DC 

CL8'FIDIINUN' 

filename 

000036 


DC 

8X'00' 


00003E 


DC 

X' 08 ' 

OPEN COMMUNICATIONS BYTE 

00003F 


DC 

2X'00' 


000041 


DC 

AL3 (*) 

USER'S LABEL ADDRESS 

000044 


DC 

A (IOA1) 

ADDRESS OF IOAREA 

000048 


DC 

X' 80000000' 

CCHH ADDR OF USER LABEL TRACK 

00004C 


DC 

6X'00' 


000052 

FILENS 

DC 

2X'00' 

SEEK ADDRESS-BB 

000054 


DC 

X'0000FF00' 

SEARCH ADDRESS-CCHH 

000058 


DC 

X'OO' 

RECORD NUMBER 

000059 


DC 

AL3 (IJKTXCF) 

EOF ADDRESS 

00005C 


DC 

4X'00' 

CCHH CONTROL FIELD 

000060 


DC 

X' FF ' 

CONTROL FIELD 

000061 


DC 

X'OO' 

SWITCHES 

000052 


DC 

H' 0 ' 

SIZE OF BLOCK-1 

000064 


DC 

5X'00' 

CCHHR BUCKET 

000069 


DC 

3X'0 0' 


00006C 


L 

2,88 (1) 

LOAD USER'S IOREG 

000070 


DC 

A (IOA1) 

DEBLOCKER-INITIAL POINTER 

000074 


L 

4,96 (1) 


000078 


DC 

A (IOA1-1) 

DEBLOCKER LIMIT 

00007C 


DC 

AL1 (128) 

LOGICAL INDICATORS 

00007D 


DC 

AL3 (IJKTXCR) 

USER'S ERROR ROUTINE 

000080 

CCWAD 

CCW 

7,*-46,64,6 

SEEK 

000088 


CCW 

X'31',*-52,64,5 

SEARCH ID EQUAL 

000090 


CCW 

8,*-8,0,0 

TIC 

000098 


CCW 

6,10A1,96,0 

READ DATA 

0000A0 


CCW 

X'92',*+8,0,8 

READ COUNT 

0000A8 


DC 

2F' 0 ' 

COUNT AREA 

0000B0 

IOA1 

DC 

OD' 0 ' 




EXTRN 

IJKTXCF 




EXTRN 

END 

IJKTXCR 
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000000 

FIDIOUFI 

START 

0 

000000 


DC 

X'A2' 

000001 


DC 

AL3 (TABAD) 

000004 


DC 

X'01 • 

000005 


DC 

AL3 (0) 

000008 


DC 

X'0000' 

00000A 


DC 

H * 0' 

oooooc 


DC 

X* 80000000' 

000010 


DC 

A (IOA1 + 8) 

000014 


DC 

H* 0' 

000016 


DC 

H* 0' 

000018 

TABAD 

DC 

0D* 0 * 

000018 


DC 

X' 0000820000 00 

0000 IE 


DC 

X'FFFF' 

000020 


DC 

A (CCWAD) 

000024 


DC 

4X’00' 

000028 


DC 

V (IJGFOEZZ) 

00002C 


DC 

X* 20 1 

00002D 


DC 

AL1 (0) 

00002E 


DC 

CL8'FIDIOUFI' 

000036 


DC 

8X* 00 * 

00003E 


DC 

X'08 1 

00003F 


DC 

2X* 00' 

000041 


DC 

AL3 (*) 

000044 


DC 

A (IOA1) 

000048 


DC 

X'80000000' 

00004C 


DC 

6X'00' 

000052 

FILENS 

DC 

2X'00 * 

000054 


DC 

X' 0000FF00* 

000058 


DC 

X'00' 

000059 


DC 

x'oo' 

00005A 


DC 

H'0* 

00005C 


DC 

4X'00' 

000060 


DC 

ALT (0) 

000061 


DC 

X'00' 

000062 


DC 

H' 0' 

000064 


DC 

5X'00 1 

000069 


DC 

X'00' 

00006A 


DC 

H'3625' 

00006C 


L 

2,88 (1) 

000070 


DC 

A (IOA1 + 8) 

000074 


DC 

F' 0 ' 

000078 


DC 

A (IOA1-1) 

00007C 


DC 

AL1 (128) 

00007D 


DC 

AL3 (IJKTXCR) 

000080 

CCWAD 

CCW 

7,*-46,64,6 

000088 


CCW 

X' 31',*-52,64, 

000090 


CCW 

8,*-8,0,0 

000098 


CCW 

X'ID',IOAl,0,0 

0000A0 


CCW 

X' 31',FILENS + 2 

0000A8 


CCW 

8,*-8,0,0 

000080 


CCW 

30,*,48,1 

0000B8 

IOA1 

DC 

0D'0' 



EXTRN 

IJKTXCR 



EXTRN 

END 

IJKTXCF 


DISK FILE 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 

CCB 

CCB-LOGICAL UNIT 

CCB-CCW ADDRESS 

XXB-ST BYTE,CSW CCW ADDRESS 

LOGIC MODULE 

DTF TYPE 

OPEN/CLOSE INDICATOR 
FILENAME 

OPEN COMMUNICATIONS BYTE 

USER'S LABEL ADDRESS 

ADDRESS OF 10AREA 

CCHH ADDR OF USER LABEL TRACK 

SEEK ADDRESS-BB 

SEARCH ADDRESS-CCHH 

RECORD NUMBER 

KEY LENGTH 

DATA LENGTH 

CCHH CONTROL FIELD 

CONTROL FIELD 

SWITCHES 

SIZE OF BLOCK-1 

CCHHR BUCKET 

TRACK CAPACITY CONSTANT 
LOAD USER'S IOREG 
DEBLOCKER-INITIAL POINTER 
DEBLOCKER-RECORD SIZE 
DBLOCKER LIMIT 
LOGICAL INDICATORS 
USER'S ERROR ROUTINE 
SEEK 

SEARCH ID EQUAL 
TIC 

WRITE COUNT, KEY AND DATA 
,5 SEARCH ID EQUAL 

TIC 
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000000 

FIDIOUPR 

START 

0 

000000 


DC 

X' A0 ' 

000001 


DC 

AL3 (TABAD} 

000004 


DC 

X' 0D' 

000005 


DC 

AL3 (0) 

000008 


DC 

X'0000' 

00000A 


DC 

H'0' 

oooooc 


DC 

X' 80000000' 

000010 


DC 

A (IOA1 + 8) 

000014 


DC 

H' 0' 

000016 


DC 

Hi O' 

000018 


DC 

H' 0' 

0000 1A 


DC 

H' 0' 

00001C 




000020 

TABAD 

DC 

0D' 0 ' 

000020 


DC 

X'000082000000 

000026 


DC 

X'FFFF' 

000028 


DC 

A (CCWAD) 

00002C 


DC 

4X'00' 

000030 


DC 

V (IJGFOEZZ) 

000034 


DC 

X' 20' 

000035 


DC 

AL1 (0) 

000036 


DC 

CL8'FIDIOUPR' 

00003E 


DC 

8X'00 1 

000046 


DC 

X' 0 8 ' 

000047 


DC 

2X'00' 

000049 


DC 

AL3 (*) 

00004C 


DC 

A (IOA1) 

000050 


DC 

X'80000000' 

000054 


DC 

6X'00' 

00005A 

FILENS 

DC 

2X'00' 

00005C 


DC 

X' 0000FF00' 

000060 


DC 

X'00' 

000061 


DC 

X'00' 

000062 


DC 

H' 0 ' 

000064 


DC 

4X'00 ' 

000068 


DC 

AL1 (0) 

000069 


DC 

X'00’ 

00006A 


DC 

H' 0 * 

00006C 


DC 

5X'00 ' 

000071 


DC 

X'00' 

000072 


DC 

H' 3625' 

000074 


L 

2,88 (1) 

000078 


DC 

A (IOA1 + 8) 

00007C 


DC 

F' 0 ' 

000080 


DC 

A (IOAl-1) 

000084 


DC 

AL1 (128) 

000085 


DC 

AL3 (IJKTXCR) 

000088 

CCWAD 

CCW 

7,*-46,64,6 

000090 


CCW 

X'31 ' ,*-52,64, 

000098 


CCW 

8, *-8,0,0 

0000A0 


CCW 

X'ID',IOA1,0,0 

0000A8 


CCW 

X ' 31',FILENS + 2 

0000B0 


CCW 

00 

* 

l 

00 

* 

o 

o 

0000B8 


CCW 

30,*,48,1 

ooooco 

IOA1 

DC 

0D ' 0' 



EXTRN 

IJKTXCR 



EXTRN 

IJKTXCF 



END 



DISK FILE 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 
PAGE SIZE 
CURRENT LINE 


CCB 

CCB-LOGICAL UNIT 

CCB-CCW ADDRESS 

XXB-ST BYTE,CSW CCW ADDRESS 

LOGIC MODULE 

DTF TYPE 

OPEN/CLOSE INDICATOR 
FILENAME 

OPEN COMMUNICATIONS BYTE 

USER'S LABEL ADDRESS 

ADDRESS OF 10AREA 

CCHH ADDR OF USER LABEL TRACK 

SEEK ADDRESS-BB 

SEARCH ADDRESS-CCHH 

RECORD NUMBER 

KEY LENGTH 

DATA LENGTH 

CCHH CONTROL FIELD 

CONTROL FIELD 

SWITCHES 

SIZE OF BLOCK-1 

CCHHR BUCKET 

TRACK CAPACITY CONSTANT 
LOAD USER'S IOREG 
DEBLOCKER-INITIAL POINTER 
DEBLOCKER-RECORD SIZE 
DEBLOCKER LIMIT 
LOGICAL INDICATORS 
USER'S ERROR ROUTINE 
SEEK 

SEARCH ID EQUAL 
TIC 

WRITE COUNT, KEY AND DATA 
,5 SEARCH ID EQUAL 

TIC 
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000000 

FIDIOUVA 

START 

0 

000000 


DC 

X' A2 ' 

000001 


DC 

AL3 (TABAD) 

000004 


DC 

X' 11 ' 

000005 


DC 

AL3 (0) 

000008 


DC 

X'0000' 

00000A 


DC 

H' 0 * 

oooooc 


DC 

X'80000000' 

000010 


DC 

A (IOA1 + 8) 

000014 


DC 

H' 0' 

000016 


DC 

H' 0' 

000018 

TABAD 

DC 

0D’0' 

000018 


DC 

X'000082000Q00 

00001E 


DC 

X'FFFF * 

000020 


DC 

A (CCWAD) 

000024 


DC 

4X'00' 

000028 


DC 

V (IJGVOEZZ) 

00002C 


DC 

X' 20 ' 

00002D 


DC 

AL1 (64) 

00002E 


DC 

CL8'FIDIOUVA' 

000036 


DC 

8X'00' 

00003E 


DC 

X' 0 8 ' 

00003F 


DC 

2X'00' 

000041 


DC 

AL3 (*) 

000044 


DC 

A (IOA1) 

000048 


DC 

X' 80000000' 

00004C 


DC 

6X'00' 

000052 

FILENS 

DC 

2X'00' 

000054 


DC 

X' 0000FF00' 

000058 


DC 

X'00' 

000059 


DC 

X'00' 

00005A 


DC 

H' 0' 

00005C 


DC 

4X'00 * 

000060 


DC 

X' FF' 

000061 


DC 

X'00' 

000062 


DC 

H' 0' 

000064 


DC 

5X'00' 

000069 


DC 

X'00' 

00006A 


DC 

H'3625' 

00006C 


L 

2,88 (1) 

000070 


DC 

A (IOA1+12) 

000074 


DC 

F' 0' 

000078 


DC 

A (IOA1-1) 

00007C 


DC 

AL1 (128) 

00007D 


DC 

AL3 (IJKTXCR) 

000080 

CCWAD 

CCW 

7,*-46,64,6 

000088 


CCW 

X'31',*-52,64, 

000090 


CCW 

8,*-8,0,0 

000098 


CCW 

X'1D',IOA1,0,0 

0000A0 


CCW 

X' 31',FILENS + 2 

0000A8 


CCW 

8,*-8,0,0 

0000B0 


CCW 

30,*,48,1 

0000B8 


DC 

F' 0' 

0000BC 


DC 

H'3625' 

0000BE 


L 

3,160 (1) 

0000C2 




0000C8 

IOA1 

DC 

0D'0' 



EXTRN 

IJKTXCR 



EXTRN 

IJKTXCF 



END 



DISK FILE 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 

CCB 

CCB-LOGICAL UNIT 

CCB-CCW ADDRESS 

XXB-ST BYTE,CSW CCW ADDRESS 

LOGIC MODULE 

DTF TYPE 

OPEN/CLOSE INDICATOR 
FILENAME 

OPEN COMMUNICATIONS BYTE 

USER'S LABEL ADDRESS 

ADDRESS OF IOAREA 

CCHH ADDR OF USER LABEL TRACK 

SEEK ADDRESS-BB 

SEARCH ADDRESS-CCHH 

RECORD NUMBER 

KEY LENGTH 

DATA LENGTH 

CCHH CONTROL FIELD 

CONTROL FIELD 

SWITCHES 

SIZE OF BLOCK-1 

CCHHR BUCKET 

TRACK CAPACITY CONSTANT 
LOAD USER'S IOREG 
DEBLOCKER-INITIAL POINTER 
DEBLOCKER-RECORD SIZE 
DEBLOCKER LIMIT 
LOGICAL INDICATORS 
USER'S ERROR ROUTINE 
SEEK 

SEARCH ID EQUAL 
TIC 

WRITE COUNT, KEY AND DATA 
,5 SEARCH ID EQUAL 

TIC 

SPACE REMAINING IN OUTPUT AREA 

TRACK CAPACITY BUCKET 

LOAD USER'S VARBLD REGISTER 
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( 



000000 

FIDIOUUN 

START 

0 

000000 


DC 

X' A2 ' 

000001 


DC 

AL3 (TABAD) 

000004 


DC 

X' 3 1 ' 

000005 


DC 

AL3 (0) 

000008 


DC 

X'0000' 

00000A 


DC 

H' O' 

oooooc 


DC 

X' 80000000' 

000010 


DC 

A (IOA1 + 8) 

000014 


DC 

H' 0 * 

000016 


DC 

H' 0 ' 

000018 

TABAD 

DC 

0D' 0 ' 

000018 


DC 

X' 0000820000 00 

0000 1E 


DC 

X'FFFF' 

000020 


DC 

A (CCWAD) 

000024 


DC 

4X'00' 

000028 


DC 

V (IJGUOEZZ) 

00002C 


DC 

X' 20 ' 

00002D 


DC 

AL1 (0) 

00002E 


DC 

CL8'FIDIOUUN' 

000036 


DC 

8X'00' 

00003E 


DC 

X' 0 8 ' 

00003F 


DC 

2X'00' 

000041 


DC 

AL3 (*) 

000044 


DC 

A (IOA1) 

000048 


DC 

X'80000000' 

00004C 


DC 

6X'00' 

000052 

FILENS 

DC 

2X'00' 

000054 


DC 

X'0000FF0O 1 

000058 


DC 

X'00' 

000059 


DC 

X'00' 

00005A 


DC 

H' 0' 

00005C 


DC 

4X'00' 

000060 


DC 

X' FF ' 

000061 


DC 

X'00' 

000062 


DC 

H' 0 ' 

000064 


DC 

5X'00 1 

000069 


DC 

X'00' 

00006A 


DC 

H' 3625' 

00006C 


L 

2,88 (1) 

000070 


DC 

A (IOA1 + 8) 

000074 


STH 

4,66 (1) 

000078 


DC 

A (IOA1-1) 

00007C 


DC 

AL1 (128) 

00007D 


DC 

AL3 (IJKTXCR) 

000080 

CCWAD 

CCW 

7,*-46,64,6 

000088 


CCW 

X'31',*-52,64,: 

000090 


CCW 

8,*-8,0,0 

000098 


CCW 

X'ID',IOA1,0,0 

0000A0 


CCW 

X' 31',FILENS + 2 

0000A8 


CCW 

8,*-8,0,0 

0000B0 


CCW 

30,*,48,1 

0000B8 


DC 

H' 3625' 

0000BA 




OOOOCO 

IOA1 

DC 

0D'0' 



EXTRN 

IJKTXCR 



EXTRN 

IJKTXCF 



END 



5 



DISK FILE 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 

CCB 

CCB-LOGICAL UNIT 

CCB-CCW ADDRESS 

XXB-ST BYTE,CSW CCW ADDRESS 

LOGIC MODULE 

DTF TYPE 

OPEN/CLOSE INDICATOR 
FILENAME 

OPEN COMMUNICATIONS BYTE 

USER *S LABEL ADDRESS 

ADDRESS OF IOAREA 

CCHH ADDR OF USER LABEL TRACK 

SEEK ADDRESS-BB 

SEARCH ADDRESS-CCHH 

RECORD NUMBER 

KEY LENGTH 

DATA LENGTH 

CCHH CONTROL FIELD 

CONTROL FIELD 

SWITCHES 

SIZE OF BLOCK-1 

CCHHR BUCKET 

TRACK CAPACITY CONSTANT 
LOAD USER'S IOREG 
DEBLOCKER-INITIAL POINTER 

DEBLOCKER LIMIT 
LOGICAL INDICATORS 
USER'S ERROR ROUTINE 
SEEK 

SEARCH ID EQUAL 
TIC 

WRITE COUNT KEY AND DATA 

SEARCH ID EQUAL 

TIC 

TRACK CAPACITY BUCKET 
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000000 

FIDIUPFI 

START 

000000 


DC 

000001 


DC 

000004 


DC 

000005 


DC 

000008 


DC 

00000A 


DC 

oooooc 


DC 

000010 


DC 

000014 


DC 

000016 


DC 

000018 

TABAD 

DC 

000018 


DC 

0000 IE 


DC 

000020 


DC 

000024 


DC 

000028 


DC 

00002C 


DC 

00002D 


DC 

00002E 


DC 

000036 


DC 

00003E 


DC 

00003F 


DC 

000041 


DC 

000044 


DC 

000048 


DC 

00004C 


DC 

000052 

FILENS 

DC 

000054 


DC 

000058 


DC 

000059 


DC 

00005C 


DC 

000060 


DC 

000061 


DC 

000062 


DC 

000064 


DC 

000069 


DC 

00006C 


L 

000070 


DC 

000074 


DC 

000078 


DC 

00007C 


DC 

00007D 


DC 

000080 

CCWAD 

CCW 

000088 


CCW 

00009C 


CCW 

000098 


CCW 

0000A0 


CCW 

0000A8 


CCW 

0000B0 


CCW 

0000B8 

IOAl 

DC 

EXTRN 

END 


0 

X 1 9A' 

AL3 (TABAD) 

X'01 ' 

AL3 (0) 

X'0000' 

H' 0' 

x'sooooooo' 

A (IOAl) 

H * 0 * 

H' 0' 

OD' 0' 

X 1 0000820000 00 * 

X'FFFF' 

A (CCWAD) 

4X'00' 

V (IJKFUEZZ) 

X 1 20 * 

AL1 (2) 

CL8 1 FIDIUPFI 1 

8x'oo' 

x'08' 

2X'00' 

AL3 (*) 

A (IOAl) 

X'80000000' 

6X'00' 

2X'00' 

X'0000FF00 1 
X'OO' 

AL3 (IJKTXCF) 

4X'00' 

AL1 (0) 

X* 00 ' 

H' 0' 

5X'00 * 

&L3 (IJKTXCW) 

2,88 ( 1 ) 

A. (IOAl) 

F 1 0 1 

A (IOAl- 1) 

ALl (128) 

AL3 (IJKTXCR) 

7, *-46,64,6 

X' 3 1 ',*-52,64,5 

8 , *- 8 , 0,0 

6,IOAl,0,0 

X* 31',FILENS + 2,64,5 
8 ,*- 8 , 0,0 
6,*,48,1 
OD'O* 

IJKTXCF,IJKTXCW,IJKTXCR 


DISK FILE 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 

CCB 

CCB-LOGICAL UNIT 

CCB-CCW ADDRESS 

XXB-ST BYTE,CSW CCW ADDRESS 

LOGIC MODULE 

DTF TYPE 

OPEN/CLOSE INDICATOR 
FILENAME 

OPEN COMMUNICATIONS BYTE 

USER'S LABEL ADDRESS 

ADDRESS OF IOAREA 

CCHH ADDR OF USER LABEL TRACK 

SEEK ADDRESS-BB 

SEARCH ADDRESS-CCHH 

RECORD NUMBER 

EOF ADDRESS 

CCHH CONTROL FIELD 

CONTROL FIELD 

SWITCHES 

SIZE OF BLOCK-1 

CCHHR BUCKET 

WLERR ADDRESS 

LOAD USER'S IOREG 

DEBLOCKER-INITIAL POINTER 

DEBLOCKER-RECORD SIZE 

DEBLOCKER LIMIT 

LOGICAL INDICATORS 

USER'S ERROR ROUTINE 

SEEK 

SEARCH ID EQUAL 
TIC 

READ DATA 
SEARCH ID EQUAL 
TIC 

VERIFY 
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000000 

FIDIUPVA 

START 

0 

DISK FILE 

000000 


DC 

X * 9A' 

OPEN MASK 

000001 


DC 

AL3 (TABAD) 

TABLE ADDRESS 

000004 


DC 

X' 1 1 1 

FLAG BYTE ONE 

000005 


DC 

AL3 (0) 

CHAIN ADDRESS 

000008 


DC 

X' 0000' 

FLAG BYTE TWO, COMM. BYTE 

00000A 


DC 

H' 0 ' 

RECORD LENGTH 

oooooc 


DC 

X* 80000000' 


000010 


DC 

A (IOA1) 

BUFFER ADDRESS 

000014 


DC 

H 1 0 1 

REMAINING DATA 

000016 


DC 

H' 0' 

DATA LENGTH 

000018 

TABAD 

DC 

OD' O' 


000018 


DC 

X'000082000000' 

CCB 

0000 IE 


DC 

X'FFFF' 

CCB-LOGICAL UNIT 

000020 


DC 

A (CCWAD) 

CCB-CCW ADDRESS 

000024 


DC 

4X'00' 

XXB-ST BYTE,CSW CCW ADDRESS 

000028 


DC 

V (IJGVUEZZ) 

LOGIC MODULE 

00002C 


DC 

X' 20 ' 

DTF TYPE 

00002D 


DC 

AL1 (66) 

OPEN/CLOSE INDICATOR 

00002E 


DC 

CL8'FIDIUPVA' 

FILENAME 

000036 


DC 

8X'00 * 


00003E 


DC 

X' 0 8 ' 

OPEN COMMUNICATIONS BYTE 

00003F 


DC 

2X'00' 


000041 


DC 

AL3 (*) 

USER'S LABEL ADDRESS 

000044 


DC 

A (IOA1) 

ADDRESS OF IOAREA 

000048 


DC 

X' 80000000' 

CCHH ADDR OF USER LABEL TRACK 

00004C 


DC 

6X'00' 


000052 

FILENS 

DC 

2X'00 1 

SEEK ADDRESS-BB 

000054 


DC 

X' 0000FF00' 

SEARCH ADDRESS-CCHH 

000058 


DC 

X'OO' 

RECORD NUMBER 

000059 


DC 

AL3 (IJKTXCF) 

EOF ADDRESS 

00005C 


DC 

4X'00' 

CCHH CONTROL FIELD 

000060 


DC 

X' FF' 

CONTROL FIELD 

000061 


DC 

X'OO' 

SWITCHES 

000062 


DC 

H' 0 ' 

SIZE OF BLOCK-1 

000064 


DC 

5X'00' 

CCHHR BUCKET 

000069 


DC 

AL3 (IJKTXCW) 

WLERR ADDRESS 

00006C 


L 

2,88 (1) 

LOAD USER'S IOREG 

000070 


DC 

A (IOA1 + 4) 

DEBLOCKER-INITIAL POINTER 

000074 


DC 

F' 0 ' 

DEBLOCKER-RECORD SIZE 

000078 


DC 

A (IOAl-1) 

DEBLOCKER LIMIT 

00007C 


DC 

AL1 (128) 

LOGICAL INDICATORS 

00007D 


DC 

AL3 (IJKTXCR) 

USER'S ERROR ROUTINE 

000080 

CCWAD 

CCW 

7,*-46,64,6 

SEEK 

000088 


CCW 

X'31',*-52,64,5 

SEARCH ID EQUAL 

000090 


CCW 

8,*-8,0,0 

TIC 

000098 


CCW 

6,IOA1,64,0 

READ DATA 

0000A0 


ccw 

X' 92',* + 32,0,8 

READ COUNT 

0000A8 


ccw 

X'31',FILENS+2,64,5 

SEARCH ID EQUAL 

0000B0 


ccw 

8,*-8,0,0 

TIC 

0000B8 


ccw 

6,*,48,146 

VERIFY 

OOOOCO 


DC 

2F' 0 ' 

COUNT AREA 

0000C8 


DC 

2F' 0 ' 

COUNT SAVE AREA 

0000D0 


DC 

2F' O' 

COUNT SAVE AREA FOR 21/0 



EXTRN 

IJKTXCF,IJKTXCW,IJKTXCR 


0000D8 

IOA1 

DC 

OD ' 0 ' 




END 
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000000 

FIDIUPUN 

START 

0 

000000 


DC 

X' 9A' 

000001 


DC 

AL3 (TABAD) 

000004 


DC 

X' 31 1 

000005 


DC 

AL3 (0) 

000008 


DC 

X'OQOO' 

00000A 


DC 

H' 0 ' 

oooooc 


DC 

X' 80000000' 

000010 


DC 

A (IOA1) 

000014 


DC 

H' 0 ' 

000016 


DC 

H' 0 ' 

000018 

TABAD 

DC 

0D'0' 

000018 


DC 

X' 000082000000 

00001E 


DC 

X'FFFF' 

000020 


DC 

A (CCWAD) 

000024 


DC 

4X'00' 

000028 


DC 

V (IJGUUEZZ) 

00002C 


DC 

X' 20' 

00002D 


DC 

AL1 (2) 

00002E 


DC 

CL8'FIDIUPUN' 

000036 


DC 

8X'00' 

00003E 


DC 

X' 08' 

00003F 


DC 

2X'00' 

000041 


DC 

AL3 (*) 

000044 


DC 

A (IOA1) 

000048 


DC 

X' 80000000' 

00004C 


DC 

6X'00' 

000052 

FILENS 

DC 

2X'00' 

000054 


DC 

X 1 OOOOFFQO' 

000058 


DC 

X'00' 

000059 


DC 

AL3 (IJKTXCF) 

00005C 


DC 

4X'00' 

000060 


DC 

X' FF' 

000061 


DC 

X'00' 

000062 


DC 

H' 0' 

000064 


DC 

5X'00' 

000069 


DC 

3X'00' 

00006C 


L 

2,88 (1) 

000070 


DC 

A (IOA1) 

000074 


L 

4,96 (1) 

000078 


DC 

A (IOA1- 1) 

00007C 


DC 

AL1 (128) 

00007D 


DC 

AL3 (IJKTXCR) 

000080 

CCWAD 

CCW 

7,*-46,64,6 

000088 


CCW 

X' 31 ' ,*-52,64, 

000090 


CCW 

8,*-8,0,0 

000098 


CCW 

6,IOA1,96,0 

0000A0 


CCW 

X' 92',* + 32,0,8 

0000A8 


CCW 

X'31',FILENS +2 

0000B0 


CCW 

8, *-8,0,0 

0000B8 


CCW 

6,*, 48,146 

000000 


DC 

2F' 0' 

0000C8 


DC 

2F' 0' 

0000D0 


DC 

2F' 0' 



EXTRN 

IJKTXCF 



EXTRN 

IJKTXCR 

0000D8 

IOA1 

DC 

0D' 0' 



END 



DISK FILE 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

BUFFER ADDRESS 
REMAINIG DATA 
DATA LENGTH 

' CCB 

CCB-LOGICAL UNIT 

CCB-CCW ADDRESS 

XXB-ST BYTE,CSW CCW ADDRESS 

LOGIC MODULE 

DTF TYPE 

OPEN/CLOSE INDICATOR 
FILENAME 

OPEN COMMUNICATIONS BYTE 

USER'S LABEL ADDRESS 

ADDRESS OF IOAREA 

CCHH ADDR OF USER LABEL TRACK 

SEEK ADDRESS-BB 

SEARCH ADDRESS-CCHH 

RECORD NUMBER 

EOF ADDRESS 

CCHH CONTROL FIELD 

CONTROL FIELD 

SWITCHES 

SIZE OF BLOCK-1 

CCHHR BUCKET 

LOAD USER'S IOREG 
DEBLOCKER-INITIAL POINTER 

DEBLOCKER LIMIT 
LOGICAL INDICATORS 
USER'S ERROR ROUTINE 
SEEK 

5 SEARCH ID EQUAL 

TIC 

READ DATA 
READ COUNT 

,64,5 SEARCH ID EQUAL 

TIC 

VERIFY 

COUNT AREA 

COUNT SAVE AREA 

COUNT SAVE AREA FOR 21/0 
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000000 

FIDIINR1 

START 

000000 


DC 

000001 


DC 

000004 


DC 

000005 


DC 

000008 


DC 

00000A 


DC 

oooooc 


DC 

00 000D 


DC 

000010 


DC 

000014 


DC 

000015 


DC 

000018 


DC 

00001C 


DC 

000020 


DC 

000022 

ERRBYTE 

DC 

000024 


DC 

000026 


DC 

000027 

SEEKADR 

DC 

000036 


DC 

000038 


DC 

00003E 


DC 

000040 


DC 

000046 


DC 

000048 

TABAD 

DC 

000048 


DC 

00004A 


DC 

00004B 


DC 

000050 


DC 

000054 


DC 

000058 


DC 

00005C 


DC 

00005D 


DC 

00005E 


DC 

000066 


DC 

000068 


DC 

00006C 


DC 

000070 


DC 

000071 


DC 

000074 


DC 

000076 


DC 

000078 


DC 

00007A 


DC 

00007B 


DC 

000080 


DC 

000084 


DC 

000088 

FILENZ 

CCW 

000090 


XI 

000094 


DC 

000096 


DC 

000097 


DC 

000098 


DC 

000099 


DC 

00009A 


DC 

00009B 


DC 

00009C 


DC 

00009E 


DC 

0000AO 


DC 

0000A8 

FILENC 

CCW 

0000B0 


DC 

0000B4 


DC 

0000B6 


DC 

0000B8 


CCW 

OOOOCO 


DC 

0000C8 


CCW 

0000D0 


CCW 

0000D8 

FILENO 

EQU 

OOOOD8 


DC 


0 

X'C5' 

AL3 (TABAD) 

X'01 ' 

AL3 (0) 

X 1 2800 * 

H' 0 ' 

X'80' 

AL3 (0) 

A (IOA1) 

X'00' 

AL3 (IJKTXRP) 

A (0) 

A (0) 

X'0000' 

X'OOOO' 

H 1 0 1 

X'00' 

isx'oo' 

H' 1 0 ' 

6X'0' 

H' 10' 

6X 1 0 1 

H' 10' 

OD' 0 ' 

H' 0' 

x'88' 

5X'0' 

AL4 (CCAD) 

F' 0' 

V (IJIFZZZZ) 

X" 22 1 

B f 00000000' 

CL8'FIDIINR1' 

X'0104' 

F' 0 ' 

V (I JKTXRM) 

X'O' 

AL3 (ERRBYTE) 

H' 0' 

V (CCWAD-TABAD-32) 

H' 0 ' 

X' 88 ' 

5X' 0' 

AL4 (FILENZ) 

4X' 0 ' 

X* 07 *,SEEKADR+1,X'00',6 
36 (2) ,C'0' 

H * 0' 

YL1 (FILENO-TABAD-1) 

YL1 (FILEN1-TABAD-1) 

YL1 (FILEN2-TABAD-1) 

YL1(FILEN3-TABAD-1) 

YL1 (FILEN4-TABAD- 1) 

YL1 (FILEN5-TABAD-1) 

H' 00 ' 

H' 6 1 ' 

D' 0 ' 

X'31',SEEKAD*+3,X'40' # 5 
1F ' 0 ' 

H' 0 ' 

H' 0 ' 

X^ 06' , IOAl # X•40' r 0 
ID' 0' 

X'39',SEEKAD 3 + 3 f X'4 0',4 
X'OE' , IOAl # X•40 1 ,0 
* 

X'871814' 


OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

DEVICE CODE 

BUFFER ADDRESS 
REGIONAL TYPE 
ADDRESSING ROUTINE 


LOGICAL UNIT 
ERROR BYTE 
KEYLENGTH 


FIRST CCB BYTES 


CC ADDR IN CCB 
FILE TYPE 


LABEL ROUTINE ADDRESS 
EXTENT ROUTINE ADDRESS 


TEST SWITCH 

POINTER 

IJICB2 


MAXIMUM DATA LENGTH 

PTR TO READ ID STRING 

READ KEY 

WRITE ID 

WRITE KEY 

RZERO 

AFTER 

RIC CONSTANT 
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000049 

FILEN1 

EQU 

000049 

FILEN2 

EQU 

000049 

FILEN3 

EQU 

000049 

FILEN4 

EQU 

000049 

0000DB 

FILEN5 

EQU 

OOOOEO 

CCWAD 

CCW 

0000E8 


DC 

000120 

IOA1 

DC 

EXTRN 

END 


TABAD+1 
TABAD+1 
TABAD+1 
TABAD+1 
TABAD+1 

X'07’,SEEKA3R+1,X'4 0',6 
7D'0' 

OD'O' 

IJKTXRP 
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000000 

FIDIONR1 

START 

000000 


DC 

000001 


DC 

000004 


DC 

000005 


DC 

000008 


DC 

00000A 


DC 

oooooc 


DC 

00000D 


DC 

000010 


DC 

000014 


DC 

000015 


DC 

000018 


DC 

00001C 


DC 

000020 


DC 

000022 

ERRBYTE 

DC 

000024 


DC 

000026 


DC 

000027 

SEEKADR 

DC 

000036 


DC 

000038 


DC 

00003E 


DC 

000040 


DC 

000046 


DC 

000048 

TABAD 

DC 

000048 


DC 

00004A 


DC 

00004B 


DC 

000050 


DC 

000054 


DC 

000058 


DC 

00005C 


DC 

00005D 


DC 

00005E 


DC 

000066 


DC 

000068 


DC 

00006C 


DC 

000070 


DC 

000071 


DC 

000074 


DC 

000076 


DC 

000078 


DC 

00007A 


DC 

00007B 


DC 

00008C 


DC 

000084 


DC 

OO0O88 

FILENZ 

CCW 

000090 


XI 

000094 


DC 

000096 


DC 

000097 


DC 

000098 


DC 

000099 


DC 

00009A 


DC 

00009B 


DC 

00009C 


DC 

00009E 


DC 

0000A0 


DC 

0000A8 

FILENC 

CCW 

0000B0 


DC 

0000B4 


DC 

0000B6 


DC 

0000B8 


CCW 

OOOOCO 


DC 

0000C8 


CCW 

0000D0 


CCW 

000049 

FILENO 

EQU 

000049 

FILEN1 

E2U 


0 

X'AS* 

AL3 (TABAD) 

X'01 • 

AL3 (0) 

X* 2800’ 

H * 0 1 
X' 80 * 

AL3 (0) 

A (IOA1) 

X'00* 

AL3 (IJKTXRP) 

A (0) 

A (0) 

X'0000• 

X'0000* 

H' 0 * 

X'OO 1 

isx'oo* 

H 1 10* 

6X* 0 * 

H' 10* 

6X f 0 f 
H * 1 0 * 

0D* 0 • 

H * 0 1 
X f 88* 

5X'0' 

AL4 (CCWAD) 

F' 0 1 

V (IJIFZZZZ) 

X’ 22' 

B’10000000• 

CL8•FIDIONR1' 

X 1 0104 * 

F 1 0 1 

V (I JKTXRM) 

X'O' 

AL3 (ERRBYTE) 

H 1 0 1 

V (CC WAD-TABAD-3 2) 

H B 0 1 

X’ 88 * 

5X 1 0 * 

AL4 (FILENZ) 

4X* 0 ’ 

X 1 07 1 ,SEEKADR+1 f X*00' ,6 
36 (2) ,C*0' 

H * 0 * 

YL1(FILENO-TABAD-1) 

YL1 (FILEN1-TABAD-1) 

YL1 (FILEN2-TABAD-1) 

YL1(FILEN3-TABAD-1) 

YLl(FILEN4-TABAD-1) 

YL1 (FILEN5-TABAD-1) 

H 1 00 * 

H 1 6 1 1 
D * 0 1 

X 1 31 * t SEEKADR+3 # X* 40 * f 5 
1F 1 0 * 

H 1 0 * 

H * 0 * 

X f 06 f f IOA1 / X•40 , r 0 

1D B 0 f 

X* 39 1 , SEKKAPR+ 3,X* 40 1 f 4 
X 1 OE 1 ,IOA1 / L , 40' f 0 
TABAD+1 
TABAD+1 


OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

DEVICE CODE 

BUFFER ADDRESS 
REGIONAL TYPE 
ADDRESSING ROUTINE 


LOGICAL UNIT 
ERROR BYTE 
KEYLENGTH 


FIRST CCB BYTES 


CCW ADDR IN CCB 
FILE TYPE 


LABEL ROUTINE ADDRESS 
EXTENT ROUTINE ADDRESS 


TEST SWITCH 

POINTER 

IJICB2 


MAXIMUM DATA LENGTH 

PTR TO READ ID STRING 

READ KEY 

WRITE ID 

WRITE KEY 

RZERO 

AFTER 

RIC CONSTANT 
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0000D8 

FILEN2 

EQU 

0000D8 


DC 

000049 

FILEN3 

EQU 

000049 

FILEN4 

EQU 

000049 

0000DB 

FILEN5 

EQU 

0000E0 

CCHAD 

CCW 

0000E8 


DC 

000120 

IOA1 

DC 

EXTRN 

END 


* 

X'871895* 

TABAD+1 
TABAD+1 
TABAD+1 

X'0 7 * , SEEKADR+1, X *40* ,6 
7D * 0' 

0D* 0 * 

IJKTXRP 



c 
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000000 

FIDIOVR1 

START 

000000 


DC 

000001 


DC 

000004 


DC 

000005 


DC 

000008 


DC 

00000A 


DC 

oooooc 


DC 

00000D 


DC 

000010 


DC 

000014 


DC 

000015 


DC 

000018 


DC 

00001C 


DC 

000020 


DC 

000022 

ERRBYTE 

DC 

000024 


DC 

000026 


DC 

000027 

SEEKADR 

DC 

000036 


DC 

000038 


DC 

00003E 


DC 

000040 


DC 

000046 


DC 

000048 

TABAD 

DC 

000048 


DC 

00004A 


DC 

00004B 


DC 

000050 


DC 

000054 


DC 

000058 


DC 

00005C 


DC 

00005D 


DC 

00005E 


DC 

000066 


DC 

000065 


DC 

00006C 


DC 

000070 


DC 

000071 


DC 

000074 


DC 

000076 


DC 

000078 


DC 

00007A 


DC 

00007B 


DC 

000080 


DC 

000084 


DC 

000088 

FILENZ 

CCW 

000090 


XI 

000094 


DC 

000096 


DC 

000097 


DC 

000098 


DC 

000099 


DC 

00009A 


DC 

00009B 


DC 

00009C 


DC 

00009E 


DC 

0000A0 


DC 

0000A8 

FILENC 

CCW 

0000B0 


DC 

0000B4 


DC 

0000B6 


DC 

0000B8 


CCW 

OOOOCO 


DC 

0000C8 


CCW 

0000D0 


CCW 

000049 

FILENO 

E2U 

000049 

FILEN1 

EQU 


0 

X 1 A5 1 

AL3 (TABAD) 

X'01 1 
AL3 (0) 

X' 2800' 

H'O' 

X 1 80 ' 

AL3 (0) 

A (IOA1) 

X'00' 

AL3 (IJKTXRP) 

A (0) 

A (0) 

X'0000' 

X'0000' 

H'O' 

X'00' 

15X'00' 

H' 10' 

6X' 0 ' 

H' 10' 

6X' 0' 

H 1 1 0 1 

OD' 0 ' 

H'O' 

X' 88' 

5x'0' 

A14 (CCWAD) 

F' 0 ' 

V (IJIFZZZZ) 

X* 22 ' 

B'11000000' 

C18'FIDIOVR1' 

X'0104' 

F' 0 ' 

V (IJKTXRM) 

X'O' 

A13 (ERRBYTE) 

H' 0 ' 

V (CCWAD-TABAD-32) 

H' 0 * 

X' 88' 

5X' 0' 

AL4 (FILENZ) 

4X' 0 ' 

X'07',SEEKADR+1,X'00',6 
36 (2) ,C'0' 

H' 0 ' 

YL1(FILENO-TABAD-1) 

YLl(FILEN1-TABAD-1) 

YL1 (FILEN2-TABAD-1) 

YLl (FILEN3-TABAD- 1) 

YLl(FILEN4-TABAD-1) 

YLl (FILEN5-TABAD-1) 

H' 00 ' 

H' 6 1 ' 

D' 0 ' 

X'31',SEEKADR+3,X'40',5 
1F' 0' 

H' 0 ' 

H' 0' 

X'06' f IOA1 r X'40',0 
ID' 0' 

X'39',SEEKADR+3,X'4 0' f 4 
X'OE' f IOA1,X'40',0 
TABAD+1 
TABAD+1 


OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

DEVICE CODE 

BUFFER ADDRESS 
REGIONAL TYPE 
ADDRESSING ROUTINE 


LOGICAL UNIT 
ERROR BYTE 
KEYLENGTH 


FIRST CCB BYTES 


CCW ADDR IN CCB 
FILE TYPE 


LABEL ROUTINE ADDRESS 
EXTENT ROUTINE ADDRESS 


TEST SWITCH 

POINTER 

IJICB2 


MAXIMUM DATA LENGTH 

PTR TO READ ID STRING 

READ KEY 

WRITE ID 

WRITE KEY 

RZERO 

AFTER 

RIC CONSTANT 
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0000D8 

FILEN2 

EQU 

0000D8 


DC 

000049 

FILEN3 

EQU 

000049 

FILEN4 

EQU 

000049 

0000DE 

FILEN5 

EQU 

0000E0 

CCWAD 

CCW 

0000E8 


DC 

000120 


DC 

000148 

IOA1 

DC 

EXTRN 

END 


* 

X*871891871815* 

TABAD+1 
TABAD+1 
TABAD+1 

X* 07 * , SEEKADR+1, X * 4 0 *,6 
7D * 0 * 

5D * 0 * 

OD'O* 

IJKTXRP 
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000000 

FIDIUNR1 

STkRT 

000000 


DC 

000001 


DC 

000004 


DC 

000005 


DC 

000008 


DC 

00000k 


DC 

oooooc 


DC 

00000D 


DC 

000010 


DC 

000014 


DC 

000015 


DC 

000018 


DC 

00001C 


DC 

000020 


DC 

000022 

ERRBYTE 

DC 

000024 


DC 

000026 


DC 

000027 

SEEKkDR 

DC 

000036 


DC 

000038 


DC 

00003E 


DC 

000040 


DC 

000046 


DC 

000048 

TkBkD 

DC 

000048 


DC 

00004k 


DC 

00004B 


DC 

000050 


DC 

000054 


DC 

000058 


DC 

00005C 


DC 

00005D 


DC 

00005E 


DC 

000066 


DC 

000068 


DC 

00006C 


DC 

000070 


DC 

000071 


DC 

000074 


DC 

000076 


DC 

000078 


DC 

00007k 


DC 

00007B 


DC 

000080 


DC 

000084 


DC 

000088 

FILENZ 

CCW 

000090 


XI 

000094 


DC 

000096 


DC 

000097 


DC 

000098 


DC 

000099 


DC 

00009k 


DC 

00009B 


DC 

00009C 


DC 

00009E 


DC 

OOOOkO 


DC 

0000k8 

FILENC 

CCW 

0000B0 


DC 

0000B4 


DC 

0000B6 


DC 

0000B8 


CCW 

OOOOCO 


DC 

0000C8 


CCW 

0000D0 


CCW 

0000D8 

FILENO 

EQCJ 

0000D8 


DC 


0 

X' 9D* 

AL3 (TABAD) 

X* 01 ' 

AL3 (0) 

X'2800' 

H'O' 

X' 80 ' 

AL3 (0) 

A (IOA1) 

X'00' 

AL3 (IJKTXRP) 

A (0) 

A (0) 

X'0000' 

X'0000* 

H'O’ 

X'00' 

15X'00' 

H* 10' 

6X' 0 * 

H' 10' 

6X' 0' 

H' 10' 

OD' 0 ' 

H'O' 

X' 88' 

5X' 0 ' 

AL4 (CCWAD) 

F' 0' 

V (I JIFZZZZ) 

X' 22 ' 

B' 00000000' 

CL8'FIDIUNR1 • 

X* 0104' 

F'O ’ 

V (IJKTXRM) 

X'O' 

AL3 (ERRBYTE) 

H'O* 

V (CCWAD-TABAD-32) 

H'O' 

X' 88' 

5X' 0' 

AL4 (FILENZ) 

4X' 0 * 

X'07',SEEKADR+1,X'00',6 
36 (2) ,C'0' 

H'O' 

YL1 (FILENO-TABAD-1) 

YL1 (FILEN1-TABAD-1) 

YL1(FILEN2-TABAD-1) 

YL1 (FILEN3-TABAD-1) 

YL1(FILEN4-TABAD-1) 

YL1 (FILEN5-TABAD-1) 

H' 00 ' 

H' 61 ' 

D' 0 * 

X* 31',SEEKADR+3,X'40',5 
IF' 0' 

H'O' 

H'O' 

X'06',I0A1,X'40',0 
ID' O' 

X'39',SEEKADR+3,X'40',4 
X'OE',I0A1,X'40',0 
* 

X'871814' 


OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

DEVICE CODE 

BUFFER ADDRESS 
REGIONAL TYPE 
ADDRESSING ROUTINE 


LOGICAL UNIT 
ERROR BYTE 
KEYLENGTH 


FIRST CCB BYTES 


CCW ADDR IN CCB 
FILE TYPE 


LABEL ROUTINE ADDRESS 
EXTENT ROUTINE ADDRESS 


TEST SWITCH 

POINTER 

IJICB2 


MAXIMUM DATA LENGTH 

PTR TO READ ID STRING 

READ KEY 

WRITE ID 

WRITE KEY 

RZERO 

AFTER 

RIC CONSTANT 
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000049 

FILEN1 

EQU 

TABAD+1 

0000DB 

FILEN2 

EQU 

* 

0000DB 


DC 

x'871895' 

000049 

FILEN3 

EQU 

TABAD+1 

000049 

FILEN4 

EQU 

TABAD+1 

000049 

0000DE 

FILEN5 

EQU 

TABAD+1 

0000E0 

CCWAD 

CCW 

X" 07 1 , SEEKADR+1, X 1 40 

0000E8 


DC 

7D' 0 * 

000120 

IOA.1 

DC 

EXTRN 

END 

OD * 0 1 

IJKTXRP 


6 
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000000 

FIDIUVR1 

START 

000000 


DC 

000001 


DC 

000004 


DC 

000005 


DC 

000008 


DC 

OOOOOA 


DC 

oooooc 


DC 

00000D 


DC 

000010 


DC 

000014 


DC 

000015 


DC 

000018 


DC 

00001C 


DC 

000020 


DC 

000022 

ERRBYTE 

DC 

000024 


DC 

000026 


DC 

000027 

SEEKADR 

DC 

000036 


DC 

000038 


DC 

00003E 


DC 

000040 


DC 

000046 


DC 

000048 

TABAD 

DC 

000048 


DC 

00004A 


DC 

00004B 


DC 

000050 


DC 

000054 


DC 

000058 


DC 

00005C 


DC 

00005D 


DC 

00005E 


DC 

000066 


DC 

000068 


DC 

00006C 


DC 

000070 


DC 

000071 


DC 

000074 


DC 

000076 


DC 

000078 


DC 

00007A 


DC 

00007B 


DC 

000080 


DC 

000084 


DC 

000088 

FILENZ 

CCW 

000090 


XI 

000094 


DC 

000096 


DC 

000097 


DC 

000098 


DC 

000099 


DC 

00009A 


DC 

00009B 


DC 

00009C 


DC 

00009E 


DC 

0000A0 


DC 

0000A8 

FILENC 

CCW 

0000B0 


DC 

0000B4 


DC 

0000B6 


DC 

0000B8 


CCW 

OOOOCO 


DC 

0000C8 


CCW 

0000D0 


CCW 

0000D8 

FILENO 

EQU 

0000D8 


DC 


0 

X' 9D' 

A.L3 (TABAD) 

X'01 • 

AL3 (0) 

X' 2800' 

H' 0' 

X' 80' 

AL3 (0) 

A (IOAl) 

X'00' 

AL3 (IJKTXRP) 

A(0) 

A(0) 

X'0000* 

X'0000' 

H' 0' 

X'00' 

isx'oo' 

H' 10* 

6X' 0' 

H' 10' 

6x'0' 

H' 10' 

OD* 0' 

H' 0' 

X'88' 

5X'0' 

AL4 (CCWAD) 

F' 0' 

V (IJIFZZZZ) 

X■ 22 * 

B' 01000000' 

CL8'FIDIUVR1' 

X' 0104 * 

F' 0' 

V (IJKTXRM) 

X'O' 

AL3 (ERRBYTE) 

H' 0 ' 

V (CCWAD*TABAD-32 

H* 0' 

X'88' 

5X'0' 

AL4 (FILENZ) 

4X' 0' 

X'0 7',SEEKADR+1 r X'0 0' # 6 
36 (2) ,C f 0* 

H' 0' 

YL1(FILENO-TABAD-1) 

YL1 (FILEN1-TABAD-1) 

YL1 (FILEN2-TABAD-1) 

YL1 (FILEN3-TABAD-2) 

YL1 (FILEN4-TABAD-1) 

YL1 (FILEN5-TABAD-1) 

H* 00 * 

H' 61 1 
D 1 0' 

X* 31• , SEEKADR+3 # ’40' f 5 
IF* 0 1 
H ’ 0 * 

^•0' 

X * 06' # IOAl f X , 40 , # 0 f 

1D f 0' 

X'39• , SEEKADR+ 3 # X'40 * r 4 
X 1 OE * / IOA1 r X 1 40’ r 0 
* 

X 1 871814' 


OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

DEVICE CODE 

BUFFER ADDRESS 
REGIONAL TYPE 
ADDRESSING ROUTINE 


LOGICAL UNIT 
ERROR BYTE 
KEYLENGTH 


FIRST CCB BYTES 


CCW ADDR IN CCB 
FILE TYPE 


LABEL ROUTINE ADDRESS 
EXTENT ROUTINE ADDRESS 


TEST SWITCH 

POINTER 

IJICB2 


MAXIMUM DATA LENGTH 

PTR TO READ ID STRING 

READ KEY 

WRITE ID 

WRITE KEY 

RZERO 

AFTER 

RIC CONSTANT 
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000049 

FILEN1 

EQU 

TABAD+1 

OQtJODB 

FILEN2 

EQU 

* 

OOOODB 


DC 

X*871891871815' 

000049 

FILEN3 

EQU 

TABAD+1 

000049 

FILEN4 

EQU 

TABAD+1 

000049 

0000E1 

FILEN5 

EQU 

TABAD+1 

0000E8 

CCWAD 

CCW 

X' 07',SEEKADR+1,'40' ,6 

0000P0 


DC 

7D' 0' 

000128 


dc 

5d' 0' 

000150 

IOA1 

DC 

OD'O' 



EXTRN 

END 

IJKTXRP 
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000000 

FINDIINR3 

START 

000000 


DC 

000001 


DC 

000004 


DC 

000005 


DC 

000008 


DC 

00000A 


DC 

oooooc 


DC 

00000D 


DC 

000010 


DC 

000014 


DC 

000015 


DC 

000018 


DC 

00001C 


DC 

000020 


DC 

000022 

ERRBYTE 

DC 

000024 


DC 

000026 


DC 

000027 

SEEKADR 

DC 

000036 


DC 

000038 


DC 

00003E 


DC 

000040 


DC 

000046 


DC 

000048 

TABAD 

DC 

000048 


DC 

00004A 


DC 

00004B 


DC 

000050 


DC 

000054 


DC 

000058 


DC 

00005C 


DC 

00005D 


DC 

00005E 


DC 

000066 


DC 

000068 


DC 

00006C 


DC 

000070 


DC 

000071 


DC 

000074 


DC 

000076 


DC 

000078 


DC 

00007A 


DC 

00007B 


DC 

000080 


DC 

000084 


DC 

000088 

FILENZ 

CCW 

000090 


XI 

000094 


DC 

000096 


DC 

000097 


DC 

000098 


DC 

000099 


DC 

00009A 


DC 

00009B 


DC 

00009C 


DC 

00009E 


DC 

0000A0 


DC 

0000A8 

FILENC 

CCW 

0000B0 


CCW 

0000B8 


CCW 

OOOOCO 


DC 

0000C8 


CCW 

0000D0 


CCW 

000049 

FILEN0 

EQU 

0000D8 

FILEN1 

EQU 

0000D8 


DC 

000049 

FILEN2 

EQU 


0 

X 1 C5 1 

AL3 (TABAD) 

X'01 ' 

AL3 (0) 
x'2800 f 

H' 0' 

X* 80" 

AL3 (0) 

A (IOA1) 

X' 08 * 

AL3 (IJKTXRP) 

A (KEYARG) 

A(0) 

X'0000' 

X'0000' 

H 1 0 1 
X'OO' 

15X* 00' 

H 1 1 0 1 
6X* 0 1 
H' 10' 

6X' 0 ' 

H" 10' 

OD * 0' 

H' 0' 

X' 8 8 ' 

5X'0' 

AL4 (CCWAD) 

F* 0' 

V (IJIFZZZZ) 

X* 22' 

B* 00000000' 

CL8'FIDIINR3 1 
X f 0104' 

F' 0 ' 

V (I JKTXRM) 

X'O' 

AL3 (ERRBYTE) 

H' 0' 

V (CCWAD-TABkD-32) 

H' 0' 

X' 8 8 ' 

5X' 0 ' 

AL4 (FILENZ) 

4X * 0 * 

X'07',SEEKADR+1,X'00 ',6 
36 (2) ,C'0' 

H' 0' 

YL1 (FILENO-TABAD-1) 

YL1(FILEN1-TABAD-1) 

YL1(FILEN2-TABAD-1) 

YL1(FILEN3-TABAD-1) 

YL1(FILEN4-TABAD-1) 

YL1 {FILEN5-TABAD-1) 

H' 20' 

H'61 ' 

D' 0' 

X'31',SEEKADR+3,X'40',5 
X'29' r KEYARG,X'40',0 
X'06',IOA1 , X ' 4 0',0 
1D' 0 ' 

X'39 *,SEEKADR+3,X * 4 0',4 
X'OE',10A1,X 1 4 0',0 
TABAD+1 

X' 8F1 81 4 ' 

TABAD+1 


OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

DEVICE CODE 

BUFFER ADDRESS 
REGIONAL TYPE 
ADDRESSING ROUTINE 


LOGICAL UNIT 
ERROR BYTE 
KEYLENGTH 


FIRST CCB BYTES 


CCW ADDR IN CCB 
FILE TYPE 


LABEL ROUTINE ADDRESS 
EXTENT ROUTINE ADDRESS 


TEST SWITCH 

POINTER 

IJICB2 


MAXIMUM DATA LENGTH 

PTR TO READ ID STRING 

READ KEY 

WRITE ID 

WRITE KEY 

RZERO 

AFTER 

RIC CONSTANT 
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000049 

PILEN3 

EQU 

000049 

FILEN4 

EQU 

000049 

0000DB 

FILEN5 

EQU 

0000E0 

CCWAD 

CCW 

0000E8 


DC 

000120 

IOA1 

DC 

000120 

KEYARG 

DC 

EXTRN 

END 


TABAD+1 
TABAD+1 
TABAD+1 

X'07*,SEEKADR+1,X'4 0 *,6 
7D'0' 

OD'O' 

OD* 0 * 

IJKTXRP 
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000000 

FIDIONR3 

START 

000000 


DC 

000001 


DC 

000004 


DC 

000005 


DC 

600008 


DC 

00000A 


DC 

oooooc 


DC 

00000D 


DC 

000010 


DC 

000014 


DC 

000015 


DC 

000018 


DC 

00001C 


DC 

000020 


DC 

000022 

ERRBYTE 

DC 

000024 


DC 

000026 


DC 

000027 

SEEKADR 

DC 

000036 


DC 

000038 


DC 

00003E 


DC 

000040 


DC 

000046 


DC 

000048 

TABAD 

DC 

000048 


DC 

00004A 


DC 

00004B 


DC 

000050 


DC 

000054 


DC 

000058 


DC 

00005C 


DC 

00005D 


DC 

00005E 


DC 

000066 


DC 

000068 


DC 

00006C 


DC 

000070 


DC 

000071 


DC 

000074 


DC 

000076 


DC 

000078 


DC 

00007A 


DC 

00007B 


DC 

000080 


DC 

000084 


DC 

000088 

FILENZ 

CCW 

000090 


XI 

000094 


DC 

000096 


DC 

000097 


DC 

000098 


DC 

000099 


DC 

00009A 


DC 

00009B 


DC 

00009C 


DC 

00009E 


DC 

0000A0 


DC 

0000A0 

FILENC 

CCW 

0000B0 


DC 

0000B4 


DC 

0000B6 


DC 

0000B8 


CCW 

OOOOCO 


DC 

0000C8 


CCW 

0000D0 


CCW 

OOOOD8 


CCW 

0000E0 


CCW 


0 

X 1 A5 1 

AL3 (TABAD) 

X'01 ' 

AL3 (0) 

X' 2800' 

H'O' 

X*80* 

AL3 (0) 

A (IOA1) 

x*os* 

AL3 (IJKTXRP) 

A (KEYARG+8) 

A(0) 

X'OOOO* 

X*0000* 

H' 0 1 

X'OO* 

i5x*oo' 

H* 10* 

6X* 0' 

H* 10' 

6x*o' 

H* 10* 

OD 1 0 1 

H'O* 

x*88* 

5X 1 0' 

AL4 (CCWAD) 

F' 0' 

V (IJIFAZZZ) 

X' 22 * 

B' 10010000* 

CL8 * FIDIONR3* 

X* 0104' 

F * 0 * 

V (IJKTXRM) 

X'O* 

AL3 (ERRBYTE) 

H * 0 * 

V (CCWAD-TABAD-32) 

H'O* 

X* 88' 

5X* 0 * 

AL4 (FILENZ) 

4X * 0 * 

X'07 *,SEEKADR+1,X* 00',6 
36 (2) ,C*0* 

H'O* 

YL1 (FILENO-TABAD-1) 

YL1 (FILEN1-TABAD-1) 

YL1 (FILEN2-TABAD-1) 

YL1 (FILEN3-TABAD-1) 

YL1 (FILEN4-TABAD- 1) 

YL1 (FILEN5-TABAD-1) 

H * 20 * 

H'61 * 

D'O* 

X'31 *,SEEKADR+3,X*40*,5 
IF* 0' 

H * 0 * 

H* 0 * 

X * 0 6 * ,1 OA1 # X * 4 0 *,0 
ID* 0 * 

X'39',SEEKADR+3,X* 40',4 
X'OE' r IOA1 + 8 # X * 40 ',0 
X* 06' # FILENK,X'40* f 8 
X'12*,FILENK,X'40* r 8 


OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

DEVICE CODE 

BUFFER ADDRESS 
REGIONAL TYPE 
ADDRESSING ROUTINE 


LOGICAL UNIT 
ERROR BYTE 
KEYLENGTH 


FIRST CCB BYTES 


CCW ADDR IN CCB 
FILE TYPE 


LABEL ROUTINE ADDRESS 
EXTENT ROUTINE ADDRESS 


TEST SWITCH 

POINTER 

IJICB2 


MAXIMUM DATA LENGTH 

PTR TO READ ID STRING 

READ KEY 

WRITE ID 

WRITE KEY 

RZERO 

AFTER 

RIC CONSTANT 
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0000E8 


ccw 

0000F0 


ccw 

0000F8 


ccw 

000100 


NOPR 

000102 


NOPR 

000104 

FILENF 

DC 

000109 

FILENK 

DC 

000049 

FILENO 

EQU 

000049 

FILEN1 

EQU 

000049 

FILEN2 

EQU 

000049 

FILEN3 

EQU 

000111 

FI LEM 

EQU 

000111 


DC 

000118 

FILEN5 

EQU 

000118 


DC 

0001 IB 
000121 


DC 

000128 

CCWAD 

CCW 

000130 


DC 

000168 

IOA1 

DC 

000168 

KEYARG 

DC 

EXTRN 

END 


X' 31',FILENF,X*40',5 
X'IE’,IOA1,X'40',0 
X'11',CCWAD+32,X'40',3625 
0 
0 

sx'O' 

8X' 0' 

TABAD+1 
TABAD+1 
TABAD+1 
TABAD+1 
* 

X'C718D752C718B5' 

* 

X'C71834• 

X'C718B18718CD' 

X' 07',SEEKADR+1,X* 40 ' ,6 
7D' 0' 

0D* 0' 

OD' O’ 

IJKTXRP 
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000000 

FIDIOVR3 

START 

0 

000000 


DC 

X'A5' 

000001 


DC 

AL3 (TABAD) 

000004 


DC 

X'01 ' 

000005 


DC 

AL3 (0) 

oooooq 


DC 

X'2800' 

00000A 


DC 

H 1 0 * 

oooooc 


DC 

X' 80' 

00000D 


DC 

AL3 (0) 

000010 


DC 

A (IOAl) 

000014 


DC 

x'08' 

000015 


DC 

AL3 (IJKTXRP) 

000018 


DC 

A (KEYARG+ 8) 

00001C 


DC 

A (0) 

000020 


DC 

X'0000' 

000022 

ERRBYTE 

DC 

X'0000' 

000024 


DC 

H' 0' 

000026 


DC 

X'00' 

000027 

SEEKADR 

DC 

isx'oo' 

000036 


DC 

H' 10* 

000038 


DC 

6X' 0' 

00003E 


DC 

H* 10* 

000040 


DC 

6X'0' 

000046 


DC 

H' 1 0 ' 

000048 

TABAD 

DC 

OD' 0 ' 

000048 


DC 

H' 0' 

00004A 


DC 

X'88' 

00004B 


DC 

5X'0' 

000050 


DC 

AL4 (CCWAD) 

000054 


DC 

F'O ' 

000058 


DC 

C (IJIFAZZZ) 

00005C 


DC 

X' 22' 

00005D 


DC 

B' 1 1010000' 

00005E 


DC 

CL8'FIDIOVR3' 

000066 


DC 

X' 01 04 ' 

000068 


DC 

F'O' 

000060 


DC 

V (IJKTXRM) 

000070 


DC 

X'O' 

000071 


DC 

AL3 (ERRBYTE) 

000074 


DC 

H' 0 ' 

000076 


DC 

Y (CCWAD-TABAD-32) 

000078 


DC 

H' 0" 

00007A 


DC 

X' 8 8 ' 

00007B 


DC 

5X' 0' 

000080 


DC 

AL4 (FILENZ* 

000084 


DC 

4X' 0 ' 

000088 

FILENZ 

CCW 

X' 07',SEEKADR+1,X'00 

000090 


IX 

36 (2) ,C'0' 

000094 


DC 

H ' 0' 

000096 


DC 

YL1 (FILENO-TABAD-1) 

000097 


DC 

YL1 (FILEN1-TABAD-1) 

000098 


DC 

YL1 (FILEN2-TABAD-1) 

000099 


DC 

YL1 (FILEN3-TABAD-1) 

00009A 


DC 

YL1 (FILEN4-TABAD-1) 

00009B 


DC 

YL1 (FILEN5-TABAD-1) 

00009C 


DC 

H' 2 ' 

00009E 


DC 

H' 6 1 ' 

0000A0 


DC 

D ' 0' 

0000A8 

FILENC 

CCW 

X'31',SEEKADR+ 3,X ' 40 

0000B0 


DC 

IF* 0 ' 

0000B4 


DC 

H ' 0' 

0000B6 


DC 

H'O' 

0000B8 


CCW 

X' 06 ' , 1 0A1,X ' 40 ' ,0 

ooooco 


DC 

ID ' 0 1 

0000C8 


CCW 

X' 39 ' ,SEEDADR+3,X ' 40 

0000D0 


CCW 

X ' OE ' ,20A1 + 8,X ' 40 ' ,0 

0000D8 


CCW 

X'06',FILENK,X ' 40 ' ,8 

0000E0 


CCW 

X'12',FILENK,X'40' , 8 


,6 


,4 


OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

DEVICE CODE 

BUFFER ADDRESS 
REGIONAL TYPE 
ADDRESSING ROUTINE 


LOGICAL UNIT 
ERROR BYTE 
KEYLENGTH 


FIRST CCB BYTES 


CCW ADDR IN CCB 
FILE TYPE 


LABEL ROUTINE ADDRESS 
EXTENT ROUTINE ADDRESS 


TEST SWITCH 

POINTER 

IJICB2 


MAXIMUM DATA LENGTH 

PTR TO READ ID STRING 

READ KEY 

WRITE ID 

WRITE KEY 

RZERO 

AFTER 

RIC CONSTANT 
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0000F8 


ccw 

0000F0 


ccw 

0000E8 


ccw 

000100 


NOPR 

000102 


NOPR 

000104 

FILENF 

DC 

000109 

FILENK 

DC 

000049 

FILENO 

equ 

000049 

FILEN1 

EQU 

000049 

FILEN2 

EQU 

000049 

FILEN3 

EQU 

0001 11 

FI LEM 

EQU 

000111 


DC 

000118 

FILEN5 

EQU 

000118 


DC 

00011B 
000127 


DC 

000128 

CCWAD 

CCW 

000130 


DC 

000168 


DC 

000190 

IOAl 

DC 

000190 

KEYARG 

DC 

EXTRN 

END 


X* 3 1 • ,FILENF,X* 40 1 ,5 
X* 1E * , IOAl # X * 40" r 0 
X*11 1 ,CCWAD+32,X , 40',3625 
0 
0 

SX'O' 

8X' 0 1 
TABAD+1 
TABAD+1 
TABAD+1 
TABAD+1 
* 

X'C718D752C718B5' 

* 

X* C71834 * 

X , C718B18718C9C7183187184D I 

X* 07',SEEKADR+1,X* 40',6 
7D 1 0 1 
5D * 0' 

OD'O' 

OD * 0 ' 

IJKTXRP 
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< 




000000 

FIDIUNR3 

START 

000000 


DC 

000001 


DC 

000004 


DC 

000005 


DC 

000008 


DC 

00000A. 


DC 

oooooc 


DC 

00000D 


DC 

000010 


DC 

000014 


DC 

000015 


DC 

000018 


DC 

00001C 


DC 

000020 


DC 

000022 

ERRBYTE 

DC 

000024 


DC 

000026 


DC 

000027 

SEEKADR 

DC 

000036 


DC 

000038 


DC 

00003E 


DC 

000040 


DC 

000046 


DC 

000048 

TABAD 

DC 

000048 


DC 

00004A 


DC 

00004B 


DC 

000050 


DC 

000054 


DC 

000058 


DC 

00005C 


DC 

00005D 


DC 

00005E 


DC 

000066 


DC 

000068 


DC 

00006C 


DC 

000070 


DC 

000071 


DC 

000074 


DC 

000076 


DC 

000078 


DC 

00007A 


DC 

00007B 


DC 

000080 


DC 

000084 


DC 

000088 

FILENZ 

CCW 

000090 


XI 

000094 


DC 

000096 


DC 

000097 


DC 

000098 


DC 

000099 


DC 

00009A 


DC 

00009B 


DC 

00009C 


DC 

00009E 


DC 

0000A0 


DC 

0000A8 

FILENC 

CCW 

0000B0 


CCW 

0000B8 


CCW 

OOOOCO 


DC 

0000C8 


CCW 

0000D0 


CCW 

0000D8 


CCW 

0000E0 


CCW 

0000E8 


CCW 

OOOOFO 


CCW 


0 

X 1 9D 1 

AL3 (TABAD) 

X'01 • 

AL3 (0) 

X' 2800• 

H' 0 1 
X^O* 

AL3 (0) 

A (IOAl) 

x'08' 

AL3 (IJKTXRP) 

A (KEYARG+8) 

A (0) 

X'0000' 

X'OOOO* 

H ’ 0 1 
X'OO' 

15X* 00' 

H* 10' 

6X'0‘ 

H' 10' 

6x'0' 

H' 10' 

od* 0' 

H' 0' 

x'88' 

5x'0' 

AL4 (CCWAD) 

F * 0 * 

V (IJIFAZZZ) 

X 1 22 * 

B'00010000' 

CL8’FIDIUNR3• 

X'0104' 

F'O* 

V (IJKTXRM) 

X'O' 

AL3 (ERRBYTE) 

H' 0' 

V (CCWAD-TABAD-32) 

H' 0' 

X' 88' 

5X' 0' 

AL4 (FILENZ) 

4X' 0 ’ 

X* 07',SEEKADR+1,X* 00',6 
36 (2) ,C'0’ 

H' 0' 

YL1(FILENO-TABAD-1) 

YL1(FILEN1-IABAD-1) 

YL1(FILEN2-TABAD-1) 

YL1(FILEN3-TABAD-1) 

YL1(FILEN4-TABAD-1 
YL1 (FILEN5-TABAD-1) 

H' 20' 

H' 61' 

D' 0' 

X* 31',SEEKADR+3,X'40', 5 
X'29',KEYARG + 8,X* 40 *,0 
X'Oe'jIOAIfX^O'fO 
ID' 0' 

X* 39',SEEKADR+ 3,X* 40',4 
X'OE',IOAl+8,X'40',0 
X'06',FILENK,X'40',8 
X'12’,FILENK,X’4 0 *,8 
X'31 *,FILENF,X'40 *,5 
X'IE',IOAl,X'40',0 


OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

DEVICE CODE 

BUFFER ADDRESS 
REGIONAL TYPE 
ADDRESSING ROUTINE 


LOGICAL UNIT 
ERROR BYTE 
KEYLENGTH 


FIRST CCB BYTES 


CCW ADDR IN CCB 
FILE TYPE 


LABEL ROUTINE ADDRESS 
EXTENT ROUTINE ADDRESS 


TEST SWITCH 

POINTER 

IJICB2 


MAXIMUM DATA LENGTH 

PTR TO READ ID STRING 

READ KEY 

WRITE ID 

WRITE KEY 

RZERO 

AFTER 

RIC CONSTANT 
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0000F8 
000100 
000102 
000104 
000109 
000049 
000111 
000111 
000049 
000114 
000114 
0001 17 
000117 
0001 IE 
0001 IE 
000121 
000127 
000128 
000130 
000168 
000168 


/O 



ccw 

X' 11 ' ,CCWAD+32,X , 40 f ,3625 


NOPR 

0 


NOPR 

0 

FILENF 

DC 

sx'o* 

FILENK 

DC 

SX'0' 

FILENO 

EQU 

TABAD+1 

FILEN1 

EQU 

* 


DC 

X* 8F181 4 ' 

FILEN2 

EQU 

TABAD+1 

FILEN3 

EQU 

* 


DC 

X'8F1895' 

FILEN4 

EQU 

* 


DC 

X* C718D752C718B5' 

FILEN5 

EQU 

* 


DC 

X ' C71834 1 


DC 

X* C718B18718CD* 

CCWAD 

CCW 

X ' 7 • ,SEEKADR +1,X ' 4 0 ' ,6 


DC 

7D'0' 

I0A1 

DC 

0D* 0 • 

KEYARG 

DC 

0D * 0 ' 


EXTRN 

END 

IJKTXRP 
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000000 

FIDIUVR3 

START 

000000 


DC 

000001 


DC 

000004 


DC 

000005 


DC 

000008 


DC 

00000A 


DC 

oooooc 


DC 

00000D 


DC 

000010 


DC 

000014 


DC 

000015 


DC 

000018 


DC 

00001C 


DC 

000020 


DC 

000022 

ERRBYTE 

DC 

000024 


DC 

000026 


DC 

000027 

SEEKADR 

DC 

000036 


DC 

000038 


DC 

00003E 


DC 

000040 


DC 

000046 


DC 

000048 

TABAD 

DC 

000048 


DC 

00004A 


DC 

00004B 


DC 

000050 


DC 

000054 


DC 

000058 


DC 

00005C 


DC 

00005D 


DC 

00005E 


DC 

000066 


DC 

000068 


DC 

00006C 


DC 

000070 


DC 

000071 


DC 

000074 


DC 

000076 


DC 

000078 


DC 

00007A 


DC 

00007B 


DC 

000080 


DC 

000084 


DC 

000088 

FILENZ 

CCW 

000090 


XI 

000094 


DC 

000096 


DC 

000097 


DC 

000098 


DC 

000099 


DC 

00 009A. 


DC 

00009B 


DC 

00009C 


DC 

00009E 


DC 

0000A0 


DC 

0000A8 

FILENC 

CCW 

0000B0 


CCW 

0000B8 


CCW 

OOOOCO 


DC 

0000C8 


CCW 

0000D0 


CCW 

0000D8 


CCW 

0000E0 


CCW 

0000E8 


CCW 

0000F0 


CCW 


0 

X' 9D' 

AL3 (TABAD) 

X'01 ' 

AL3 (0) 

X'2800' 

H* 0' 

X' 80' 

AL3 (0) 

A (IOA1) 

X' 08' 

AL3 (IJKTXRP) 

A (KEYARG+8) 

A (0) 

X'0000' 

X'0000* 

H' 0' 

X'00' 

15'00' 

H'10* 

6X' 0' 

H'10' 

X’O* 

H'10' 

OD' 0' 

H' 0' 

X' 88' 

5X' O' 

AL4 (CCWAD) 

F' 0' 

V (IJIFAZZZ) 

X' 22' 

B'01010000' 

Cl 8'FIDIUVR3' 

X' 0104' 

F'O ’ 

C (IJKTXRM) 

X'O* 

AL3 (ERRBYTE) 

H' 0' 

Y (CCWAD-TABAD-32) 

H' 0' 

X' 88' 

5X' 0 ’ 

AL4 (FILENZ) 

4X* 0* 

X'07',SEEKARD+1,X'00',6 
36 (2) ,C'0' 

K' 0' 

YL1(FILENO-TABAD-1) 

YL (FILEN1-TABAD- 1) 

YL1(FILEN2-TABAD-1) 

YL1 (FILEN3-TABAD-1) 

YLl (FILEN4-TABAD-1) 

YL1 (FILEN5-TABAD-1) 

H' 20 * 

H' 61 ' 

D'O* 

X'31',SEEKADR+3,X'40',5 
X'29',KEYARG + 8,X'4 0',0 
X'06',I0A1,X'40',0 
1D' 0 ' 

X'39',SEEKADR+3,X'40',4 
X'OE',IOA1+8,X'40',0 
X'06',FILENK,X'40',8 
X'12',FILENK,X'40',8 
X'31',FILENF,X'40',5 
X' 1E',IOA1,X'4 0' , 0 


OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 

DEVICE CODE 

BUFFER ADDRESS 
REGIONAL TYPE 
ADDRESSING ROUTINE 


LOGICAL UNIT 
ERROR BYTE 
KEYLENGTH 


FIRST CCB BYTES 


CCW ADDR IN CCB 
FILE TYPE 


LABEL ROUTINE ADDRESS 
EXTENT ROUTINE ADDRESS 


TEST SWITCH 

POINTER 

IJICB2 


MAXIMUM DATA LENGTH 

PTR TO READ ID STRING 

READ KEY 

WRITE ID 

WRITE KEY 

RZERO 

AFTER 

RIC CONSTANT 
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0000F8 


ccw 

X 1 11 * t CCWAD+ 32,X * 4 0 * , 

0001 GO 


NOPR 

0 

000102 


NOPR 

0 

000104 

FILENF 

DC 

SX'O* 

000109 

FILENK 

DC 

8X* 0 ’ 

000049 

FILENO 

EQU 

TABAD+1 

0001 11 

FILEN1 

EQU 

* 

0001 11 


DC 

X"8F1814* 

000049 

FILEN2 

EQU 

tabAd+i 

000114 

FILEN3 

EQU 

* 

000114 


DC 

X'8F18918F1815 1 

oooi m 

FILEN4 

EQU 

* 

oooi m 


DC 

X 1 C718D752C718B5 1 

000121 

FILEN5 

EQU 

* 

000121 


DC 

X'C71834 1 

000124 


DC 

X'C718B18718C9C7183187184D 

000130 

CCWAD 

CCW 

X ' 07 1 , SEEKADR+1,X 1 40 1 ,6 

000138 


DC 

7D' 0 • 

000170 


DC 

5D 1 0 1 

000198 

IOA1 

DC 

0D'0' 

000198 

KEYARG 

DC 

EXTRN 

END 

OD 1 0 * 

IJKTXRP 
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ABS . 

ABS, fixed binary .... 
ABS, fixed decimal ... 

ABS, long float. 

ABS, short float . 

AC1-AC6 . 

ACOMA . 

ACTIO (R5) . 

ACTIONO - 31 . 

ACTIONO - 31 (DO 0) _ 

ACTIONO - 31 (D1 0) _ 

ACTIONO - 31 (D1 1) _ 

ACTION2C . 

ADASSI . 

ADASSI1 - 9 . 

ADBASA . 

ADBASC . 

ADBISA . 

ADBOIV . 

ADBSIP . 

ADBSOP . 

ADCALL . 

ADCHAP . 

ADCHOP . 

ADCOB3 . 

ADCON . 

ADCOST . 

ADD. 

ADDARI . 

ADDEQ . 

ADDIV . 

ADDMU . 

ADDNEG . 

ADDNIG . 

ADDPQL . 

ADDRF . 

ADDSHI . 

ADIF. 

ADIOST . 

ADMACO . 

ADMULI . 

ADMVC . 

ADNEG1 . 

ADRTLC . 

ADSECO . 

ADTEE6 . 

ADUNA . 

AHSTAB . 

ALIGN . 

ALL. 

ALLOC . 

ALLVAR . 

ANDO. 

ANDOST . 

ANEN. 

ANEND . 

ANY . 

ARITH1-2 . 

ARGADR . 

Array . 

ARRAY, ARRAYO . 

Array expression begin 


. 225 

. 262 

. 265 

. 269 

. 267 

. 177 

. 194 

. 196 

. 180 

. 175 

. 188 

. 198 

. 183 

. 202 

. 192 

. 203 

. 202 
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. 202 

. 203 

. 203 

. 203 

. 203 

. 203 

. 193 

. 293 

. 194 

225,311,316,323 

. 202 

. 194 

. 202 

. 202 

. 202 

. 203 

. 192 

. 221 

. 202 

. 203 

. 202 

. 198 

. 202 

. 172,197 

. 202 

. 203 

. 203 

. 193 

. 202 

. 75 

. 297 

. 225 

. 291 

. 291 

. 158 

. 153 

. 158 

. 153 

. 225 

. 182 

... 221 

. 70 

. 178 

. 279 


Array table. 2 05 

Array table construction . Ill 

ARRCH. 17 8 

ARROUT . 178 

ARRTAB . 209 

Array expression end . 281 

ARYTAB . Ill 

ASGN. 226 

ASKIP . 208,21 9 

ASSCODE. 289 

Assign label constant . 274 

Assign label variable . 275 

Attribute byte. 172 

Attribute table . 107,109 

Attribute table compression . 109 

BANN. 51 

BAS. 310,325 

BEBE. 120 

BFSTR . 246 

BITSET . 223 

Bit strings (generated code) . 2 72 

BLBL. 12 0 

Block description table . 229 

Block sorting . 127 

Block structure. 57 

Block table (PBT) . 312 

Block table listing . 354 

BLOCK! . 356 

BLTAB . 298 

BLUE. 51 

BOOLF .. 221 

BOU. 326 

Branch macro .. 118 

Branch on condition. 274 

BRAN1 . 316 

BRG . 326 

BSAC. 120,153,158 

BUBU. 65 

Buffer areas . 21 

Built-in functions, library calls for . 212 

Built-in functions II . 224 

BYBY. 159 

BYPA. 120,153, 159 

CACTIONO- 7 . 193 

CALL. 2 77 

CALL (3) . 2 82 

Call library routine . 2 83 

CARFB . 65 

CARTAB . 54,297 

CHAIN . 178 

CHAMO . 3 52 

CHAR. 353 

Character string assignment . 275 

Character string comparison . 271 

Character string concatenation . 270 

Character strings . 54 

Character string table . 54 

CHECK3- 5. 209 

CHECKENT. 184 

CHECK JK. 223 


Index 419 




























































































































CHECKOUT. 177 

CHECKSP . .*. 178,180 

CHECKST . 135 

CKREVA. 149 

CLOSE. 144 

CNOP .. 311,316 

Code generation . 253,284 

COMMON. 186 

Communication region . 7 

COMOMA.. 146 

COMOMAO . 136 

Compiler interface . 20 

CON. 159 

CONEND . 2 91 

CONLBE . 143 

CONOUT . 2 94 

CONSCR . 294 

CONSTA. 290 

Constants in static storage . 319 

Constants, optimization of . 292 

Constants, processing of (I) 123 

Constants, processing of (II) . 237 

Constants, sorting of . 2 87 

Constant table . 123,237 

CONTAB . 292,297 

CONTB. 146 

CONTBR . 150 

CONTEB . 135 

Contextual declarations . 92 

CONVAR . 289 

Conversion. 180 

Conversion CV4-5 . 270 

Conversion (generated code) . 270 

CONVERT . 184,192 

CONVN. 222 

COSC . 153 

COTAB. 190 

COUNT. 245 

COUT . 291 

CV36 . 193 

CVFISCH . 210 

D17 . 219 

Data lists of GET/PUT. 138 

DCA. 323 

DCAL3. 311,316,322 

DCF . 311,316,323 

DCLASS . 324 

DCSO. 324 

DCSTA. 311,317,323 

DCV. 323 

DCX . 311,316,323 

DEC . 51 

Declaration pool. 67 

Declaration scan. 67 

Declaration scan II . 70 

DECLARE statements . 67 

DED. 222 

DEDGEN . 222 

Define label constant . 274 

Define label macro . 118 

DEROUTO-7 . 194 

DETERMIN. 186 

Diagnostic . 250 

Diagnostic, final . 347 

DIFL. 243 

DIMCHK . 209 

DISPLAY . 150 


DIVIDE . 

DO branch . 

DODO. 

DOPH. 

DO statement .. 
DO statement II 

DPDS. 

DPTE. 

DRIFT . 

DSEND . 

DSGEN . 

DSL. 

DSPUT . 

DSTAB . 

DTF tables .... 
DYNDMP . 


. 225 

. 275 

. 120 

... 153,158 

. 151 

. 155 

. 120 

. 51 

. 51 

.291 

. 183 

311,316,323 

. 290 

. 298 

.375 

. 222 


EAACT . 208,219 

EBACT . 208,219 

ECAV. 51 

Edit pattern (pictures) . 47 

E0ACT... 208,219 

E0-EF . 178 

EIGEN . 179 

E3 02-E3 1 0 . 183 

ELCO. 3 8 

ELEL. 121 

ELO. 346 

END card generation. 342 

ENDBL . 311,316,323 

End-of-statement key . 57 

ENDX. 153 

EOP. 249 

EOPH . 136,141,147,150 

EOPACT . 209,220,225 

EOS key. 57 

EOST . 65,121,136,154,159 

EQU. 294 

EQUOUT . 2 94 

EQUSR . 2 94 

ERCAL . 340 

ERLI. 34 0 

Error . 53,66,121,136,154,159 

ERROR (D00-D11) 172 

Error diagnostic . 2 50 

ESD. 336 

ESD card generation. 33 8 

ESFIN . 339 

ESI .. 346 

ESMO. 340 

EXCHP . 223 

EXPA. 51 

EXPOA. 222 

EXPOB . 222 

EXPONENT. 183 

EXTAB . 324 

External name table (EXTTAB) . 113 

External symbol table listing . 354 

EXTTAB . 113 


FACTIONY . 196 

FBFI. 125 

FBFL . .. 125 

FBID. 240 

FBII . 239 

FBIL. 239 

FBLL. 239 

FBIN. 126 
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FBIS . 

FBLO. 

FBLS . 

FBSL. 

FBSS . 

FBST. 

FBUF. 

FCMB. 

FCOM. 

FCON. 

FCSC. 

FCTA. 

FDDI . 

FDFI . 

FDFL. 

FDIB. 

FDIL. 

FDIS . 

FDLB. 

FDLD. 

FDLL. 

FDLS. 

FEFIBL . 

FEND. 

FENV. 

FEOS. 

FERR. 

FERRUC . 

FEST. 

FETCH . 

FETCHA, FETCH1 

FFIL. 

FFIN. 

FFIT. 

FFIX. 

FGSC. 

FIDE. 

FILE. 


. 241 

. 82 

. 240 

. 239 

. 241 

. 125 

. 82 

. 39 

. 38 

... 125,238 

. 124 

. 55 

. 240 

. 125 

. 125 

. 243 

. 242 

. 242 

. 242 

. 243 

. 242 

. 242 

. 135 

. 41 

. 80 

.... 83,238 
.... 83,238 

. 238 

. 124 

175,180,197 

. 195 

. 80 

. 56 

. 82 

. 82 

. 237 

. 41,55 

. 70 


File attributes and options, 

conflicting . 81 

File declarations. 79 

File generation . 327 

File module . 334 

File table FILTAB. 79 

FILL. 293 

FILTAB . 79 

Final output . 354 

FINDKEY. 182 

FINT.. . 82 

FISCH. 211 

Fixed binary addition . 259 

Fixed binary assignment with overflow 

check . 260 

Fixed binary assignment without 

overflow check . 261 

Fixed binary comparison . 261 

Fixed binary division. 260 

Fixed binary exponentiation . 261 

Fixed binary multiplication with 

overflow check .*. 259 

Fixed binary multiplication without 

overflow check . 261 

Fixed binary negation. 260 

Fixed binary subtraction . 259 

Fixed decimal comparison . 263 

Fixed decimal division . 263 

Fixed decimal exponentiation . 264 

Fixed decimal multiplication . 263 


Fixed decimal negation . 

Fixed decimal subtraction . 

FKBU. 

FKEL. 

FKEW. 

FLBI. 

FLCEILF . 

FLCLDF . 

FLDI . 

Float comparison . 

Float general exponentiation .. 

FLTRO . 

FMBU. 

FMED. 

FNBI. 

FNCA. 

FNDI. 

FNOP. 

FORMAT . 

Format label assignment, macros 

Format list . 

FORMAT statement . 

FORMTA.B. 

FOUT. 

FPDT. 

FPER. 

FPFI . 

FPFL. 

FPIN. 

FQUO. 

FREE. 

FREEING . 

FREG. 

FREP. 

FROTO . 

FRR . 

FSBI. 

FSCA. 

FSCN. 

FSCS. 

FSDI . 

FSI . 

FS11 . 

FSLA. 

FSPE . 

FSTL. 

FSTN. 

FSTR. 

FSYS. 

FTKW. 

FUNCTA . 

Function procedures . 

FUVN. 

F(Y) . 


. 263 

. 263 

. 39 

. 82 

. 39 

. 242 

. 222 

. 222 

. 241 

. 269 

. 267 

. 222 

. 41,56 

. 82 

. 241 

. 39 

. 241 

. 82 

146,246,276 
for ... 204 

. 144 

. 144 

. 209 

. 121 

. 82 

. 39 

. 126 

. 126 

41,52,56,238 

. 38 

. 195 

. 195 

. 82 

. 55,126 

. 184 

. 310 

. 239 

. 55 

. 80 

. 240 

. 240 

. 52 

. 52 

. 38 

. 82 

. 125 

. 38 

. 55 

. 82 

. 39 

. 220 

. 84 

. 82 

. 51 


GEASS . 136 

GEASS3 . 147 

GEASSR . 150 

GECON. 291 

GEDOST . 136 

GEEND . 136 

GENADCO. 221 

GENCO . 221 

Generated temporary variables . 151 

Generator phases . 253 

GENDEDAD. 222 

GENLAB . 226 

GENVAR . 290 
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GEO. 324 

GEOS . 121,154,159 

GEPOI. 143 

GEPUF. 147 

GEPUII . 141 

GET. 355 

GETCON. 2 94 

GETEX. 339 

GETIN. 291 

GETLA. 339 

GETLOC . 298 

GETOP. 195 

GETPRE . 290 

GETPUT . 246 

GETST. 195 

GETSYM . 290 

GEVA. 143 

GEVAO . 137 

GEVARE . 150 

GRGR . 121 

GSN. 121,154,159 

HAM. 52 

HDETER . 2 85 

HEINS . 284 

HERH. 2 52 

HESUB. 31 

High. 276 

HIGHLOW . 221 

HIND AD . 285 

HMOCO. 284 

HMOVE. 286 

HOPE . 2 85 

Housekeeping on work files . 25 

HTE . 52 

HUE . 286 

Identifiers, replacement of . 40 

IDEXPR... 141 

IF . 275 

IF statement. 118 

IFFALSE statement . 118 

IFIF. 121 

IFPH. 120 

IJKAGI . 28 

IJKAGINO. 28 

IJKAGO . 28 

IJKAGONO. 28 

IJKANT . 27 

IJKAMN. 29 

IKJAPINO. 29 

IJKAPH . 28 

IJKAPI . 29 

IJKAPO . 29 

IJKAPT . 27 

IJKAPTR . 27 

IJKATIN. 30 

IJKATOUT. 30 

IJKAWT . 27 

IJKGI . 26,28 

IJKGO. 2 6,28 

IJKMBL . 7 

IJKMBS . 7 

IJKMN. 26 

IJKMO .. 26 

IJKMTS .. 7 

IJKNT. 26 

IJKPH. 26 


IJKPI . 

IJKPO.. 

IJKPONO .. 

IJKPT . 

IJKPTR . 

IJKRI . 

IJKRO .. 

IJKTI ... 

IJKTO . .... 

IJKWI . 

IJKWO . 

IJKWT . 

INC1 . 

INCHARF . 

INCR. 

INCRE . 

INIGP . 

INISC2 . 

INITIAL . 

Initialization for disk versions 
Initialization for tapes (A00) . 

Initialization for tape and disk 

INITSUB . 

INLE. 

INPT. 

INPUT . 

INRE.. 

INSERT ... 

Interface, compiler . 

Interface, new . 

Interface routines ... 

Interface structure . 

Internal PL/I code . 

INTREST . 

I/O flow during compilation .... 

I/O macros I . 

I/O macros II .. 

I/O scan I . 

I/O scan II . 

I/O scan III . 

I/O scan IV . 

IPDS. 

ISCR... 

ISU. 


.... 26,29 

_ 26,29 

. 29 

. 26 

.26 

.... 26,28 
.... 26,28 

.. 26 

. 26 

.... 26,29 
•••• 26,29 

.26 

. 159 

. 221 

. 290 

. 219 

. 134 

. 141 

... 70,276 
(A00) . 35 

. 34 

(A00) . 35 

.209 

. 346 

. 65 

.. 135,247 

. 345 

.285 

. 20 

. 161 

. 26 

. 25 

. 36 

.. 220,226 

. 11 

. 245 

. 248 

_ 131 

. 138 

. 144 

. 148 

. 121 

.326 

. 304 


JAHSA1 . 77 

JASSA1 . 5 8 

JATAA1 . 76 

JATRA1 . 71 

JBEGA1 . 6 8 

JBETA1 . 61 

JBIPA1 . 110 

JBLT. 107 

JCATA1 . 109 

JCCBA1 . 85 

JCES. 109 

JCHAA1 . 60 

JCHEA1 . 85 

JCIR .. 109 

JCPI . 110 

JCPLA1 . 6 8 

JCSTA1 . 84 

JCVTA1 . 71 

JCWTA1 . 7 8 

JDCLA1 .. 75 

JDCSA1 . 68 

JDECA1 . 71 

JDEPA1 . 69 
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JDLAA1 
JELSA1 
JENDA1 
JENTA1 
JE0PA1 
JE OS . 
JEOSA1 
JEPLA1 
JERR . 
JERRA1 
JFIXA1 
JGOF . 
JGOTA1 
JLABA1 
JLACA1 
JLEN . 
JMAC . 
JMDCA1 
JMIB . 
JNAMA1 
JNSTA1 
JOPTA1 
JPC0A1 
JPCRA1 
JPDOA1 
JPIFA1 
JPREA1 
JPROA1 
JPUTA1 
JQULA1 
JRPS . 
JRSTAl 
JSAR . 
JSATA1 
JSCC . 
JSCNA1 
JSCOA1 
JSID . 
JSIPA1 
JSKPA1 
JSLC . 
JSLCA1 
JSPOA1 
JSRTA1 
JSSAA1 
JSTAA1 
JSTBA1 
JTRA . 
JTRNA1 
JTRIA1 
JTRLA1 
JTRN . 
JTRNA1 


. 60,67 

. 59 

. 59,68 

. 58,68 

. 61 

. 83,126 

59,65,69,121,154,159 

. 57 

. 126,238 

.. 60,66,121,154,159 

. 61 

. 110 

. 60 

. 75 

. 59 

. 110 

. 107 

. 85 

. 126 

. 77 

. 84 

. 68 

. 78 

. 68 

. 59 

. 58 

. 76 

. 58 

. 78 

. 85 

. 107 

. 84 

. 107 

. 76 

. 108 

. 70 

. 74 

. 107 

. 71 

. 60 

. 126 

. 65,69 

. 84 

. 70 

. 61 

. 58 

. 67 

. 108 

. 60 

. 71 

. 77 

. 83,126,238 

.. 52,65,121,154,159 


KBT. 310 

KCHECK . 27 

KCONDOUT. 236 

Keywords, replacement of. 36 

Keyword table .. 37 

KEY4MOD . 187 

KGETNOTE. 27 

KINTER . 236 

KONLOOK. 236 

KONSTOUT. 236 

KOTE. 236 

KRAFT. 159 

KREAD. 27 

KREP. 28 


KSAVE1 . 7 

KTESCA . 235 

KTETA. 7,25 

K2CHECK. 27 

K5PH. 7 

LAB. 3 52 

LABE. 315 

LABEL . 311,316,323 

LABEL AS. 209 

Label declaration list. 67 

Label handling . 312 

Label offsets . 318 

Label table. 312 

LABS. 34 0 

LABTAB . 312,336 

LAREG . 2 84 

LAST. 298 

LATA. 315 

LDXEC . 340 

LEFTH . 298 

LENGTH . 178 

LF utility routines . 63 

LGEN. 121,154,159 

LIBCALL. 223 

LIBER . 340 

Library routines . 373 

LINCR . 297 

Linguistic functions . 63 

Linkage for built-in functions . 212 

LINKS . 356 

LIOCS for disk versions . 33 

LIOCS for tapes. 32 

LIOCS modules . 26 

LJX. 211 

LKW.. 66 

LNK. 3 55 

Load. 281 

Load address of ON block. 276 

Load array . 2 82 

Load DED. 282 

Load long . 2 82 

Load multiple . 2 82 

Load scalar. 282 

Load short . 281 

Load transmit . 277 

Load variable . 2 80 

LOCAL .. 2 97 

LOCAT . 352 

Logical flow of compiler . 15 

Logical parts of compiler . 13 

Long float addition. 267 

Long float assignment . 269 

Long float division. 268 

Long float exponentiation . 269 

Long float general exponentiation . 269 

Long float multiplication . 268 

Long float negation . 268 

Long float subtraction . 268 

Loop begin . 2 83 

Loop end .. 283 

Low. 280 

LGEN. 121 

LGEN. 154 

LGEN. 159 

LJX. 211 

LVGE . 159 

LY. 211 
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Macro generation II . 196 

Macros and generated code. 258 

MADM. 316 

MAIN. 180 

MAKGEN . 210 

MAMA. 121 

MAMIFI . 221 

Mask table MSKTAB. 74 

MASURO . 287 

MASU (X) 198 

MATRIX . 185 

MAX . 346 

MESID. 339 

MEX . 345 

MIO. 311 

MOC. 315 

MOD. 293 

MODDF. 222 

MODF. 221 

Model-instruction dictionary . 254 

MODIF. 304 

MOK . 310,324 

MOK1 . 326 

MOKK. 346 

MOO . 304 

MOOK . 336 

MOR. 337 

MOSC. 345 

MOV 21 . 209 

MOV21-31 . 220 

MOV31 . 209 

MOVE. 247 

MOVEA1 . 60 

Move address . 279 

Move character . 283 

MOVECON . 184 

MOVEDATA. 182 

Move immediate . 281 

MOVE 11 . 173 

MOVEIO . 173 

MOVEIS . 173 

MOVEIT . 173 

MOVESO .„. 173 

MOVETO . 173 

MOVGEN . 210 

MOV021 . 209 

MOVOUT . 220,226 

MSKTAB . 74 

MUDI . 243 

MOFL. 243 

MULTI . 311,323 

MULTIPLY... 225 

Multiply halfword . 283 

N1-6 . 220 

NAME. 353 

NAMTAB . 40 

New interface. 161 

NOTOPT . 293 

NSNS . 121 

Object code listing . 348 

OBRA. 322 

OFFOUT . 297 

OFFSET . 298 

Offset handling . 306 

Offset preparation, final . 319 

Offset table, building of . 299 


OFFTAB1 . 297 

OFLIS .. 318 

OGA. 324 

OGE. 310 

ON. 229 

OPCLO . 147 

OPEN. 144 

Operation priorities . 176 

OPT. 290 

OPTIM . .. 294 

OPTIM2 . 2 94 

OPTIM4 . 2 93 

OPTIM8 . 293 

OPWSP . 247 

Or immediate . 2 83 

OTSEKT . 150 

OUT. 209,220,290 

OUTASS . 289 

OUTCOND . 142 

OUTGEV . 137 

OUTPCT . 142 

OUTPUT . 135,247,291 

Output, final . 354 

Output listing . 348 

OUTSBST. 143 

OUTSPV . 143 

OUTSVC . 142 

OUTSTR . 142 

OUTTAB . 137 

Overlay. 281 

P80-P183 . 186 

PAD. 340 

PARA. 311,317 

Parameter list. 67 

PARG . 222 

PAT. 52 

PBT. 312 

PCH. 355 

Phase A25 . 36 

Phase A30 . 4 0 

Phase A35 . 42 

Phase A45 . 54 

Phase A50 . 57 

Phase B10 . 67 

Phase B15 . 70 

Phase B20 . 73 

Phase B25 . 79 

Phase B30 . 84 

Phase B40 . 86 

Phase B70 . 92 

Phase B90 . 107 

Phase B92 . 109 

Phase B95 . Ill 

Phase B97 . 113 

Phase COO . 116 

Phase C25 . 118 

Phase C30 . 123 

Phase C35 .. 127 

Phase C50 . 131 

Phase C55 . 138 

Phase C60 . 144 

Phase C65 . 148 

Phase C85 . 151 

Phase C86 . 155 

Phase C95 . 161 

Phase D00 . 175 

Phase D05 . 180 
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part 2 . 189 

part 3. 194 

Phase Dll . 196 

Phase D15. 204 

Phase D17 . 212 

Phase D20 . 224 

Phase D40 . 229 

Phase D70 . 237,248 

Phase D75 . 245 

Phase E25 . 250 

Phase E50 . 284 

Phase F25 . 287 
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Phase F75 . 295 
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Phase G15 . 319 

Phase G17 . 329 
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Phases DOO-D11 (general) . 163 
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Phases, list of . 10 

PICK . 298 

Pictures. 42 

PIP1 . 50 

PLENG. 222 

PLI . 355 

PMAK0. 221 

PMAK87 .. 210 

P (NA) . 186 

POB . 122 

Pointer assignment . 274 

Pointer comparison . 274 

P Q. 182 

PRECSION. 184 

Precision handling . 180 

PREMAC . 189 

Prestatement generation . 107 

PRET. 2 89 

PRETAB . 113 

PRETEND . 290 

PRIBLO . 356 

PRINT. 356 

PROCE. 311,316,323 

PROD. 225 

Prologue. 278 

PRT. 355 

Pseudo program (pictures) . 47 

PUCO. 221 

PUNCH. 356 

PUT . 294 

PUTCO. 2 90 

PUTLOC . 298 

PUTNV. 291 

PUTPRE . 289 


PUTOUT . 178,294 

PUTOUTES. 182 

PUTOUTFC . 182 

RAN . 318 

READIN . 220 

Record I/O . 148 

RECT. 4 0 

Register usage . 7,22 

REPE. 222 

Repeat . 281 

REPROUN. 220 

REQUEST. 195 

RESLEN . 183 

RETURN . 129 

Return . 2 77 

RETURN (D00-D11) . 172 

Return function value . 280 

Return to label constant . 274 

Return to label variable . 275 

Reverse polish notation . 175 

REVERT . 229 

RFDF. 52 

RFT. 52 

RLDCA. 346 

RLD. 336 

RLD card generation.. 341 

RLDSYS . 337 

RERRTEST. 297 

ROFF. 325 

ROUNDBF. 222 

Routine table (D10) 191 

RTESTIN. 290 
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SACT50-57 . 210 

SACTI0N7 . 196 

SACTIONX-Z . 196 

SAVE. 2 93 

SAVER . 172 

SBO. 316 

SCADAL1 . 135 

SCADAL2 . 135 

SCAFO . 146 

SCAL. 315 

Scope table (SCOTAB) . 73 

SCOTAB . 73 

SCSIJT . 223 

SDLDS . 340 

SDPRO . 339 

SEARCH . 245,248 

SEAV. 52 

SETERR . 220,226 

SETIN1-2 . 246 

SETPNT .. 2 26 

Set true on condition.. 2 82 

SHIFT . 262,284 

Shifts (generated code) . 272 

Short float addition . 265 

Short float assignment . 266 
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Short float exponentiation . 266 

Short float multiplication . 265 

Short float negation . 266 
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SIGN. 225 

SIGN, fixed binary. 2 62 

SIGN, fixed decimal .. 264 

SIGN, float . 267 

SITE. 52 

SKIDLI . 146 

SKIEX. 135 

SKIEX3 . 147 

SKI LI . 135 

SKISTA. 135 

SKISTAT . 141 

SKIP . 209,219,245,292,294,340 

SKIPC. 297 

SKIPF7 .. 219 
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SKIPV. 298 

SOURCE . 195 

SOURCE (I) 194 

SPECFUN . 221 

STATEN . 177 

Statement decomposition . 175 

Statement identifier key . 57 
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STEP. 122,154,160 

STER. 52 

STOP. 229 

Storage allocation . 295 

Storage layout during compilation . 20 

Storage type, determination of . 180 

Store. 275 

Store long . 279 

Store multiple . 279 

Store short . 275 

STR . 245 

STRI . 53 

STROUT .. 178 
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SUBSCR . 209 
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SUM. 225 

SUP . 53 
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